Mercurial > emacs
changeset 78200:ece6179ee893
(ses-cleanup): Prevent Emacs from spuriously checking if the
underlying file is uptodate.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 23 Jul 2007 21:49:42 +0000 |
| parents | 9072f82b7b83 |
| children | f85d926dbc61 |
| files | lisp/ChangeLog lisp/ses.el |
| diffstat | 2 files changed, 13 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jul 23 17:55:00 2007 +0000 +++ b/lisp/ChangeLog Mon Jul 23 21:49:42 2007 +0000 @@ -1,3 +1,8 @@ +2007-07-23 Stefan Monnier <monnier@iro.umontreal.ca> + + * ses.el (ses-cleanup): Prevent Emacs from spuriously checking if the + underlying file is uptodate. + 2007-07-23 Richard Stallman <rms@gnu.org> * progmodes/octave-inf.el (inferior-octave-prompt): Accept .exe.
--- a/lisp/ses.el Mon Jul 23 17:55:00 2007 +0000 +++ b/lisp/ses.el Mon Jul 23 21:49:42 2007 +0000 @@ -1470,17 +1470,22 @@ (overlay-put ses--curcell-overlay 'face 'underline)) (defun ses-cleanup () - "Cleanup when changing a buffer from SES mode to something else. Delete -overlay, remove special text properties." + "Cleanup when changing a buffer from SES mode to something else. +Delete overlays, remove special text properties." (widen) (let ((inhibit-read-only t) + ;; When reverting, hide the buffer name, otherwise Emacs will ask + ;; the user "the file is modified, do you really want to make + ;; modifications to this buffer", where the "modifications" refer to + ;; the irrelevant set-text-properties below. + (buffer-file-name nil) (was-modified (buffer-modified-p))) ;;Delete read-only, keymap, and intangible properties (set-text-properties (point-min) (point-max) nil) ;;Delete overlay (mapc 'delete-overlay (overlays-in (point-min) (point-max))) (unless was-modified - (set-buffer-modified-p nil)))) + (restore-buffer-modified-p nil)))) ;;;###autoload (defun ses-mode ()