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

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

2 files changed, 15 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cfc0f927346..691db07cc4c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 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
         is 0, set it to 10 (0.1 sec).  (Bug#6258)
 
diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index f1323563d5d..04a81f9038e 100644
--- 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)))
+
 
 ;;; Support for bookmark.el
 (declare-function bookmark-make-record-default "bookmark"