diff options
| author | Johan Bockgård <[email protected]> | 2008-03-26 14:13:06 +0000 |
|---|---|---|
| committer | Johan Bockgård <[email protected]> | 2008-03-26 14:13:06 +0000 |
| commit | d9dd743ee68a2ee67043f771e40a3717f7ad3a21 (patch) | |
| tree | 23265432340a5471104cc2c33341f110d364ec1b | |
| parent | 67b17989152be41fa61330eb638fe7c399933414 (diff) | |
(lm-with-file): Use mode and syntax table for Emacs Lisp, not Lisp.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 9 |
2 files changed, 10 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e40ec1863e..ddc9e229f8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-03-26 Johan Bockg$(Q)[(Brd <[email protected]> + + * emacs-lisp/lisp-mnt.el (lm-with-file): Use mode and syntax table + for Emacs Lisp, not Lisp. + 2008-03-26 Juanma Barranquero <[email protected]> * 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 ce0bc2c9d8..fa457acec9 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) |