[Emacs-diffs] emacs/lisp image-mode.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/02/12 21:48:55

Modified files:
        lisp           : image-mode.el 

Log message:
        (image-toggle-display): Let-bind `buffer-file-truename' to nil around 
the
        call to `add-text-properties' to prevent directory time modification by
        lock_file.  Replace `set-buffer-modified-p' with
        `restore-buffer-modified-p'.  (Bug#2295)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/image-mode.el?cvsroot=emacs&r1=1.55&r2=1.56

Patches:
Index: image-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/image-mode.el,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -b -r1.55 -r1.56
--- image-mode.el       7 Feb 2009 15:29:14 -0000       1.55
+++ image-mode.el       12 Feb 2009 21:48:55 -0000      1.56
@@ -457,8 +457,9 @@
           (buffer-undo-list t)
           (modified (buffer-modified-p)))
       (image-refresh image)
+      (let ((buffer-file-truename nil)) ; avoid changing dir mtime by lock_file
       (add-text-properties (point-min) (point-max) props)
-      (set-buffer-modified-p modified)
+       (restore-buffer-modified-p modified))
       ;; Inhibit the cursor when the buffer contains only an image,
       ;; because cursors look very strange on top of images.
       (setq cursor-type nil)