766 |
(goto-char (point-min)) |
(goto-char (point-min)) |
767 |
(set-auto-coding (or file buffer-file-name "") |
(set-auto-coding (or file buffer-file-name "") |
768 |
(buffer-size)))))) |
(buffer-size)))))) |
769 |
(if (and auto-cs |
(if (and auto-cs coding-system |
770 |
;; Don't barf if writing a compressed file, say. |
;; Don't barf if writing a compressed file, say. |
771 |
;; This check perhaps isn't ideal, but is probably |
;; This check perhaps isn't ideal, but is probably |
772 |
;; the best thing to do. |
;; the best thing to do. |