[Emacs-diffs] /srv/bzr/emacs/trunk r100439: * image-mode.el (image-mode): Add image-after-revert-hook to after-revert-hook.

[Juri Linkov]

------------------------------------------------------------
revno: 100439
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Tue 2010-05-25 19:03:53 +0300
message:
  * image-mode.el (image-mode): Add image-after-revert-hook to 
after-revert-hook.
  (image-after-revert-hook): New function.  (Bug#5669)
modified:
  lisp/ChangeLog
  lisp/image-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-05-25 15:54:53 +0000
+++ b/lisp/ChangeLog    2010-05-25 16:03:53 +0000
@@ -1,5 +1,11 @@
 2010-05-25  Juri Linkov  <address@hidden>
 
+       * image-mode.el (image-mode): Add image-after-revert-hook to
+       after-revert-hook.
+       (image-after-revert-hook): New function.  (Bug#5669)
+
+2010-05-25  Juri Linkov  <address@hidden>
+
        * image.el (image-animated-p): When delay between animated images
        is 0, set it to 10 (0.1 sec).  (Bug#6258)
 

=== modified file 'lisp/image-mode.el'
--- a/lisp/image-mode.el        2010-05-22 16:48:01 +0000
+++ b/lisp/image-mode.el        2010-05-25 16:03:53 +0000
@@ -357,6 +357,7 @@
        (image-mode-setup-winprops)
 
        (add-hook 'change-major-mode-hook 'image-toggle-display-text nil t)
+       (add-hook 'after-revert-hook 'image-after-revert-hook nil t)
        (run-mode-hooks 'image-mode-hook)
        (message "%s" (concat
                       (substitute-command-keys
@@ -503,6 +504,14 @@
   (if (image-get-display-property)
       (image-mode-as-text)
     (image-mode)))
+
+(defun image-after-revert-hook ()
+  (when (image-get-display-property)
+    (image-toggle-display-text)
+    ;; Update image display.
+    (redraw-frame (selected-frame))
+    (image-toggle-display-image)))
+
 
 ;;; Support for bookmark.el
 (declare-function bookmark-make-record-default "bookmark"