* image-mode.el (image-mode): Add image-after-revert-hook to after-revert-hook.

(image-after-revert-hook): New function.  (Bug#5669)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cfc0f92734649a8696f3b39914c357fa7cb6d833..691db07cc4c424989ff2c484169f2f7938db68ab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-05-25  Juri Linkov  <juri@jurta.org>
+
+       * 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  <juri@jurta.org>
 
        * image.el (image-animated-p): When delay between animated images

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index f1323563d5dbd542aabc3f4efbbaf21a28918d0d..04a81f9038edefe33c4163f9532c2b47658350c5 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -357,6 +357,7 @@ to toggle between display as an image and display as text."
        (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 @@ the image file and `image-mode' showing the image as an image."
   (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)))
+
 \f
 ;;; Support for bookmark.el
 (declare-function bookmark-make-record-default "bookmark"