From d9dd743ee68a2ee67043f771e40a3717f7ad3a21 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Johan=20Bockg=C3=A5rd?= Date: Wed, 26 Mar 2008 14:13:06 +0000 Subject: [PATCH] (lm-with-file): Use mode and syntax table for Emacs Lisp, not Lisp. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/lisp-mnt.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e40ec1863e5..ddc9e229f80 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-03-26 Johan Bockg$(Q)[(Brd + + * emacs-lisp/lisp-mnt.el (lm-with-file): Use mode and syntax table + for Emacs Lisp, not Lisp. + 2008-03-26 Juanma Barranquero * emacs-lisp/bytecomp.el (byte-compile-obsolete): If no diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index ce0bc2c9d86..fa457acec96 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el @@ -37,7 +37,8 @@ ;; Another entry point automatically addresses bug mail to a package's ;; maintainer or author. -;; This file can be loaded by your lisp-mode-hook. Have it (require 'lisp-mnt) +;; This file can be loaded by your emacs-lisp-mode-hook. Have it +;; (require 'lisp-mnt) ;; This file is an example of the header conventions. Note the following ;; features: @@ -305,12 +306,12 @@ If FILE is nil, execute BODY in the current buffer." (if ,filesym (with-temp-buffer (insert-file-contents ,filesym) - (lisp-mode) + (emacs-lisp-mode) ,@body) (save-excursion ;; Switching major modes is too drastic, so just switch - ;; temporarily to the Lisp mode syntax table. - (with-syntax-table lisp-mode-syntax-table + ;; temporarily to the Emacs Lisp mode syntax table. + (with-syntax-table emacs-lisp-mode-syntax-table ,@body)))))) (put 'lm-with-file 'lisp-indent-function 1) -- 2.11.4.GIT