[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/image-mode.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/image-mode.el |
Date: |
Fri, 25 Mar 2005 16:44:13 -0500 |
Index: emacs/lisp/image-mode.el
diff -c emacs/lisp/image-mode.el:1.4 emacs/lisp/image-mode.el:1.5
*** emacs/lisp/image-mode.el:1.4 Fri Mar 25 19:57:21 2005
--- emacs/lisp/image-mode.el Fri Mar 25 21:44:13 2005
***************
*** 79,86 ****
nil " Image" image-mode-map
:group 'image
:version "22.1"
! (unless (or (eq major-mode 'image-mode) image-minor-mode)
! (use-local-map image-mode-map)))
;;;###autoload
(defun image-mode-maybe ()
--- 79,93 ----
nil " Image" image-mode-map
:group 'image
:version "22.1"
! (if (not image-minor-mode)
! (image-toggle-display-text)
! (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") "."))))
;;;###autoload
(defun image-mode-maybe ()