# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 975416750 0
# Node ID 62222cfac251e1662687a7f2e1b1210d5473ea55
# Parent  459041b5b148529e6ce067b724c5f5f52c798070
(delete-horizontal-space): Handle fields more generally.

diff -r 459041b5b148 -r 62222cfac251 lisp/simple.el
--- 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."