[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: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/image-mode.el |
Date: |
Mon, 21 Mar 2005 12:42:36 -0500 |
Index: emacs/lisp/image-mode.el
diff -c emacs/lisp/image-mode.el:1.2 emacs/lisp/image-mode.el:1.3
*** emacs/lisp/image-mode.el:1.2 Fri Mar 18 02:53:44 2005
--- emacs/lisp/image-mode.el Mon Mar 21 17:42:36 2005
***************
*** 43,48 ****
--- 43,49 ----
;;;###autoload (push '("\\.tiff\\'" . image-mode) auto-mode-alist)
;;;###autoload (push '("\\.tif\\'" . image-mode) 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)
***************
*** 75,84 ****
(interactive)
(if (get-text-property (point-min) 'display)
(let ((inhibit-read-only t)
! (buffer-undo-list t))
(remove-list-of-text-properties (point-min) (point-max)
'(display intangible read-nonsticky
read-only front-sticky))
(kill-local-variable 'cursor-type)
(kill-local-variable 'truncate-lines)
(message "Repeat this command to go back to displaying the image"))
--- 76,87 ----
(interactive)
(if (get-text-property (point-min) 'display)
(let ((inhibit-read-only t)
! (buffer-undo-list t)
! (modified (buffer-modified-p)))
(remove-list-of-text-properties (point-min) (point-max)
'(display intangible read-nonsticky
read-only front-sticky))
+ (set-buffer-modified-p modified)
(kill-local-variable 'cursor-type)
(kill-local-variable 'truncate-lines)
(message "Repeat this command to go back to displaying the image"))
***************
*** 97,104 ****
;; read-only when we're visiting the file (as
;; opposed to just inserting it).
read-only t front-sticky (read-only)))
! (buffer-undo-list t))
(add-text-properties (point-min) (point-max) props)
;; Inhibit the cursor when the buffer contains only an image,
;; because cursors look very strange on top of images.
(setq cursor-type nil)
--- 100,109 ----
;; read-only when we're visiting the file (as
;; opposed to just inserting it).
read-only t front-sticky (read-only)))
! (buffer-undo-list t)
! (modified (buffer-modified-p)))
(add-text-properties (point-min) (point-max) props)
+ (set-buffer-modified-p modified)
;; Inhibit the cursor when the buffer contains only an image,
;; because cursors look very strange on top of images.
(setq cursor-type nil)