CVS update by aidan xemacs/lisp ...
xemacs-cvs at xemacs.org
xemacs-cvs at xemacs.org
Thu Jun 21 19:27:22 EDT 2007
User: aidan
Date: 07/06/22 01:27:22
Modified: xemacs/lisp ChangeLog files.el
Log:
Pass the NOMODIFY argument to s-b-f-c-s in a few more cases.
Revision Changes Path
1.807 +7 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.806
retrieving revision 1.807
diff -u -p -r1.806 -r1.807
--- ChangeLog 2007/06/21 13:47:55 1.806
+++ ChangeLog 2007/06/21 23:27:13 1.807
@@ -1,3 +1,10 @@
+2007-06-22 Aidan Kehoe <kehoea at parhasard.net>
+
+ * files.el (revert-buffer):
+ * files.el (recover-file):
+ Pass NOMODIFY to set-buffer-file-coding-systems after reverting a
+ buffer and after recovering a file.
+
2007-06-21 Aidan Kehoe <kehoea at parhasard.net>
* msw-faces.el:
1.78 +3 -2 XEmacs/xemacs/lisp/files.el
Index: files.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/files.el,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -p -r1.77 -r1.78
--- files.el 2006/11/30 07:29:36 1.77
+++ files.el 2007/06/21 23:27:16 1.78
@@ -3473,7 +3473,7 @@ Revert only if they differ."
(coding-system-base
buffer-file-coding-system-when-loaded)
buffer-file-coding-system-when-loaded)
- (not adjust-eol))))))
+ (not adjust-eol) t)))))
(goto-char (min opoint (point-max)))
;; Recompute the truename in case changes in symlinks
;; have changed the truename.
@@ -3616,7 +3616,8 @@ Return nil if identical, and the new buf
(coding-system-for-read 'escape-quoted))
(erase-buffer)
(insert-file-contents file-name nil)
- (set-buffer-file-coding-system coding-system))
+ (set-buffer-file-coding-system coding-system
+ nil t))
(after-find-file nil nil t)
(return nil))
(diff
More information about the XEmacs-CVS
mailing list