[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/longlines.el,v
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/longlines.el,v |
Date: |
Wed, 16 Jan 2008 16:23:01 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Martin Rudalics <m061211> 08/01/16 16:23:00
Index: longlines.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/longlines.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- longlines.el 8 Jan 2008 20:44:57 -0000 1.42
+++ longlines.el 16 Jan 2008 16:23:00 -0000 1.43
@@ -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)))