diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-02-17 23:59:43 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-02-17 23:59:43 +0000 |
commit | 39dc8d60a8dac00a9f3d0491b5e4282cdba1dfb2 (patch) | |
tree | bdb957d91a22fe0e8a7911141cc2f40631dda1cf | |
parent | cf7602f6feaa66b9c181e288ea6581944de111da (diff) | |
download | emacs-39dc8d60a8dac00a9f3d0491b5e4282cdba1dfb2.tar.gz |
(quoted-insert): Use insert-and-inherit.
Don't change buffer if arg is negative.
-rw-r--r-- | lisp/simple.el | 9 |
1 files changed, 6 insertions, 3 deletions
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. |