From: Juri Linkov <juri@jurta.org>
Date: Tue, 25 May 2010 16:03:53 +0000 (+0300)
Subject: * image-mode.el (image-mode): Add image-after-revert-hook to after-revert-hook.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~190
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0fb1193d6c3923cb3b2033e75f81a769ff2860f2;p=emacs.git

* 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 cfc0f927346..691db07cc4c 100644
--- 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 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"