Opened by ptk at 2004-03-24 14:34
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Meine fuer autoinsert relevanten Zeilen sehen so aus:
my-append muesste durch append ersetzt werden. Wie du siehst, benutze ich je nach Environment (Arbeit oder zu Hause) unterschiedliche Headerfiles (unterschiedliches Copyright etc.).
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
;;;------------------------------------------------------------
;;; autoinsert from ~/emacs/insert
(if (fboundp 'auto-insert)
(progn
(setq auto-insert-query nil)
(add-hook 'find-file-hooks 'auto-insert))
(load "autoinsert" t nil))
(setq auto-insert-alist nil)
(setq auto-insert-directory (expand-file-name "~/emacs/insert/"))
(my-append 'auto-insert-alist `("\\.\\([pP][lL]x?\\|cgi\\)$" .
,(if is-onlineoffice
"perl-oo.pl"
"perl.pl")))
(my-append 'auto-insert-alist `("\\.pm$" .
,(if is-onlineoffice
"perl-oo-module.pm"
"perl-module.pm")))
(my-append 'auto-insert-alist '(".*Tk.*\\.pm$" . "perl-widget.pm") t)
(my-append 'auto-insert-alist '("\\(^\\|[^g]\\)tk\\.pl$" . "perl-tk.pl") t)
(my-append 'auto-insert-alist '("gtk\\.pl$" . "perl-gtk.pl") t)
(my-append 'auto-insert-alist '("\\.t$" . "perl-test.t") t)
(my-append 'auto-insert-alist '("Makefile\\.PL$" . "Makefile.PL") t)
my-append muesste durch append ersetzt werden. Wie du siehst, benutze ich je nach Environment (Arbeit oder zu Hause) unterschiedliche Headerfiles (unterschiedliches Copyright etc.).