From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 17 Feb 1995 23:59:43 +0000 (+0000)
Subject: (quoted-insert): Use insert-and-inherit.
X-Git-Tag: emacs-19.34~5079
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec321cadaabee877726cba760883b704d2a93ee1;p=emacs.git

(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 df5c655b3c9..fff374342cb 100644
--- 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.