Mercurial > hg > xemacs-beta

diff lisp/packages/autoinsert.el @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 489f57a838ef
children
line wrap: on
line diff
--- a/lisp/packages/autoinsert.el	Mon Aug 13 10:05:01 2007 +0200
+++ b/lisp/packages/autoinsert.el	Mon Aug 13 10:05:51 2007 +0200
@@ -177,9 +177,11 @@
 ;;; Code:
 
 
-(provide ' " (file-name-nondirectory (buffer-file-name)) ")
+(provide '" (file-name-sans-extension (file-name-nondirectory
+(buffer-file-name))) ")
 
-;;; " (file-name-nondirectory (buffer-file-name)) " ends here"))
+;;; " (file-name-nondirectory (buffer-file-name)) " ends here
+"))
   "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