Function: hui-select-delimited-thing-call

hui-select-delimited-thing-call is a byte-compiled function defined in hui-select.el.

Signature

(hui-select-delimited-thing-call FUNC)

Documentation

Select a delimited thing at point and return a function to select it.

The delimited thing is a markup pair, list, vector/array, set, comment or string. The non-nil value returned is the function to call to select that syntactic unit.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hui-select.el
(defun hui-select-delimited-thing-call (func)
  "Select a delimited thing at point and return a function to select it.
The delimited thing is a markup pair, list, vector/array, set,
comment or string.  The non-nil value returned is the function to
call to select that syntactic unit."
  (unless (and (memq major-mode hui-select-ignore-quoted-sexp-modes)
	       ;; Ignore quoted identifier sexpressions, like #'function
	       (char-after) (memq (char-after) '(?# ?\')))
    (with-syntax-table
	(if (memq major-mode hui-select-ignore-quoted-sexp-modes)
	    (syntax-table)
	  hui-select-syntax-table)
      (let ((hui-select-char-p)
	    (hui-select-whitespace)
	    (hui-select-syntax-alist '((?\" . hui-select-string)
				       (?\( . hui-select-sexp-start)
				       (?\$ . hui-select-sexp-start)
				       (?\' . hui-select-sexp-start)
				       (?\) . hui-select-sexp-end)
				       (?\< . hui-select-comment)
				       ;; Punctuation needed to match
				       ;; multi-char comment delimiters
				       (?\. . hui-select-punctuation))))
	(hui-select-reset)
	(funcall func)))))