mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(ses-cleanup): Prevent Emacs from spuriously checking if the

Browse Source 
underlying file is uptodate.
This commit is contained in:
Stefan Monnier 2007-07-23 21:49:42 +00:00
parent 6145f7fdfe
commit ae59e88846
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

11
lisp/ses.el
View File

@ -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 ()