Mercurial > emacs
comparison lisp/international/mule.el @ 50529:6f2a35c77d07
Set after-insert-file-adjust-coding-function to
after-insert-file-set-buffer-file-coding-system instead of adding it
to after-insert-file-functions.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 10 Apr 2003 11:59:45 +0000 |
| parents | 15141bb6dc1f |
| children | 589dbff3b754 |
comparison
equal
deleted
inserted
replaced
| 50528:dae46d521201 | 50529:6f2a35c77d07 |
|---|---|
| 1715 (set-buffer-multibyte nil) | 1715 (set-buffer-multibyte nil) |
| 1716 (setq inserted (- pos-byte (position-bytes (point)))))) | 1716 (setq inserted (- pos-byte (position-bytes (point)))))) |
| 1717 (set-buffer-modified-p modified-p)))) | 1717 (set-buffer-modified-p modified-p)))) |
| 1718 inserted) | 1718 inserted) |
| 1719 | 1719 |
| 1720 (add-hook 'after-insert-file-functions | 1720 (setq after-insert-file-adjust-coding-function |
| 1721 'after-insert-file-set-buffer-file-coding-system) | 1721 'after-insert-file-set-buffer-file-coding-system) |
| 1722 | 1722 |
| 1723 ;; The coding-spec and eol-type of coding-system returned is decided | 1723 ;; The coding-spec and eol-type of coding-system returned is decided |
| 1724 ;; independently in the following order. | 1724 ;; independently in the following order. |
| 1725 ;; 1. That of buffer-file-coding-system locally bound. | 1725 ;; 1. That of buffer-file-coding-system locally bound. |
| 1726 ;; 2. That of CODING. | 1726 ;; 2. That of CODING. |