# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1274803433 -10800
# Node ID f2b6722a51139f78b01aa140afcc6dd934850460
# Parent  6c819187f0882920ea891d3df5f306c18a3cd280
* image-mode.el (image-mode): Add image-after-revert-hook to after-revert-hook.
(image-after-revert-hook): New function.  (Bug#5669)

diff -r 6c819187f088 -r f2b6722a5113 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue May 25 18:54:53 2010 +0300
+++ b/lisp/ChangeLog	Tue May 25 19:03:53 2010 +0300
@@ -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 -r 6c819187f088 -r f2b6722a5113 lisp/image-mode.el
--- a/lisp/image-mode.el	Tue May 25 18:54:53 2010 +0300
+++ b/lisp/image-mode.el	Tue May 25 19:03:53 2010 +0300
@@ -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"