Commit ec321cad authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

Don't change buffer if arg is negative.
parent 7d0ca249
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment