Mercurial > emacs
comparison lisp/autoinsert.el @ 85054:76282b9aa263
Aaron Hawley <aaronh at garden.org>
(auto-insert-alist): Add a Texinfo entry.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 06 Oct 2007 01:49:53 +0000 |
parents | 03c05458c97e |
children | 8ac891c8317e 14c4a6aac623 |
comparison
equal
deleted
inserted
replaced
85053:2f862d38a4c5 | 85054:76282b9aa263 |
---|---|
210 | 210 |
211 | 211 |
212 \(provide '" | 212 \(provide '" |
213 (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) | 213 (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) |
214 ") | 214 ") |
215 \;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n")) | 215 \;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n") |
216 (("\\.texi\\(nfo\\)?\\'" . "Texinfo file skeleton") | |
217 "Title: " | |
218 "\\input texinfo @c -*-texinfo-*- | |
219 @c %**start of header | |
220 @setfilename " | |
221 (file-name-sans-extension | |
222 (file-name-nondirectory (buffer-file-name))) ".info\n" | |
223 "@settitle " str " | |
224 @c %**end of header | |
225 @copying\n" | |
226 (setq short-description (read-string "Short description: ")) | |
227 ".\n\n" | |
228 "Copyright @copyright{} " (substring (current-time-string) -4) " " | |
229 (getenv "ORGANIZATION") | (progn user-full-name) " | |
230 | |
231 @quotation | |
232 Permission is granted to copy, distribute and/or modify this document | |
233 under the terms of the GNU Free Documentation License, Version 1.1 or | |
234 any later version published by the Free Software Foundation; with no | |
235 Invariant Sections, and no Cover Texts. A copy of the license is | |
236 included in the section entitled ``GNU Free Documentation License.'' | |
237 | |
238 A copy of the license is also available from the Free Software | |
239 Foundation Web site at @url{http://www.gnu.org/licenses/fdl.html}. | |
240 | |
241 @end quotation | |
242 | |
243 The document was typeset with | |
244 @uref{http://www.texinfo.org/, GNU Texinfo}. | |
245 | |
246 @end copying | |
247 | |
248 @titlepage | |
249 @title " str " | |
250 @subtitle " short-description " | |
251 @author " (getenv "ORGANIZATION") | (progn user-full-name) | |
252 " <" (progn user-mail-address) "> | |
253 @page | |
254 @vskip 0pt plus 1filll | |
255 @insertcopying | |
256 @end titlepage | |
257 | |
258 @c Output the table of the contents at the beginning. | |
259 @contents | |
260 | |
261 @ifnottex | |
262 @node Top | |
263 @top " str " | |
264 | |
265 @insertcopying | |
266 @end ifnottex | |
267 | |
268 @c Generate the nodes for this menu with `C-c C-u C-m'. | |
269 @menu | |
270 @end menu | |
271 | |
272 @c Update all node entries with `C-c C-u C-n'. | |
273 @c Insert new nodes with `C-c C-c n'. | |
274 @node Chapter One | |
275 @chapter Chapter One | |
276 | |
277 " _ " | |
278 | |
279 @node Copying This Manual | |
280 @appendix Copying This Manual | |
281 | |
282 @menu | |
283 * GNU Free Documentation License:: License for copying this manual. | |
284 @end menu | |
285 | |
286 @c Get fdl.texi from http://www.gnu.org/licenses/fdl.html | |
287 @include fdl.texi | |
288 | |
289 @node Index | |
290 @unnumbered Index | |
291 | |
292 @printindex cp | |
293 | |
294 @bye | |
295 | |
296 @c " (file-name-nondirectory (buffer-file-name)) " ends here\n")) | |
216 "A list specifying text to insert by default into a new file. | 297 "A list specifying text to insert by default into a new file. |
217 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). | 298 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). |
218 CONDITION may be a regexp that must match the new file's name, or it may be | 299 CONDITION may be a regexp that must match the new file's name, or it may be |
219 a symbol that must match the major mode for this element to apply. | 300 a symbol that must match the major mode for this element to apply. |
220 Only the first matching element is effective. | 301 Only the first matching element is effective. |