(if (display-images-p)
(message "%s" (concat
(substitute-command-keys
- "Type \\[image-toggle-display] to view the image as ")
+ "Type \\[image-toggle-display] to view as ")
(if (get-text-property (point-min) 'display)
"text" "an image") "."))))
elt))
auto-mode-alist))))
(if (assoc-default buffer-file-name mode-alist 'string-match)
- (let ((auto-mode-alist mode-alist))
+ (let ((auto-mode-alist mode-alist)
+ (magic-mode-alist nil))
(set-auto-mode)
(image-minor-mode t))
(image-mode))))