Mercurial > hg > xemacs-beta

comparison lisp/packages/autoinsert.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b82b59fe008d
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
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, 675 Mass Ave, Cambridge, MA 02139, USA.
22 22
23 ;;; Synched up with: FSF 19.30. 23 ;;; Synched up with: FSF 19.34.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;; The following defines an association list for text to be 27 ;; The following defines an association list for text to be
28 ;; automatically inserted when a new file is created, and a function 28 ;; automatically inserted when a new file is created, and a function
86 (file-name-nondirectory (c-companion-file 'name))) & ?\" 86 (file-name-nondirectory (c-companion-file 'name))) & ?\"
87 | -10) 87 | -10)
88 88
89 ("[Mm]akefile\\'" . "makefile.inc") 89 ("[Mm]akefile\\'" . "makefile.inc")
90 90
91 ("\\.html\\'" 91 (html-mode . (lambda () (sgml-tag "html")))
92 nil 92
93 "<html>\n"
94 "<head>\n"
95 "<title>" _ "</title>\n"
96 "</head>\n"
97 "<body>\n\n"
98 "</body>\n"
99 "</html>")
100
101 (plain-tex-mode . "tex-insert.tex") 93 (plain-tex-mode . "tex-insert.tex")
102 (bibtex-mode . "tex-insert.tex") 94 (bibtex-mode . "tex-insert.tex")
103 (latex-mode 95 (latex-mode
104 ;; should try to offer completing read for these 96 ;; should try to offer completing read for these
105 "options, RET: " 97 "options, RET: "
138 "\n")) 130 "\n"))
139 ((let ((minibuffer-help-form v2)) 131 ((let ((minibuffer-help-form v2))
140 (completing-read "Keyword, C-h: " v1 nil t)) 132 (completing-read "Keyword, C-h: " v1 nil t))
141 str ", ") & -2 " 133 str ", ") & -2 "
142 134
143 ;; This file is part of GNU Emacs. 135 ;; This file is part of XEmacs.
144 136
145 ;; GNU Emacs is free software; you can redistribute it and/or modify 137 ;; XEmacs is free software; you can redistribute it and/or modify
146 ;; it under the terms of the GNU General Public License as published by 138 ;; it under the terms of the GNU General Public License as published by
147 ;; the Free Software Foundation; either version 2, or (at your option) 139 ;; the Free Software Foundation; either version 2, or (at your option)
148 ;; any later version. 140 ;; any later version.
149 141
150 ;; GNU Emacs is distributed in the hope that it will be useful, 142 ;; XEmacs is distributed in the hope that it will be useful,
151 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 143 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
152 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 144 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
153 ;; GNU General Public License for more details. 145 ;; GNU General Public License for more details.
154 146
155 ;; You should have received a copy of the GNU General Public License 147 ;; You should have received a copy of the GNU General Public License
156 ;; along with GNU Emacs; see the file COPYING. If not, write to 148 ;; along with XEmacs; see the file COPYING. If not, write to
157 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 149 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
158 150
159 ;;; Commentary: 151 ;;; Commentary:
160 152
161 ;; " _ " 153 ;; " _ "