(quoted-insert): Use insert-and-inherit.

Don't change buffer if arg is negative.

diff --git a/lisp/simple.el b/lisp/simple.el
index df5c655b3c92c273ea9f2d9cde59b5f40aefa06c..fff374342cb1b516eb546d6ecbcae61ac30d4c6a 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -68,9 +68,12 @@ this function useful in editing binary files."
                      (eq overwrite-mode 'overwrite-mode-binary))
                  (read-quoted-char)
                (read-char))))
-    (if (eq overwrite-mode 'overwrite-mode-binary)
-       (delete-char arg))
-    (insert-char char arg)))
+    (if (> arg 0)
+       (if (eq overwrite-mode 'overwrite-mode-binary)
+           (delete-char arg)))
+    (while (> arg 0)
+      (insert-and-inherit char)
+      (setq arg (1- arg)))))
 
 (defun delete-indentation (&optional arg)
   "Join this line to previous and fix up whitespace at join.