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

Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 489f57a838ef
children
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
175 ;; " _ " 175 ;; " _ "
176 176
177 ;;; Code: 177 ;;; Code:
178 178
179 179
180 (provide ' " (file-name-nondirectory (buffer-file-name)) ") 180 (provide '" (file-name-sans-extension (file-name-nondirectory
181 181 (buffer-file-name))) ")
182 ;;; " (file-name-nondirectory (buffer-file-name)) " ends here")) 182
183 ;;; " (file-name-nondirectory (buffer-file-name)) " ends here
184 "))
183 "A list specifying text to insert by default into a new file. 185 "A list specifying text to insert by default into a new file.
184 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). 186 Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).
185 CONDITION maybe a regexp that must match the new file's name, or it may be 187 CONDITION maybe a regexp that must match the new file's name, or it may be
186 a symbol that must match the major mode for this element to apply. 188 a symbol that must match the major mode for this element to apply.
187 Only the first matching element is effective. 189 Only the first matching element is effective.