(lm-with-file): Use Lisp mode in temp buffer.

In non-temp buffer, switch syntax table temporarily.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ab130e2c09bbc534daad95aaced9a33ff53aafa5..1def811c5c584a70e75a9c7ac99cd4e934cdb813 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,30 @@
+2005-01-15  Richard M. Stallman  <rms@gnu.org>
+
+       * emacs-lisp/lisp-mnt.el (lm-with-file): Use Lisp mode in temp buffer.
+       In non-temp buffer, switch syntax table temporarily.
+
+       * emacs-lisp/lisp-mode.el (indent-pp-sexp): Doc fix.
+
+       * replace.el (occur-accumulate-lines, occur-engine): Avoid warnings.
+
+       * tar-mode.el (tar-extract): Bind buffer-undo-list to t.
+
+       * imenu.el (imenu--split-menu): Copy menulist before sorting.
+       (imenu--generic-function): Use START, not BEG, as pos of definition.
+
+       * simple.el (just-one-space): Argument specifies number of spaces.
+
+       * simple.el (eval-expression-print-format): Avoid warning
+       about edebug-active.
+
+2005-01-15  "James R. Van Zandt"  <jrvz@comcast.net>  (Tiny change)
+
+       * progmodes/sh-script.el: Code copied from make-mode.el
+       with small changes,
+       (sh-mode-map): Bind C-c C-\.
+       (sh-backslash-column, sh-backslash-align): New variables.
+       (sh-backslash-region, sh-append-backslash): New functions.
+       
 2005-01-15  Sergey Poznyakoff  <gray@Mirddin.farlep.net>
 
        * mail/rmail.el: Updated to work with movemail from GNU Mailutils

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index 671f3c8ce2a37c4b0725add2e3714c5c2bc1a36c..701da1c4dec8c653ff0cfac3bdec3e7f8dc95577 100644 (file)
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -304,9 +304,14 @@ If FILE is nil, execute BODY in the current buffer."
        (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)