mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 05:21:37 -07:00
Code Issues Projects Releases Wiki Activity

Set image-mode-text-map when image cannot be displayed.

Browse source
This commit is contained in:
Chong Yidong 2008-07-30 13:35:50 +00:00
parent a2716a8e13
commit bb43424bfb
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/image-mode.el
View file

@ -290,11 +290,9 @@ This variable is used to display the current image type in the mode line.")
(let ((map (make-sparse-keymap)))
(suppress-keymap map)
(define-key map "q" 'quit-window)
;;
(define-key map "\C-c\C-c" 'image-toggle-display)
(define-key map (kbd "SPC") 'image-scroll-up)
(define-key map (kbd "DEL") 'image-scroll-down)
;;
(define-key map [remap forward-char] 'image-forward-hscroll)
(define-key map [remap backward-char] 'image-backward-hscroll)
(define-key map [remap previous-line] 'image-previous-line)
@ -333,13 +331,14 @@ 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)
(if (and (display-images-p)
(not (image-get-display-property)))
(image-toggle-display)
;; 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))
(if (display-images-p)
(if (not (image-get-display-property))
(image-toggle-display)
;; 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))
(use-local-map image-mode-text-map))
(run-mode-hooks 'image-mode-hook)
(if (display-images-p)
(message "%s" (concat