Mercurial > hg > xemacs-beta
diff lisp/packages/autoinsert.el @ 4:b82b59fe008d r19-15b3
Import from CVS: tag r19-15b3
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:56 +0200 |
parents | ac2d302a0011 |
children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/packages/autoinsert.el Mon Aug 13 08:46:35 2007 +0200 +++ b/lisp/packages/autoinsert.el Mon Aug 13 08:46:56 2007 +0200 @@ -18,7 +18,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with XEmacs; see the file COPYING. If not, write to the Free -;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. ;;; Synched up with: FSF 19.34. @@ -134,19 +135,22 @@ ;; This file is part of XEmacs. -;; XEmacs is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by +;; XEmacs 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. -;; XEmacs 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. +;; XEmacs 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 XEmacs; see the file COPYING. If not, write to -;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Synched up with: Not in FSF ;;; Commentary: @@ -155,6 +159,7 @@ ;;; Code: +(provide ' " (file-name-nondirectory (buffer-file-name)) ") ;;; " (file-name-nondirectory (buffer-file-name)) " ends here")) "A list specifying text to insert by default into a new file. @@ -251,4 +256,6 @@ (setq auto-insert-alist (cons (cons key action) auto-insert-alist)))))) +(provide 'autoinsert) + ;;; autoinsert.el ends here