[Emacs-diffs] Changes to emacs/lisp/image-mode.el

[D . Goel]

Index: emacs/lisp/image-mode.el
diff -c emacs/lisp/image-mode.el:1.6 emacs/lisp/image-mode.el:1.7
*** emacs/lisp/image-mode.el:1.6        Mon Jul  4 23:08:55 2005
--- emacs/lisp/image-mode.el    Sun Sep 18 12:25:02 2005
***************
*** 66,72 ****
      ;; variables were cleared by kill-all-local-variables
      (setq cursor-type nil truncate-lines t))
    (run-mode-hooks 'image-mode-hook)
!   (message (concat (substitute-command-keys
                    "Type \\[image-toggle-display] to view the image as ")
                   (if (get-text-property (point-min) 'display)
                       "text" "an image") ".")))
--- 66,72 ----
      ;; variables were cleared by kill-all-local-variables
      (setq cursor-type nil truncate-lines t))
    (run-mode-hooks 'image-mode-hook)
!   (message "%s" (concat (substitute-command-keys
                    "Type \\[image-toggle-display] to view the image as ")
                   (if (get-text-property (point-min) 'display)
                       "text" "an image") ".")))
***************
*** 84,90 ****
      (if (get-text-property (point-min) 'display)
        (setq cursor-type nil truncate-lines t))
      (add-hook 'change-major-mode-hook (lambda () (image-minor-mode -1)) nil t)
!     (message (concat (substitute-command-keys
                      "Type \\[image-toggle-display] to view the image as ")
                     (if (get-text-property (point-min) 'display)
                         "text" "an image") "."))))
--- 84,90 ----
      (if (get-text-property (point-min) 'display)
        (setq cursor-type nil truncate-lines t))
      (add-hook 'change-major-mode-hook (lambda () (image-minor-mode -1)) nil t)
!     (message "%s" (concat (substitute-command-keys
                      "Type \\[image-toggle-display] to view the image as ")
                     (if (get-text-property (point-min) 'display)
                         "text" "an image") "."))))