Mercurial > hg > xemacs-beta

comparison lisp/packages/autoinsert.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents b82b59fe008d
children b9518feda344
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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 Free 20 ;; along with XEmacs; see the file COPYING. If not, write to the
21 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 ;; 02111-1307, USA. 22 ;; Boston, MA 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 it 138 ;; XEmacs is free software; you can redistribute it and/or modify
139 ;; under the terms of the GNU General Public License as published by 139 ;; it 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, but 143 ;; XEmacs is distributed in the hope that it will be useful,
144 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 144 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
145 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 145 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
146 ;; General Public License for more details. 146 ;; GNU 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 the Free 149 ;; along with XEmacs; see the file COPYING. If not, write to
150 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 150 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
151 ;; 02111-1307, USA.
152
153 ;;; Synched up with: Not in FSF
154 151
155 ;;; Commentary: 152 ;;; Commentary:
156 153
157 ;; " _ " 154 ;; " _ "
158 155
159 ;;; Code: 156 ;;; Code:
160 157
161 158
162 (provide ' " (file-name-nondirectory (buffer-file-name)) ")
163 159
164 ;;; " (file-name-nondirectory (buffer-file-name)) " ends here")) 160 ;;; " (file-name-nondirectory (buffer-file-name)) " ends here"))
165 "A list specifying text to insert by default into a new file. 161 "A list specifying text to insert by default into a new file.
166 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). 162 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).
167 CONDITION maybe a regexp that must match the new file's name, or it may be 163 CONDITION maybe a regexp that must match the new file's name, or it may be
254 (if after 250 (if after
255 (nconc auto-insert-alist (list (cons key action))) 251 (nconc auto-insert-alist (list (cons key action)))
256 (setq auto-insert-alist (cons (cons key action) 252 (setq auto-insert-alist (cons (cons key action)
257 auto-insert-alist)))))) 253 auto-insert-alist))))))
258 254
259 (provide 'autoinsert)
260
261 ;;; autoinsert.el ends here 255 ;;; autoinsert.el ends here