Mercurial > emacs
comparison lisp/pcvs.el @ 74028:82fde7e4c23b
(cvs-retrieve-revision): Set buffer-file-coding-system.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 17 Nov 2006 02:58:35 +0000 |
| parents | 7e220566994b |
| children | b2e5081b9320 dbe3f29e61d6 |
comparison
equal
deleted
inserted
replaced
| 74027:c05de7bec057 | 74028:82fde7e4c23b |
|---|---|
| 1739 (error "Something went wrong retrieving revision %s: %s" rev res)) | 1739 (error "Something went wrong retrieving revision %s: %s" rev res)) |
| 1740 ;; Figure out the encoding used and decode the byte-sequence | 1740 ;; Figure out the encoding used and decode the byte-sequence |
| 1741 ;; into a sequence of chars. | 1741 ;; into a sequence of chars. |
| 1742 (decode-coding-inserted-region | 1742 (decode-coding-inserted-region |
| 1743 (point-min) (point-max) file t nil nil t) | 1743 (point-min) (point-max) file t nil nil t) |
| 1744 ;; Set buffer-file-coding-system. | |
| 1745 (after-insert-file-set-coding (buffer-size) t) | |
| 1744 (set-buffer-modified-p nil) | 1746 (set-buffer-modified-p nil) |
| 1745 (let ((buffer-file-name (expand-file-name file))) | 1747 (let ((buffer-file-name (expand-file-name file))) |
| 1746 (after-find-file)) | 1748 (after-find-file)) |
| 1747 (toggle-read-only 1) | 1749 (toggle-read-only 1) |
| 1748 (message "Retrieving revision %s... Done" rev) | 1750 (message "Retrieving revision %s... Done" rev) |