diff options
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 0e70e83a157..13020a98a52 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -333,7 +333,8 @@ Leave one space or none, according to the context." | |||
| 333 | "Delete all spaces and tabs around point." | 333 | "Delete all spaces and tabs around point." |
| 334 | (interactive "*") | 334 | (interactive "*") |
| 335 | (skip-chars-backward " \t") | 335 | (skip-chars-backward " \t") |
| 336 | (delete-region (point) (progn (skip-chars-forward " \t") (point)))) | 336 | (let ((start (max (minibuffer-prompt-end) (point)))) |
| 337 | (delete-region start (progn (skip-chars-forward " \t") (point))))) | ||
| 337 | 338 | ||
| 338 | (defun just-one-space () | 339 | (defun just-one-space () |
| 339 | "Delete all spaces and tabs around point, leaving one space." | 340 | "Delete all spaces and tabs around point, leaving one space." |