diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-09-28 18:45:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-09-28 18:45:58 +0000 |
| commit | fa601de5de492eceef93d6c4d76378e4edf0111f (patch) | |
| tree | 109406fb44985858fe142352f5acc3a693dff12e /lisp/international | |
| parent | 2fc739195a2c08a29bf7fbf25e7ae37cd2d8b6e6 (diff) | |
| download | emacs-fa601de5de492eceef93d6c4d76378e4edf0111f.tar.gz | |
(after-insert-file-set-coding):
If VISIT, don't let set-buffer-multibyte make undo info.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/mule.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 31e3b5cedb0..cea1a917be5 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1864,7 +1864,13 @@ The optional second arg VISIT non-nil means that we are visiting a file." (let ((pos-marker (copy-marker (+ (point) inserted))) ;; Prevent locking. (buffer-file-name nil)) - (set-buffer-multibyte nil) + (if visit + ;; If we're doing this for find-file, + ;; don't record undo info; this counts as + ;; part of producing the buffer's initial contents. + (let ((buffer-undo-list t)) + (set-buffer-multibyte nil)) + (set-buffer-multibyte nil)) (setq inserted (- pos-marker (point))))) (set-buffer-modified-p modified-p)))) inserted) |