Mercurial > emacs
comparison lisp/image-mode.el @ 80768:5b546e629ab2
(image-mode): Fix 2008-07-19 change.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Fri, 29 Aug 2008 05:14:17 +0000 |
parents | bfcd3905d0e4 |
children | ab6494b53df0 |
comparison
equal
deleted
inserted
replaced
80767:ba80844316f4 | 80768:5b546e629ab2 |
---|---|
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 (display-images-p) | 211 (if (display-images-p) |
212 (if (not (image-get-display-property)) | 212 (if (not (get-text-property (point-min) 'display)) |
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)) |