Function: delete-horizontal-space

delete-horizontal-space is an interactive and byte-compiled function defined in simple.el.gz.

Signature

(delete-horizontal-space &optional BACKWARD-ONLY)

Documentation

Delete all spaces and tabs around point.

If BACKWARD-ONLY is non-nil, delete them only before point.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun delete-horizontal-space (&optional backward-only)
  "Delete all spaces and tabs around point.
If BACKWARD-ONLY is non-nil, delete them only before point."
  (interactive "*P")
  (let ((orig-pos (point)))
    (delete-region
     (if backward-only
	 orig-pos
       (progn
	 (skip-chars-forward " \t")
	 (constrain-to-field nil orig-pos t)))
     (progn
       (skip-chars-backward " \t")
       (constrain-to-field nil orig-pos)))))