diff options
| author | Johan Bockgård <bojohan@gnu.org> | 2008-03-26 14:13:06 +0000 |
|---|---|---|
| committer | Johan Bockgård <bojohan@gnu.org> | 2008-03-26 14:13:06 +0000 |
| commit | d9dd743ee68a2ee67043f771e40a3717f7ad3a21 (patch) | |
| tree | 23265432340a5471104cc2c33341f110d364ec1b /lisp/emacs-lisp/lisp-mnt.el | |
| parent | 67b17989152be41fa61330eb638fe7c399933414 (diff) | |
| download | emacs-d9dd743ee68a2ee67043f771e40a3717f7ad3a21.tar.gz | |
(lm-with-file): Use mode and syntax table for Emacs Lisp, not Lisp.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mnt.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 9 |
1 files changed, 5 insertions, 4 deletions
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) |