From 31b6b8cde68588dc176d20f039f9cba00c79feba Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 23 May 2007 17:29:28 +0000 Subject: [PATCH] (auto-insert-alist): Quote elisp sample code so as not to confuse outline-minor-mode. --- lisp/ChangeLog | 5 +++++ lisp/autoinsert.el | 32 ++++++++++++++++---------------- 2 files changed, 21 insertions(+), 16 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5f8f8ef3379..c6c30bd3918 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-05-23 Stefan Monnier + + * autoinsert.el (auto-insert-alist): Quote elisp sample code so as not + to confuse outline-minor-mode. + 2007-05-23 Eli Zaretskii * tar-mode.el (tar-file-name-handler): New function. diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index 7540ad78bcd..3f615dcfbd3 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -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)) str ", ") & -2 " -;; 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 -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. +\;; 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 +\;; the Free Software Foundation; either version 2, or (at your option) +\;; any later version. -;; This file 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. +\;; This file 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 GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. +\;; 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, Inc., 51 Franklin Street, Fifth Floor, +\;; Boston, MA 02110-1301, USA. -;;; Commentary: +\;;; Commentary: -;; " _ " +\;; " _ " -;;; Code: +\;;; Code: \(provide '" (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. 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 -- 2.11.4.GIT