Mercurial > emacs
changeset 87796:69b6b74891ef
(longlines-mode, longlines-show-region)
(longlines-unshow-hard-newlines): Bind buffer-file-name and
buffer-file-truename to nil while modifying buffer.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Wed, 16 Jan 2008 16:23:00 +0000 |
| parents | 299387a1f305 |
| children | 3305ad06c630 |
| files | lisp/longlines.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/longlines.el Wed Jan 16 16:22:29 2008 +0000 +++ b/lisp/longlines.el Wed Jan 16 16:23:00 2008 +0000 @@ -136,7 +136,8 @@ (let ((buffer-undo-list t) (inhibit-read-only t) (after-change-functions nil) - (mod (buffer-modified-p))) + (mod (buffer-modified-p)) + buffer-file-name buffer-file-truename) ;; Turning off undo is OK since (spaces + newlines) is ;; conserved, except for a corner case in ;; longlines-wrap-lines that we'll never encounter from here @@ -176,7 +177,8 @@ (longlines-unshow-hard-newlines)) (let ((buffer-undo-list t) (after-change-functions nil) - (inhibit-read-only t)) + (inhibit-read-only t) + buffer-file-name buffer-file-truename) (if longlines-decoded (save-restriction (widen) @@ -220,7 +222,8 @@ (mod (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) - (inhibit-modification-hooks t)) + (inhibit-modification-hooks t) + buffer-file-name buffer-file-truename) (while pos (put-text-property pos (1+ pos) 'display (copy-sequence longlines-show-effect)) @@ -235,7 +238,8 @@ (mod (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) - (inhibit-modification-hooks t)) + (inhibit-modification-hooks t) + buffer-file-name buffer-file-truename) (while pos (remove-text-properties pos (1+ pos) '(display)) (setq pos (text-property-not-all (1+ pos) (point-max) 'hard nil)))