66 |
;; variables were cleared by kill-all-local-variables |
;; variables were cleared by kill-all-local-variables |
67 |
(setq cursor-type nil truncate-lines t)) |
(setq cursor-type nil truncate-lines t)) |
68 |
(run-mode-hooks 'image-mode-hook) |
(run-mode-hooks 'image-mode-hook) |
69 |
(message (concat (substitute-command-keys |
(message "%s" (concat (substitute-command-keys |
70 |
"Type \\[image-toggle-display] to view the image as ") |
"Type \\[image-toggle-display] to view the image as ") |
71 |
(if (get-text-property (point-min) 'display) |
(if (get-text-property (point-min) 'display) |
72 |
"text" "an image") "."))) |
"text" "an image") "."))) |
84 |
(if (get-text-property (point-min) 'display) |
(if (get-text-property (point-min) 'display) |
85 |
(setq cursor-type nil truncate-lines t)) |
(setq cursor-type nil truncate-lines t)) |
86 |
(add-hook 'change-major-mode-hook (lambda () (image-minor-mode -1)) nil t) |
(add-hook 'change-major-mode-hook (lambda () (image-minor-mode -1)) nil t) |
87 |
(message (concat (substitute-command-keys |
(message "%s" (concat (substitute-command-keys |
88 |
"Type \\[image-toggle-display] to view the image as ") |
"Type \\[image-toggle-display] to view the image as ") |
89 |
(if (get-text-property (point-min) 'display) |
(if (get-text-property (point-min) 'display) |
90 |
"text" "an image") ".")))) |
"text" "an image") ".")))) |