# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 975412452 0
# Node ID 80c90f83320de433afd7a8f6ffdf7635b6c1c640
# Parent  ca22422634ac110ea30dd42882aee02c44f17669
(delete-horizontal-space): Handle minibuffer prompt.

diff -r ca22422634ac -r 80c90f83320d lisp/simple.el
--- a/lisp/simple.el	Tue Nov 28 11:49:05 2000 +0000
+++ b/lisp/simple.el	Tue Nov 28 11:54:12 2000 +0000
@@ -333,7 +333,8 @@
   "Delete all spaces and tabs around point."
   (interactive "*")
   (skip-chars-backward " \t")
-  (delete-region (point) (progn (skip-chars-forward " \t") (point))))
+  (let ((start (max (minibuffer-prompt-end) (point))))
+    (delete-region start (progn (skip-chars-forward " \t") (point)))))
 
 (defun just-one-space ()
   "Delete all spaces and tabs around point, leaving one space."