Function: delete-space--internal

delete-space--internal is a byte-compiled function defined in simple.el.gz.

Signature

(delete-space--internal CHARS BACKWARD-ONLY)

Documentation

Delete CHARS around point.

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

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun delete-space--internal (chars backward-only)
  "Delete CHARS around point.
If BACKWARD-ONLY is non-nil, delete them only before point."
  (let ((orig-pos (point)))
    (delete-region
     (if backward-only
         orig-pos
       (progn
         (skip-chars-forward chars)
         (constrain-to-field nil orig-pos t)))
     (progn
       (skip-chars-backward chars)
       (constrain-to-field nil orig-pos)))))