summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2000-06-08 11:12:03 +0000
committerKenichi Handa <handa@m17n.org>2000-06-08 11:12:03 +0000
commit136e48e4ac0e15a6bf0e915d07be701dd4d7e0d0 (patch)
tree039e959707a670275fd67aafa38bb69de5ab6c5e /lisp
parentd3981b49bf59c655786abdd048ce4198062b4f8f (diff)
downloademacs-136e48e4ac0e15a6bf0e915d07be701dd4d7e0d0.tar.gz
emacs-136e48e4ac0e15a6bf0e915d07be701dd4d7e0d0.tar.bz2
emacs-136e48e4ac0e15a6bf0e915d07be701dd4d7e0d0.zip
(after-insert-file-set-buffer-file-coding-system): If the buffer
size is greater than INSERTED, judget that we are not visiting.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/international/mule.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index f193ef7797f..bd9e75220e6 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1083,8 +1083,10 @@ function by default."
(if (and enable-multibyte-characters
(or (eq coding-system 'no-conversion)
(eq (coding-system-type coding-system) 5))
- ;; If buffer was unmodified, we must be visiting it.
- (not modified-p))
+ ;; If buffer was unmodified and the size is the
+ ;; same as INSERTED, we must be visiting it.
+ (not modified-p)
+ (= (buffer-size) inserted))
;; For coding systems no-conversion and raw-text...,
;; edit the buffer as unibyte.
(let ((pos-byte (position-bytes (+ (point) inserted))))