(cvs-retrieve-revision): Set buffer-file-coding-system.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5b4a5df3186103632b8c3d2b511afd419e0f1ac..decec1e3f3d185873178b5c6ec48fda5afcba6e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * pcvs.el (cvs-retrieve-revision): Set buffer-file-coding-system.
+
 2006-11-16  Chong Yidong  <cyd@stupidchicken.com>
 
        * mouse.el (global-map): Change 2006-08-16 fix to call

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 1f2bad13dcdf5514341b93b014740d6ba48e88b4..52237005d228682799660204935a16a8c54ad0c8 100644 (file)
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -1741,6 +1741,8 @@ Signal an error if there is no backup file."
             ;; into a sequence of chars.
             (decode-coding-inserted-region
              (point-min) (point-max) file t nil nil t)
+            ;; Set buffer-file-coding-system.
+            (after-insert-file-set-coding (buffer-size) t)
            (set-buffer-modified-p nil)
            (let ((buffer-file-name (expand-file-name file)))
              (after-find-file))