[Emacs-diffs] emacs/lisp ChangeLog jit-lock.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/02/14 21:41:28

Modified files:
        lisp           : ChangeLog jit-lock.el 

Log message:
        (with-buffer-prepared-for-jit-lock): Swap the `let' and
        the `with-buffer-unmodified' to avoid useless `readlink' calls.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15331&r2=1.15332
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/jit-lock.el?cvsroot=emacs&r1=1.66&r2=1.67

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15331
retrieving revision 1.15332
diff -u -b -r1.15331 -r1.15332
--- ChangeLog   14 Feb 2009 16:58:04 -0000      1.15331
+++ ChangeLog   14 Feb 2009 21:41:26 -0000      1.15332
@@ -1,3 +1,8 @@
+2009-02-14  Stefan Monnier  <address@hidden>
+
+       * jit-lock.el (with-buffer-prepared-for-jit-lock): Swap the `let' and
+       the `with-buffer-unmodified' to avoid useless `readlink' calls.
+
 2009-02-14  Roland Winkler  <address@hidden>
 
        * textmodes/bibtex.el (bibtex-global-key-alist)
@@ -18,8 +23,8 @@
        around forms that refer to translation-table-for-input.
 
        * international/quail.el (quail-input-string-to-events)
-       (quail-store-decode-map-key, quail-char-equal-p): Use
-       `with-no-warnings' around forms that refer to
+       (quail-store-decode-map-key, quail-char-equal-p):
+       Use `with-no-warnings' around forms that refer to
        translation-table-for-input.
 
        * simple.el (quoted-insert, zap-to-char): Use `with-no-warnings'

Index: jit-lock.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/jit-lock.el,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -b -r1.66 -r1.67
--- jit-lock.el 5 Jan 2009 03:19:27 -0000       1.66
+++ jit-lock.el 14 Feb 2009 21:41:28 -0000      1.67
@@ -45,14 +45,16 @@
     "Execute BODY in current buffer, overriding several variables.
 Preserves the `buffer-modified-p' state of the current buffer."
     (declare (debug t))
-    `(with-buffer-unmodified
-      (let ((buffer-undo-list t)
+    `(let ((buffer-undo-list t)
            (inhibit-read-only t)
            (inhibit-point-motion-hooks t)
            (inhibit-modification-hooks t)
            deactivate-mark
            buffer-file-name
            buffer-file-truename)
+       ;; Do reset the modification status from within the let, since
+       ;; otherwise set-buffer-modified-p may try to unlock the file.
+       (with-buffer-unmodified
        ,@body))))