mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

(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

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-03-26 Johan Bockg$(Q)[(Brd <bojohan@gnu.org>
* emacs-lisp/lisp-mnt.el (lm-with-file): Use mode and syntax table
for Emacs Lisp, not Lisp.
2008-03-26 Juanma Barranquero <lekktu@gmail.com> 2008-03-26 Juanma Barranquero <lekktu@gmail.com>
* emacs-lisp/bytecomp.el (byte-compile-obsolete): If no * emacs-lisp/bytecomp.el (byte-compile-obsolete): If no

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

@ -37,7 +37,8 @@
;; Another entry point automatically addresses bug mail to a package's ;; Another entry point automatically addresses bug mail to a package's
;; maintainer or author. ;; 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 ;; This file is an example of the header conventions. Note the following
;; features: ;; features:
@ -305,12 +306,12 @@ If FILE is nil, execute BODY in the current buffer."
(if ,filesym (if ,filesym
(with-temp-buffer (with-temp-buffer
(insert-file-contents ,filesym) (insert-file-contents ,filesym)
(lisp-mode) (emacs-lisp-mode)
,@body) ,@body)
(save-excursion (save-excursion
;; Switching major modes is too drastic, so just switch ;; Switching major modes is too drastic, so just switch
;; temporarily to the Lisp mode syntax table. ;; temporarily to the Emacs Lisp mode syntax table.
(with-syntax-table lisp-mode-syntax-table (with-syntax-table emacs-lisp-mode-syntax-table
,@body)))))) ,@body))))))
(put 'lm-with-file 'lisp-indent-function 1) (put 'lm-with-file 'lisp-indent-function 1)