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

is changed to unibyte, return inserted bytes.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 5235d6721c0feec46e048c0688796072ae23e889..54d1cda86a59c0bb61faca0be9b1a5ba2f0ac77f 100644 (file)
--- 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)