X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/71925ac335f7c3b1fd97fba98cb5b9b4f03a6e23..1caf5f96e2835462076f13506c9248b217bb12e7:/lisp/autoinsert.el diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index ea3df8efa6..5887529ba4 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -1,6 +1,7 @@ ;;; autoinsert.el --- automatic mode-dependent insertion of text into new files -;; Copyright (C) 1985, 86, 87, 94, 95, 98, 2000, 03 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1994, 1995, 1998, 2000, 2001, 2002, +;; 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. ;; Author: Charlie Martin ;; Adapted-By: Daniel Pfeiffer @@ -11,7 +12,7 @@ ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) +;; the Free Software Foundation; either version 3, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, @@ -21,8 +22,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: @@ -33,7 +34,7 @@ ;; auto-mode-alist. ;; ;; To use: -;; (add-hook 'find-file-hooks 'auto-insert) +;; (add-hook 'find-file-hook 'auto-insert) ;; setq auto-insert-directory to an appropriate slash-terminated value ;; ;; You can also customize the variable `auto-insert-mode' to load the @@ -67,7 +68,7 @@ Insertion is possible when something appropriate is found in `auto-insert-alist'. When the insertion is marked as unmodified, you can save it with \\[write-file] RET. This variable is used when the function `auto-insert' is called, e.g. -when you do (add-hook 'find-file-hooks 'auto-insert). +when you do (add-hook 'find-file-hook 'auto-insert). With \\[auto-insert], this is always treated as if it were t." :type '(choice (const :tag "Insert if possible" t) (const :tag "Do nothing" nil) @@ -139,7 +140,7 @@ If this contains a %s, that will be replaced by the matching rule." (getenv "ORGANIZATION") | (progn user-full-name) " .\\\" You may distribute this file under the terms of the GNU Free -.\\\" Documentation Licence. +.\\\" Documentation License. .TH " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) " " (file-name-extension (buffer-file-name)) " " (format-time-string "%Y-%m-%d ") @@ -185,36 +186,117 @@ If this contains a %s, that will be replaced by the matching rule." (completing-read "Keyword, C-h: " v1 nil t)) str ", ") & -2 " -;; This file is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. +\;; This file is free software; you can redistribute it and/or modify +\;; it under the terms of the GNU General Public License as published by +\;; the Free Software Foundation; either version 3, or (at your option) +\;; any later version. -;; This file is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. +\;; This file is distributed in the hope that it will be useful, +\;; but WITHOUT ANY WARRANTY; without even the implied warranty of +\;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +\;; GNU General Public License for more details. -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +\;; You should have received a copy of the GNU General Public License +\;; along with GNU Emacs; see the file COPYING. If not, write to +\;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +\;; Boston, MA 02110-1301, USA. -;;; Commentary: +\;;; Commentary: -;; " _ " +\;; " _ " -;;; Code: +\;;; Code: \(provide '" (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) ") -;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n")) +\;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n") + (("\\.texi\\(nfo\\)?\\'" . "Texinfo file skeleton") + "Title: " + "\\input texinfo @c -*-texinfo-*- +@c %**start of header +@setfilename " + (file-name-sans-extension + (file-name-nondirectory (buffer-file-name))) ".info\n" + "@settitle " str " +@c %**end of header +@copying\n" + (setq short-description (read-string "Short description: ")) + ".\n\n" + "Copyright @copyright{} " (substring (current-time-string) -4) " " + (getenv "ORGANIZATION") | (progn user-full-name) " + +@quotation +Permission is granted to copy, distribute and/or modify this document +under the terms of the GNU Free Documentation License, Version 1.1 or +any later version published by the Free Software Foundation; with no +Invariant Sections, and no Cover Texts. A copy of the license is +included in the section entitled ``GNU Free Documentation License.'' + +A copy of the license is also available from the Free Software +Foundation Web site at @url{http://www.gnu.org/licenses/fdl.html}. + +@end quotation + +The document was typeset with +@uref{http://www.texinfo.org/, GNU Texinfo}. + +@end copying + +@titlepage +@title " str " +@subtitle " short-description " +@author " (getenv "ORGANIZATION") | (progn user-full-name) + " <" (progn user-mail-address) "> +@page +@vskip 0pt plus 1filll +@insertcopying +@end titlepage + +@c Output the table of the contents at the beginning. +@contents + +@ifnottex +@node Top +@top " str " + +@insertcopying +@end ifnottex + +@c Generate the nodes for this menu with `C-c C-u C-m'. +@menu +@end menu + +@c Update all node entries with `C-c C-u C-n'. +@c Insert new nodes with `C-c C-c n'. +@node Chapter One +@chapter Chapter One + +" _ " + +@node Copying This Manual +@appendix Copying This Manual + +@menu +* GNU Free Documentation License:: License for copying this manual. +@end menu + +@c Get fdl.texi from http://www.gnu.org/licenses/fdl.html +@include fdl.texi + +@node Index +@unnumbered Index + +@printindex cp + +@bye + +@c " (file-name-nondirectory (buffer-file-name)) " ends here\n")) "A list specifying text to insert by default into a new file. Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). -CONDITION maybe a regexp that must match the new file's name, or it may be +CONDITION may be a regexp that must match the new file's name, or it may be a symbol that must match the major mode for this element to apply. Only the first matching element is effective. Optional DESCRIPTION is a string for filling `auto-insert-prompt'. @@ -271,7 +353,7 @@ Matches the visited file name against the elements of `auto-insert-alist'." (eq this-command 'auto-insert)) (y-or-n-p (format auto-insert-prompt desc))) t) - (mapcar + (mapc (lambda (action) (if (stringp action) (if (file-readable-p @@ -326,10 +408,10 @@ When Auto-insert mode is enabled, when new files are created you can insert a template for the file depending on the mode of the buffer." :global t :group 'auto-insert (if auto-insert-mode - (add-hook 'find-file-hooks 'auto-insert) - (remove-hook 'find-file-hooks 'auto-insert))) + (add-hook 'find-file-hook 'auto-insert) + (remove-hook 'find-file-hook 'auto-insert))) (provide 'autoinsert) -;;; arch-tag: 5b6630ac-c735-43cf-b097-b78c622af909 +;; arch-tag: 5b6630ac-c735-43cf-b097-b78c622af909 ;;; autoinsert.el ends here