mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(backward-delete-char-untabify-method): New user option.

Browse Source 
(backward-delete-char-untabify): Obey it.
This implements "hungry" delete.
This commit is contained in:
Richard M. Stallman 1998-03-06 05:51:51 +00:00
parent b4b33e0104
commit cc2b2b6cc8
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/simple.el
View File

@ -322,12 +322,22 @@ column specified by the function `current-left-margin'."
(if (eq arg '-) (setq arg -1)) (if (eq arg '-) (setq arg -1))
(kill-region (point) (forward-point (- arg)))) (kill-region (point) (forward-point (- arg))))
(defcustom backward-delete-char-untabify-method 'untabify
"*The method for untabifying when deleting backward.
Can be `untabify' -- turn a tab to many spaces, then delete one space.
`hungry' -- delete all whitespace, both tabs and spaces.
nil -- just delete one character."
:type '(choice (const untabify) (const hungry) (const nil))
:group 'killing)
(defun backward-delete-char-untabify (arg &optional killp) (defun backward-delete-char-untabify (arg &optional killp)
"Delete characters backward, changing tabs into spaces. "Delete characters backward, changing tabs into spaces.
The exact behavior depends on `backward-delete-char-untabify-method'.
Delete ARG chars, and kill (save in kill ring) if KILLP is non-nil. Delete ARG chars, and kill (save in kill ring) if KILLP is non-nil.
Interactively, ARG is the prefix arg (default 1) Interactively, ARG is the prefix arg (default 1)
and KILLP is t if a prefix arg was specified." and KILLP is t if a prefix arg was specified."
(interactive "*p\nP") (interactive "*p\nP")
(when (eq backward-delete-char-untabify-method 'untabify)
(let ((count arg)) (let ((count arg))
(save-excursion (save-excursion
(while (and (> count 0) (not (bobp))) (while (and (> count 0) (not (bobp)))
@ -338,8 +348,14 @@ and KILLP is t if a prefix arg was specified."
(insert-char ?\ col) (insert-char ?\ col)
(delete-char 1))) (delete-char 1)))
(forward-char -1) (forward-char -1)
(setq count (1- count))))) (setq count (1- count))))))
(delete-backward-char arg killp)) (delete-backward-char
(if (eq backward-delete-char-untabify-method 'hungry)
(let ((wh (- (point) (save-excursion (skip-chars-backward " \t")
(point)))))
(+ arg (if (zerop wh) 0 (1- wh))))
arg)
killp))
(defun zap-to-char (arg char) (defun zap-to-char (arg char)
"Kill up to and including ARG'th occurrence of CHAR. "Kill up to and including ARG'th occurrence of CHAR.