diff options
| author | Richard M. Stallman | 1996-02-29 22:00:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-02-29 22:00:50 +0000 |
| commit | 4718d52e19c5a07c1fe07a59b9963ac8f61cabde (patch) | |
| tree | 0cc33eb7c70101a29c17402df2ef5d6ff8e60a1f | |
| parent | 213543f0f9973626f8a6cb21bf4161fd5b06e6d3 (diff) | |
| download | emacs-4718d52e19c5a07c1fe07a59b9963ac8f61cabde.tar.gz emacs-4718d52e19c5a07c1fe07a59b9963ac8f61cabde.zip | |
(backward-delete-char-untabify):
Don't handle overwrite-mode here (done in delete-backward-char).
| -rw-r--r-- | lisp/simple.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index f42c8d860f7..b24e6d87e2d 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -286,11 +286,7 @@ and KILLP is t if a prefix arg was specified." | |||
| 286 | (delete-char 1))) | 286 | (delete-char 1))) |
| 287 | (forward-char -1) | 287 | (forward-char -1) |
| 288 | (setq count (1- count))))) | 288 | (setq count (1- count))))) |
| 289 | (delete-backward-char arg killp) | 289 | (delete-backward-char arg killp)) |
| 290 | ;; In overwrite mode, back over columns while clearing them out, | ||
| 291 | ;; unless at end of line. | ||
| 292 | (and overwrite-mode (not (eolp)) | ||
| 293 | (save-excursion (insert-char ?\ arg)))) | ||
| 294 | 290 | ||
| 295 | (defun zap-to-char (arg char) | 291 | (defun zap-to-char (arg char) |
| 296 | "Kill up to and including ARG'th occurrence of CHAR. | 292 | "Kill up to and including ARG'th occurrence of CHAR. |