/[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.3 by rms, Mon Mar 21 17:42:36 2005 UTC revision 1.4 by jurta, Fri Mar 25 19:57:21 2005 UTC
# Line 36  Line 36 
36    
37  (require 'image)  (require 'image)
38    
39  ;;;###autoload (push '("\\.jpg\\'" . image-mode) auto-mode-alist)  ;;;###autoload (push '("\\.jpe?g\\'"    . image-mode) auto-mode-alist)
40  ;;;###autoload (push '("\\.jpeg\\'" . image-mode) auto-mode-alist)  ;;;###autoload (push '("\\.png\\'"      . image-mode) auto-mode-alist)
41  ;;;###autoload (push '("\\.gif\\'" . image-mode) auto-mode-alist)  ;;;###autoload (push '("\\.gif\\'"      . image-mode) auto-mode-alist)
42  ;;;###autoload (push '("\\.png\\'" . image-mode) auto-mode-alist)  ;;;###autoload (push '("\\.tiff?\\'"    . image-mode) auto-mode-alist)
43  ;;;###autoload (push '("\\.tiff\\'" . image-mode) auto-mode-alist)  ;;;###autoload (push '("\\.p[bpgn]m\\'" . image-mode) auto-mode-alist)
44  ;;;###autoload (push '("\\.tif\\'" . image-mode) auto-mode-alist)  ;;;###autoload (push '("\\.x[bp]m\\'"   . image-mode-maybe) auto-mode-alist)
 ;;;###autoload (push '("\\.xbm\\'" . image-mode) auto-mode-alist)  
 ;;;###autoload (push '("\\.xpm\\'" . image-mode) auto-mode-alist)  
 ;;;###autoload (push '("\\.pbm\\'" . image-mode) auto-mode-alist)  
 ;;;###autoload (push '("\\.pgm\\'" . image-mode) auto-mode-alist)  
 ;;;###autoload (push '("\\.ppm\\'" . image-mode) auto-mode-alist)  
 ;;;###autoload (push '("\\.pnm\\'" . image-mode) auto-mode-alist)  
45    
46  (defvar image-mode-map  (defvar image-mode-map
47    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
# Line 65  to toggle between display as an image an Line 59  to toggle between display as an image an
59    (setq mode-name "Image")    (setq mode-name "Image")
60    (setq major-mode 'image-mode)    (setq major-mode 'image-mode)
61    (use-local-map image-mode-map)    (use-local-map image-mode-map)
62      (add-hook 'change-major-mode-hook 'image-toggle-display-text nil t)
63      (if (not (get-text-property (point-min) 'display))
64          (image-toggle-display)
65        ;; Set next vars when image is already displayed but local
66        ;; variables were cleared by kill-all-local-variables
67        (setq cursor-type nil truncate-lines t))
68    (run-mode-hooks 'image-mode-hook)    (run-mode-hooks 'image-mode-hook)
69    (message (substitute-command-keys    (message (concat (substitute-command-keys
70              "Type \\[image-toggle-display] to view the image as an image.")))                      "Type \\[image-toggle-display] to view the image as ")
71                       (if (get-text-property (point-min) 'display)
72                           "text" "an image") ".")))
73    
74    ;;;###autoload
75    (define-minor-mode image-minor-mode
76      "Toggle Image minor mode.
77    With arg, turn Image minor mode on if arg is positive, off otherwise.
78    See the command `image-mode' for more information on this mode."
79      nil " Image" image-mode-map
80      :group 'image
81      :version "22.1"
82      (unless (or (eq major-mode 'image-mode) image-minor-mode)
83        (use-local-map image-mode-map)))
84    
85    ;;;###autoload
86    (defun image-mode-maybe ()
87      "Set major or minor mode for image files.
88    Set Image major mode only when there are no other major modes
89    associated with a filename in `auto-mode-alist'.  When an image
90    filename matches another major mode in `auto-mode-alist' then
91    set that major mode and Image minor mode.
92    
93    See commands `image-mode' and `image-minor-mode' for more
94    information on these modes."
95      (interactive)
96      (let* ((mode-alist
97              (delq nil (mapcar
98                         (lambda (elt)
99                           (unless (memq (or (car-safe (cdr elt)) (cdr elt))
100                                         '(image-mode image-mode-maybe))
101                             elt))
102                         auto-mode-alist))))
103        (if (assoc-default buffer-file-name mode-alist 'string-match)
104            (let ((auto-mode-alist mode-alist))
105              (set-auto-mode)
106              (image-minor-mode t))
107          (image-mode))))
108    
109    (defun image-toggle-display-text ()
110      "Showing the text of the image file."
111      (if (get-text-property (point-min) 'display)
112          (image-toggle-display)))
113    
114  (defun image-toggle-display ()  (defun image-toggle-display ()
115    "Start or stop displaying an image file as the actual image.    "Start or stop displaying an image file as the actual image.
# Line 84  and showing the image as an image." Line 126  and showing the image as an image."
126          (set-buffer-modified-p modified)          (set-buffer-modified-p modified)
127          (kill-local-variable 'cursor-type)          (kill-local-variable 'cursor-type)
128          (kill-local-variable 'truncate-lines)          (kill-local-variable 'truncate-lines)
129          (message "Repeat this command to go back to displaying the image"))          (if (called-interactively-p)
130                (message "Repeat this command to go back to displaying the image")))
131      ;; Turn the image data into a real image, but only if the whole file      ;; Turn the image data into a real image, but only if the whole file
132      ;; was inserted      ;; was inserted
133      (let* ((data      (let* ((data
# Line 100  and showing the image as an image." Line 143  and showing the image as an image."
143                        ;; read-only when we're visiting the file (as                        ;; read-only when we're visiting the file (as
144                        ;; opposed to just inserting it).                        ;; opposed to just inserting it).
145                        read-only t front-sticky (read-only)))                        read-only t front-sticky (read-only)))
146               (inhibit-read-only t)
147             (buffer-undo-list t)             (buffer-undo-list t)
148             (modified (buffer-modified-p)))             (modified (buffer-modified-p)))
149        (add-text-properties (point-min) (point-max) props)        (add-text-properties (point-min) (point-max) props)
# Line 110  and showing the image as an image." Line 154  and showing the image as an image."
154        ;; This just makes the arrow displayed in the right fringe        ;; This just makes the arrow displayed in the right fringe
155        ;; area look correct when the image is wider than the window.        ;; area look correct when the image is wider than the window.
156        (setq truncate-lines t)        (setq truncate-lines t)
157        (message "Repeat this command to go back to displaying the file as text"))))        (if (called-interactively-p)
158              (message "Repeat this command to go back to displaying the file as text")))))
159    
160  (provide 'image-mode)  (provide 'image-mode)
161    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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