diff options
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index e4c742b56f4..a414fc77a39 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -3346,16 +3346,16 @@ and KILLP is t if a prefix arg was specified." | |||
| 3346 | (delete-char 1))) | 3346 | (delete-char 1))) |
| 3347 | (forward-char -1) | 3347 | (forward-char -1) |
| 3348 | (setq count (1- count)))))) | 3348 | (setq count (1- count)))))) |
| 3349 | (delete-backward-char | 3349 | (let* ((skip (cond ((eq backward-delete-char-untabify-method 'hungry) " \t") |
| 3350 | (let ((skip (cond ((eq backward-delete-char-untabify-method 'hungry) " \t") | ||
| 3351 | ((eq backward-delete-char-untabify-method 'all) | 3350 | ((eq backward-delete-char-untabify-method 'all) |
| 3352 | " \t\n\r")))) | 3351 | " \t\n\r"))) |
| 3353 | (if skip | 3352 | (n (if skip |
| 3354 | (let ((wh (- (point) (save-excursion (skip-chars-backward skip) | 3353 | (let ((wh (- (point) (save-excursion (skip-chars-backward skip) |
| 3355 | (point))))) | 3354 | (point))))) |
| 3356 | (+ arg (if (zerop wh) 0 (1- wh)))) | 3355 | (+ arg (if (zerop wh) 0 (1- wh)))) |
| 3357 | arg)) | 3356 | arg))) |
| 3358 | killp)) | 3357 | ;; Avoid warning about delete-backward-char |
| 3358 | (with-no-warnings (delete-backward-char n killp)))) | ||
| 3359 | 3359 | ||
| 3360 | (defun zap-to-char (arg char) | 3360 | (defun zap-to-char (arg char) |
| 3361 | "Kill up to and including ARGth occurrence of CHAR. | 3361 | "Kill up to and including ARGth occurrence of CHAR. |