From d0c26c63e84207acf52e31f6e793ef055e4cb031 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 16 Nov 1998 01:17:06 +0000 Subject: [PATCH] (after-insert-file-set-buffer-file-coding-system): If the buffer is changed to unibyte, return inserted bytes. --- lisp/international/mule.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 5235d6721c0..54d1cda86a5 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -953,15 +953,18 @@ function by default." (modified-p (buffer-modified-p))) (when coding-system (set-buffer-file-coding-system coding-system) - (if (and (or (eq coding-system 'no-conversion) + (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)) ;; For coding systems no-conversion and raw-text..., ;; edit the buffer as unibyte. - (set-buffer-multibyte nil)) + (let ((pos-byte (position-bytes (+ (point) inserted)))) + (set-buffer-multibyte nil) + (setq inserted (- pos-byte (position-bytes (point)))))) (set-buffer-modified-p modified-p)))) - nil) + inserted) (add-hook 'after-insert-file-functions 'after-insert-file-set-buffer-file-coding-system) -- 2.39.2