# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 793065583 0
# Node ID 7d9423ce104dce1918978eb57940606e4aecc82e
# Parent  ace8144991789ddc08096884d7087a619bf2fd78
(quoted-insert): Use insert-and-inherit.
Don't change buffer if arg is negative.

diff -r ace814499178 -r 7d9423ce104d lisp/simple.el
--- a/lisp/simple.el	Fri Feb 17 23:25:17 1995 +0000
+++ b/lisp/simple.el	Fri Feb 17 23:59:43 1995 +0000
@@ -68,9 +68,12 @@
 		      (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.