mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(after-insert-file-set-coding):

Browse source 
If VISIT, don't let set-buffer-multibyte make undo info.
This commit is contained in:
Richard M. Stallman 2006-09-28 18:45:58 +00:00
parent 2fc739195a
commit fa601de5de
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/international/mule.el
View file

@ -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)