From: Stefan Monnier Date: Mon, 23 Jul 2007 21:49:42 +0000 (+0000) Subject: (ses-cleanup): Prevent Emacs from spuriously checking if the X-Git-Tag: emacs-pretest-22.1.90~1218 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae59e8884655055609aafcd9bf2d405936018802;p=emacs.git (ses-cleanup): Prevent Emacs from spuriously checking if the underlying file is uptodate. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ed3c322922..46624565600 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-07-23 Stefan Monnier + + * ses.el (ses-cleanup): Prevent Emacs from spuriously checking if the + underlying file is uptodate. + 2007-07-23 Richard Stallman * progmodes/octave-inf.el (inferior-octave-prompt): Accept .exe. diff --git a/lisp/ses.el b/lisp/ses.el index 4f51c803de1..c729ca4b432 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -1470,17 +1470,22 @@ Narrows the buffer to show only the print area. Gives it `read-only' and (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 ()