(after-insert-file-set-buffer-file-coding-system): If the buffer

is changed to unibyte, return inserted bytes.

1 files 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)