Mercurial > hg > xemacs-beta

comparison lisp/packages/autoinsert.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children 131b0175ea99
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 ;; General Public License for more details. 17 ;; General Public License for more details.
18 18
19 ;; You should have received a copy of the GNU General Public License 19 ;; You should have received a copy of the GNU General Public License
20 ;; along with XEmacs; see the file COPYING. If not, write to the Free 20 ;; along with XEmacs; see the file COPYING. If not, write to the Free
21 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 21 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
22 ;; 02111-1307, USA.
22 23
23 ;;; Synched up with: FSF 19.34. 24 ;;; Synched up with: FSF 19.34.
24 25
25 ;;; Commentary: 26 ;;; Commentary:
26 27
132 (completing-read "Keyword, C-h: " v1 nil t)) 133 (completing-read "Keyword, C-h: " v1 nil t))
133 str ", ") & -2 " 134 str ", ") & -2 "
134 135
135 ;; This file is part of XEmacs. 136 ;; This file is part of XEmacs.
136 137
137 ;; XEmacs is free software; you can redistribute it and/or modify 138 ;; XEmacs is free software; you can redistribute it and/or modify it
138 ;; it under the terms of the GNU General Public License as published by 139 ;; under the terms of the GNU General Public License as published by
139 ;; the Free Software Foundation; either version 2, or (at your option) 140 ;; the Free Software Foundation; either version 2, or (at your option)
140 ;; any later version. 141 ;; any later version.
141 142
142 ;; XEmacs is distributed in the hope that it will be useful, 143 ;; XEmacs is distributed in the hope that it will be useful, but
143 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 144 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
144 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 145 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
145 ;; GNU General Public License for more details. 146 ;; General Public License for more details.
146 147
147 ;; You should have received a copy of the GNU General Public License 148 ;; You should have received a copy of the GNU General Public License
148 ;; along with XEmacs; see the file COPYING. If not, write to 149 ;; along with XEmacs; see the file COPYING. If not, write to the Free
149 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 150 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
151 ;; 02111-1307, USA.
152
153 ;;; Synched up with: Not in FSF
150 154
151 ;;; Commentary: 155 ;;; Commentary:
152 156
153 ;; " _ " 157 ;; " _ "
154 158
155 ;;; Code: 159 ;;; Code:
156 160
157 161
162 (provide ' " (file-name-nondirectory (buffer-file-name)) ")
158 163
159 ;;; " (file-name-nondirectory (buffer-file-name)) " ends here")) 164 ;;; " (file-name-nondirectory (buffer-file-name)) " ends here"))
160 "A list specifying text to insert by default into a new file. 165 "A list specifying text to insert by default into a new file.
161 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). 166 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).
162 CONDITION maybe a regexp that must match the new file's name, or it may be 167 CONDITION maybe a regexp that must match the new file's name, or it may be
249 (if after 254 (if after
250 (nconc auto-insert-alist (list (cons key action))) 255 (nconc auto-insert-alist (list (cons key action)))
251 (setq auto-insert-alist (cons (cons key action) 256 (setq auto-insert-alist (cons (cons key action)
252 auto-insert-alist)))))) 257 auto-insert-alist))))))
253 258
259 (provide 'autoinsert)
260
254 ;;; autoinsert.el ends here 261 ;;; autoinsert.el ends here