From 0fb1193d6c3923cb3b2033e75f81a769ff2860f2 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 25 May 2010 19:03:53 +0300 Subject: [PATCH] * image-mode.el (image-mode): Add image-after-revert-hook to after-revert-hook. (image-after-revert-hook): New function. (Bug#5669) --- lisp/ChangeLog | 6 ++++++ lisp/image-mode.el | 9 +++++++++ 2 files changed, 15 insertions(+) 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 + + * 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 * 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" -- 2.39.2