emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]