Mercurial > emacs
changeset 10779:7d9423ce104d
(quoted-insert): Use insert-and-inherit.
Don't change buffer if arg is negative.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 17 Feb 1995 23:59:43 +0000 |
| parents | ace814499178 |
| children | defbf55d87e2 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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.