(delete-horizontal-space): Handle fields more generally.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 966dc9dd884da3afd8d9738bcdc51a6a1c5f8ec0..03e8a3805782b6569cea0cfb4d14198cc7661a3a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-28  Miles Bader  <miles@gnu.org>
+
+       * simple.el (delete-horizontal-space): Handle fields more generally.
+
 2000-11-28  Gerd Moellmann  <gerd@gnu.org>
 
        * simple.el (delete-horizontal-space): Handle minibuffer prompt.

diff --git a/lisp/simple.el b/lisp/simple.el
index 13020a98a52ba1cd364518979c49a49d134348bc..5331bcd52c6588d29747e291982b2ec172649bdf 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -332,9 +332,8 @@ Leave one space or none, according to the context."
 (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."