diff lisp/emacs-lisp/lisp-mnt.el @ 59572:3cd31d377b69

(lm-with-file): Use Lisp mode in temp buffer. In non-temp buffer, switch syntax table temporarily.

--- a/lisp/emacs-lisp/lisp-mnt.el	Sat Jan 15 18:11:33 2005 +0000
+++ b/lisp/emacs-lisp/lisp-mnt.el	Sat Jan 15 18:15:46 2005 +0000
@@ -304,9 +304,14 @@
        (if ,filesym
 	   (with-temp-buffer
 	     (insert-file-contents ,filesym)
+	     (lisp-mode)
 	     ,@body)
 	 (save-excursion 
-	   ,@body)))))
+	   ;; Switching major modes is too drastic, so just switch
+	   ;; temporarily to the Lisp mode syntax table.
+	   (with-syntax-table lisp-mode-syntax-table
+	     ,@body))))))
+
 (put 'lm-with-file 'lisp-indent-function 1)
 (put 'lm-with-file 'edebug-form-spec t)