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." |