mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(image-minor-mode): Set cursor-type' and truncate-lines' if the

Browse source 
image is already displayed.  Add turning image-minor-mode off to
`change-major-mode-hook'.  Add message.
Call `image-toggle-display-text' after turning image-minor-mode off.
This commit is contained in:
Juri Linkov 2005-03-25 21:45:47 +00:00
parent e0e6e9b80a
commit 90d0be7d3f
2 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/image-mode.el
View file

@ -79,8 +79,15 @@ See the command `image-mode' for more information on this mode."
nil " Image" image-mode-map
:group 'image
:version "22.1"
(unless (or (eq major-mode 'image-mode) image-minor-mode)
(use-local-map image-mode-map)))
(if (not image-minor-mode)
(image-toggle-display-text)
(if (get-text-property (point-min) 'display)
(setq cursor-type nil truncate-lines t))
(add-hook 'change-major-mode-hook (lambda () (image-minor-mode -1)) nil t)
(message (concat (substitute-command-keys
"Type \\[image-toggle-display] to view the image as ")
(if (get-text-property (point-min) 'display)
"text" "an image") "."))))
;;;###autoload
(defun image-mode-maybe ()