From d2e9b790b7512af4044eb3f4b7b467f0ec54e2a0 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 7 Feb 2009 15:29:11 +0000 Subject: [PATCH] (image-mode): Always set image-type. (image-minor-mode): Likewise. --- lisp/ChangeLog | 5 +++++ lisp/image-mode.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cb04a520e5f..1b0e40ef29c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-02-07 Andreas Schwab + + * image-mode.el (image-mode): Always set image-type. + (image-minor-mode): Likewise. + 2009-02-07 Eli Zaretskii * mail/rmailedit.el (rmail-cease-edit): Look for the message's diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 638f2516741..a5298d8eaa7 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -321,7 +321,6 @@ You can use \\\\[image-toggle-display] to toggle between display as an image and display as text." (interactive) (kill-all-local-variables) - (setq mode-name "Image[text]") (setq major-mode 'image-mode) ;; Use our own bookmarking function for images. (set (make-local-variable 'bookmark-make-record-function) @@ -337,8 +336,11 @@ to toggle between display as an image and display as text." ;; Set next vars when image is already displayed but local ;; variables were cleared by kill-all-local-variables (use-local-map image-mode-map) - (setq cursor-type nil truncate-lines t)) + (setq cursor-type nil truncate-lines t + image-type (plist-get (cdr (image-get-display-property)) :type))) + (setq image-type "text") (use-local-map image-mode-text-map)) + (setq mode-name (format "Image[%s]" image-type)) (run-mode-hooks 'image-mode-hook) (if (display-images-p) (message "%s" (concat @@ -362,7 +364,8 @@ See the command `image-mode' for more information on this mode." (if (display-images-p) (if (not (image-get-display-property)) (image-toggle-display) - (setq cursor-type nil truncate-lines t)) + (setq cursor-type nil truncate-lines t + image-type (plist-get (cdr (image-get-display-property)) :type))) (setq image-type "text") (use-local-map image-mode-text-map)) (if (display-images-p) -- 2.39.5