Mercurial > hg > xemacs-beta

comparison lisp/packages/autoinsert.el @ 72:b9518feda344 r20-0b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b31
author cvs
date Mon, 13 Aug 2007 09:03:46 +0200
parents 131b0175ea99
children 489f57a838ef
comparison
equal deleted inserted replaced
71:bae944334fa4 72:b9518feda344
15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
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 20 ;; along with XEmacs; see the file COPYING. If not, write to the Free
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 21 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
22 ;; Boston, MA 02111-1307, USA. 22 ;; 02111-1307, USA.
23 23
24 ;;; Synched up with: FSF 19.34. 24 ;;; Synched up with: FSF 19.34.
25 25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
133 (completing-read "Keyword, C-h: " v1 nil t)) 133 (completing-read "Keyword, C-h: " v1 nil t))
134 str ", ") & -2 " 134 str ", ") & -2 "
135 135
136 ;; This file is part of XEmacs. 136 ;; This file is part of XEmacs.
137 137
138 ;; XEmacs is free software; you can redistribute it and/or modify 138 ;; XEmacs is free software; you can redistribute it and/or modify it
139 ;; 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
140 ;; the Free Software Foundation; either version 2, or (at your option) 140 ;; the Free Software Foundation; either version 2, or (at your option)
141 ;; any later version. 141 ;; any later version.
142 142
143 ;; XEmacs is distributed in the hope that it will be useful, 143 ;; XEmacs is distributed in the hope that it will be useful, but
144 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 144 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
145 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 145 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
146 ;; GNU General Public License for more details. 146 ;; General Public License for more details.
147 147
148 ;; 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
149 ;; 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
150 ;; 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
151 154
152 ;;; Commentary: 155 ;;; Commentary:
153 156
154 ;; " _ " 157 ;; " _ "
155 158
156 ;;; Code: 159 ;;; Code:
157 160
158 161
162 (provide ' " (file-name-nondirectory (buffer-file-name)) ")
159 163
160 ;;; " (file-name-nondirectory (buffer-file-name)) " ends here")) 164 ;;; " (file-name-nondirectory (buffer-file-name)) " ends here"))
161 "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.
162 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). 166 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).
163 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
250 (if after 254 (if after
251 (nconc auto-insert-alist (list (cons key action))) 255 (nconc auto-insert-alist (list (cons key action)))
252 (setq auto-insert-alist (cons (cons key action) 256 (setq auto-insert-alist (cons (cons key action)
253 auto-insert-alist)))))) 257 auto-insert-alist))))))
254 258
259 (provide 'autoinsert)
260
255 ;;; autoinsert.el ends here 261 ;;; autoinsert.el ends here