/[emacs]/emacs/lisp/image-mode.el
ViewVC logotype

Diff of /emacs/lisp/image-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by lute, Mon Jul 4 23:08:55 2005 UTC revision 1.7 by deego, Sun Sep 18 12:25:02 2005 UTC
# Line 66  to toggle between display as an image an Line 66  to toggle between display as an image an
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") ".")))
# Line 84  See the command `image-mode' for more in Line 84  See the command `image-mode' for more in
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") "."))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26