procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lm-with-file): Use mode and syntax table for Emacs Lisp, not Lisp.

Browse source
This commit is contained in:
Johan Bockgård 2008-03-26 14:13:06 +00:00
parent 67b1798915
commit d9dd743ee6
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/lisp-mnt.el
View file

@ -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)