mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(auto-insert-alist): Quote elisp sample code so as not

Browse Source 
to confuse outline-minor-mode.
This commit is contained in:
Stefan Monnier 2007-05-23 17:29:28 +00:00
parent 12cdb1c15a
commit 31b6b8cde6
2 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2007-05-23 Stefan Monnier <monnier@iro.umontreal.ca>
* autoinsert.el (auto-insert-alist): Quote elisp sample code so as not
to confuse outline-minor-mode.
2007-05-23 Eli Zaretskii <eliz@gnu.org> 2007-05-23 Eli Zaretskii <eliz@gnu.org>
* tar-mode.el (tar-file-name-handler): New function. * tar-mode.el (tar-file-name-handler): New function.

32
lisp/autoinsert.el
View File

@ -186,33 +186,33 @@ If this contains a %s, that will be replaced by the matching rule."
(completing-read "Keyword, C-h: " v1 nil t)) (completing-read "Keyword, C-h: " v1 nil t))
str ", ") & -2 " str ", ") & -2 "
;; This file is free software; you can redistribute it and/or modify \;; 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 \;; 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 2, or (at your option)
;; any later version. \;; any later version.
;; This file is distributed in the hope that it will be useful, \;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of \;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the \;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details. \;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License \;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to \;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, \;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA. \;; Boston, MA 02110-1301, USA.
;;; Commentary: \;;; Commentary:
;; " _ " \;; " _ "
;;; Code: \;;; Code:
\(provide '" \(provide '"
(file-name-sans-extension (file-name-nondirectory (buffer-file-name))) (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"))
"A list specifying text to insert by default into a new file. "A list specifying text to insert by default into a new file.
Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).
CONDITION may be 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