Mercurial > emacs
annotate lisp/autoinsert.el @ 10244:3d95ea97eb9e
(ange-ftp-save-match-data): Macro deleted.
Most callers use save-match-data.
(ange-ftp-process-filter, ange-ftp-process-sentinel)
(ange-ftp-gwp-filter): Don't save the match data explicitly.
(ange-ftp-process-filter, ange-ftp-gwp-filter):
After comint output processing, update STR.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 25 Dec 1994 14:35:19 +0000 |
parents | 878de309ab95 |
children | 8bb3424bf745 |
rev | line source |
---|---|
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
180
diff
changeset
|
1 ;;; autoinsert.el --- automatic mode-dependent insertion of text into new files |
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
180
diff
changeset
|
2 |
845 | 3 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. |
4 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
5 ;; Author: Charlie Martin <crm@cs.duke.edu> |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
6 ;; Created: 01 Jul 1988 |
180 | 7 |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
12 ;; the Free Software Foundation; either version 2, or (at your option) |
180 | 13 ;; any later version. |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
23 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
24 ;;; Commentary: |
180 | 25 |
26 ;;; Abstract: | |
27 ;;; | |
28 ;;; The following defines an association list for files to be | |
29 ;;; automatically inserted when a new file is created, and a function | |
30 ;;; which automatically inserts these files; the idea is to insert | |
31 ;;; default files much as the mode is automatically set using | |
32 ;;; auto-mode-alist. | |
33 ;;; | |
34 ;;; The auto-insert-alist consists of dotted pairs of | |
35 ;;; ( REGEXP . FILENAME ) where REGEXP is a regular expression, and | |
36 ;;; FILENAME is the file name of a file which is to be inserted into | |
37 ;;; all new files matching the regular expression with which it is | |
38 ;;; paired. | |
39 ;;; | |
40 ;;; To use: | |
41 ;;; load autoinsert.el | |
42 ;;; setq auto-insert-directory to an appropriate value, which | |
43 ;;; must end in "/" | |
44 ;;; | |
45 ;;; Author: Charlie Martin | |
46 ;;; Department of Computer Science and | |
47 ;;; National Biomedical Simulation Resource | |
48 ;;; Box 3709 | |
49 ;;; Duke University Medical Center | |
50 ;;; Durham, NC 27710 | |
51 ;;; (crm@cs.duke.edu,mcnc!duke!crm) | |
52 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
53 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
54 |
180 | 55 (defvar auto-insert-alist '(("\\.tex$" . "tex-insert.tex") |
56 ("\\.c$" . "c-insert.c") | |
57 ("\\.h$" . "h-insert.c") | |
8764
878de309ab95
(auto-insert-alist): Add entries for C++.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
58 ("\\.cc$" . "c-insert.cc") |
878de309ab95
(auto-insert-alist): Add entries for C++.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
59 ("\\.C$" . "c-insert.cc") |
878de309ab95
(auto-insert-alist): Add entries for C++.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
60 ("\\.H$" . "h-insert.cc") |
180 | 61 ("[Mm]akefile" . "makefile.inc") |
62 ("\\.bib$" . "tex-insert.tex")) | |
63 "A list specifying text to insert by default into a new file. | |
64 Elements look like (REGEXP . FILENAME); if the new file's name | |
65 matches REGEXP, then the file FILENAME is inserted into the buffer. | |
66 Only the first matching element is effective.") | |
67 | |
68 ;;; Establish a default value for auto-insert-directory | |
69 (defvar auto-insert-directory "~/insert/" | |
70 "*Directory from which auto-inserted files are taken.") | |
71 | |
72 (defun insert-auto-insert-files () | |
73 "Insert default contents into a new file. | |
74 Matches the visited file name against the elements of `auto-insert-alist'." | |
75 (let ((alist auto-insert-alist) | |
76 ;; remove backup suffixes from file name | |
77 (name (file-name-sans-versions buffer-file-name)) | |
78 (insert-file nil)) | |
79 | |
80 ;; find first matching alist entry | |
8764
878de309ab95
(auto-insert-alist): Add entries for C++.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
81 (let ((case-fold-search (eq system-type 'vax-vms))) |
878de309ab95
(auto-insert-alist): Add entries for C++.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
82 (while (and (not insert-file) alist) |
180 | 83 (if (string-match (car (car alist)) name) |
84 (setq insert-file (cdr (car alist))) | |
8764
878de309ab95
(auto-insert-alist): Add entries for C++.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
85 (setq alist (cdr alist))))) |
180 | 86 |
87 ;; Now, if we found an appropriate insert file, insert it | |
88 (if insert-file | |
89 (let ((file (concat auto-insert-directory insert-file))) | |
90 (if (file-readable-p file) | |
91 (progn | |
92 (insert-file-contents file) | |
93 (set-buffer-modified-p nil)) | |
94 (message "Auto-insert: file %s not found" file) | |
95 (sleep-for 1)))))) | |
96 | |
97 ;; Make this feature take effect when a nonexistent file is visited. | |
98 (setq find-file-not-found-hooks | |
99 (cons 'insert-auto-insert-files | |
100 find-file-not-found-hooks)) | |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
180
diff
changeset
|
101 |
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
180
diff
changeset
|
102 ;;; autoinsert.el ends here |