(with-buffer-prepared-for-jit-lock): Swap the `let' and

the `with-buffer-unmodified' to avoid useless `readlink' calls.

1 files changed, 11 insertions, 9 deletions

diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index 384771e4f25..786d2b16c48 100644
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -45,15 +45,17 @@
     "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)
-	    (inhibit-read-only t)
-	    (inhibit-point-motion-hooks t)
-	    (inhibit-modification-hooks t)
-	    deactivate-mark
-	    buffer-file-name
-	    buffer-file-truename)
-	,@body))))
+    `(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))))