Mercurial > emacs
comparison lisp/simple.el @ 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 | 8ba6f9709cff |
| children | 7b7874738e7c |
comparison
equal
deleted
inserted
replaced
| 10778:ace814499178 | 10779:7d9423ce104d |
|---|---|
| 66 (interactive "*p") | 66 (interactive "*p") |
| 67 (let ((char (if (or (not overwrite-mode) | 67 (let ((char (if (or (not overwrite-mode) |
| 68 (eq overwrite-mode 'overwrite-mode-binary)) | 68 (eq overwrite-mode 'overwrite-mode-binary)) |
| 69 (read-quoted-char) | 69 (read-quoted-char) |
| 70 (read-char)))) | 70 (read-char)))) |
| 71 (if (eq overwrite-mode 'overwrite-mode-binary) | 71 (if (> arg 0) |
| 72 (delete-char arg)) | 72 (if (eq overwrite-mode 'overwrite-mode-binary) |
| 73 (insert-char char arg))) | 73 (delete-char arg))) |
| 74 (while (> arg 0) | |
| 75 (insert-and-inherit char) | |
| 76 (setq arg (1- arg))))) | |
| 74 | 77 |
| 75 (defun delete-indentation (&optional arg) | 78 (defun delete-indentation (&optional arg) |
| 76 "Join this line to previous and fix up whitespace at join. | 79 "Join this line to previous and fix up whitespace at join. |
| 77 If there is a fill prefix, delete it from the beginning of this line. | 80 If there is a fill prefix, delete it from the beginning of this line. |
| 78 With argument, join this line to following line." | 81 With argument, join this line to following line." |