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