[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r100439: * image-mode.el (image-mode)
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r100439: * image-mode.el (image-mode): Add image-after-revert-hook to after-revert-hook. |
Date: |
Tue, 25 May 2010 19:03:53 +0300 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 100439
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Tue 2010-05-25 19:03:53 +0300
message:
* image-mode.el (image-mode): Add image-after-revert-hook to
after-revert-hook.
(image-after-revert-hook): New function. (Bug#5669)
modified:
lisp/ChangeLog
lisp/image-mode.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-05-25 15:54:53 +0000
+++ b/lisp/ChangeLog 2010-05-25 16:03:53 +0000
@@ -1,5 +1,11 @@
2010-05-25 Juri Linkov <address@hidden>
+ * 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 <address@hidden>
+
* image.el (image-animated-p): When delay between animated images
is 0, set it to 10 (0.1 sec). (Bug#6258)
=== modified file 'lisp/image-mode.el'
--- a/lisp/image-mode.el 2010-05-22 16:48:01 +0000
+++ b/lisp/image-mode.el 2010-05-25 16:03:53 +0000
@@ -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"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100439: * image-mode.el (image-mode): Add image-after-revert-hook to after-revert-hook.,
Juri Linkov <=