Mercurial > emacs
comparison lisp/image-mode.el @ 80655:bfcd3905d0e4
(image-mode): Set image-mode-text-map when image cannot be displayed.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 30 Jul 2008 13:38:28 +0000 |
| parents | 73661ddc7ac7 |
| children | 5b546e629ab2 |
comparison
equal
deleted
inserted
replaced
| 80654:c2235fc45f89 | 80655:bfcd3905d0e4 |
|---|---|
| 206 (interactive) | 206 (interactive) |
| 207 (kill-all-local-variables) | 207 (kill-all-local-variables) |
| 208 (setq mode-name "Image") | 208 (setq mode-name "Image") |
| 209 (setq major-mode 'image-mode) | 209 (setq major-mode 'image-mode) |
| 210 (add-hook 'change-major-mode-hook 'image-toggle-display-text nil t) | 210 (add-hook 'change-major-mode-hook 'image-toggle-display-text nil t) |
| 211 (if (and (display-images-p) | 211 (if (display-images-p) |
| 212 (not (get-text-property (point-min) 'display))) | 212 (if (not (image-get-display-property)) |
| 213 (image-toggle-display) | 213 (image-toggle-display) |
| 214 ;; Set next vars when image is already displayed but local | 214 ;; Set next vars when image is already displayed but local |
| 215 ;; variables were cleared by kill-all-local-variables | 215 ;; variables were cleared by kill-all-local-variables |
| 216 (use-local-map image-mode-map) | 216 (use-local-map image-mode-map) |
| 217 (setq cursor-type nil truncate-lines t)) | 217 (setq cursor-type nil truncate-lines t)) |
| 218 (use-local-map image-mode-text-map)) | |
| 218 (run-mode-hooks 'image-mode-hook) | 219 (run-mode-hooks 'image-mode-hook) |
| 219 (if (display-images-p) | 220 (if (display-images-p) |
| 220 (message "%s" (concat | 221 (message "%s" (concat |
| 221 (substitute-command-keys | 222 (substitute-command-keys |
| 222 "Type \\[image-toggle-display] to view as ") | 223 "Type \\[image-toggle-display] to view as ") |