Function: hui-select-whitespace

hui-select-whitespace is a byte-compiled function defined in hui-select.el.

Signature

(hui-select-whitespace POS)

Documentation

Return (start . end) of all whitespace at POS.

Return all whitespace, unless there is only one character of whitespace or this is leading whitespace on the line.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hui-select.el
(defun hui-select-whitespace (pos)
  "Return (start . end) of all whitespace at POS.
Return all whitespace, unless there is only one character of
whitespace or this is leading whitespace on the line."
  (setq hui-select-previous 'whitespace)
  (save-excursion
    (goto-char pos)
    (if (= (following-char) ?\^L)
	(hui-select-page pos)
      (let ((end (progn (skip-chars-forward " \t") (point)))
	    (start (progn (skip-chars-backward " \t") (point))))
	(when (looking-at "[ \t]")
	  (if (or (bolp) (= (1+ start) end))
	      (hui-select-set-region start end)
	    (hui-select-set-region (1+ start) end)))))))