]> code.delx.au - gnu-emacs/blobdiff - lisp/autoinsert.el
delx.au / code / gnu-emacs / blobdiff
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
(message2_nolog): Fix arg types.
[gnu-emacs] / lisp / autoinsert.el
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index c6aab8ff11c0913d13f3a23782f40598e3a14dd5..9f4803a1a2a09aeeced3869e50a3f2160b7a3cc9 100644 (file)
--- a/lisp/autoinsert.el
+++ b/lisp/autoinsert.el
@@ -1,8 +1,10 @@
 ;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
+
 ;; Copyright (C) 1985, 1986, 1987, 1994, 1995 Free Software Foundation, Inc.
 
 ;; Author: Charlie Martin <crm@cs.duke.edu>
 ;; Adapted-By: Daniel.Pfeiffer@Informatik.START.dbp.de, fax (+49 69) 7588-2389
+;; Maintainer: FSF
 
 ;; This file is part of GNU Emacs.
 
@@ -17,8 +19,9 @@
 ;; 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, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; 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.
 
 ;;; Commentary:
 
@@ -86,15 +89,7 @@ If this contains a %s, that will be replaced by the matching rule.")
 
     ("[Mm]akefile\\'" . "makefile.inc")
 
-    ("\\.html\\'"
-     nil
-     "<html>\n"
-     "<head>\n"
-     "<title>" _ "</title>\n"
-     "</head>\n"
-     "<body>\n\n"
-     "</body>\n"
-     "</html>")
+    (html-mode . (lambda () (sgml-tag "html")))
     
     (plain-tex-mode . "tex-insert.tex")
     (bibtex-mode . "tex-insert.tex")
@@ -152,7 +147,8 @@ If this contains a %s, that will be replaced by the matching rule.")
 
 ;; 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, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
@@ -257,4 +253,6 @@ or if CONDITION had no actions, after all other CONDITIONs."
        (setq auto-insert-alist (cons (cons key action)
                                      auto-insert-alist))))))
 
+(provide 'autoinsert)
+
 ;;; autoinsert.el ends here