Mercurial > emacs
changeset 33955:62222cfac251
(delete-horizontal-space): Handle fields more generally.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 28 Nov 2000 13:05:50 +0000 |
| parents | 459041b5b148 |
| children | 6e46ec609e44 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue Nov 28 11:55:48 2000 +0000 +++ b/lisp/simple.el Tue Nov 28 13:05:50 2000 +0000 @@ -332,9 +332,8 @@ (defun delete-horizontal-space () "Delete all spaces and tabs around point." (interactive "*") - (skip-chars-backward " \t") - (let ((start (max (minibuffer-prompt-end) (point)))) - (delete-region start (progn (skip-chars-forward " \t") (point))))) + (skip-chars-backward " \t" (field-beginning)) + (delete-region (point) (progn (skip-chars-forward " \t") (point)))) (defun just-one-space () "Delete all spaces and tabs around point, leaving one space."