(delete-horizontal-space): Use prefix arg.

This commit is contained in:
Richard M. Stallman 2006-12-17 22:14:48 +00:00
parent cc86b31bb9
commit a168699d17

View file

@ -707,7 +707,7 @@ Leave one space or none, according to the context."
(defun delete-horizontal-space (&optional backward-only)
"Delete all spaces and tabs around point.
If BACKWARD-ONLY is non-nil, only delete spaces before point."
(interactive "*")
(interactive "*P")
(let ((orig-pos (point)))
(delete-region
(if backward-only