Function: elisp-demos--read-symbol

elisp-demos--read-symbol is a byte-compiled function defined in elisp-demos.el.

Signature

(elisp-demos--read-symbol PROMPT PREDICATE)

Source Code

;; Defined in ~/.emacs.d/elpa/elisp-demos-20260826.1326/elisp-demos.el
;; Borrowed from `helpful--read-symbol'
(defun elisp-demos--read-symbol (prompt predicate)
  (let* ((sym-here (symbol-at-point))
         (default-val
          (when (funcall predicate sym-here)
            (symbol-name sym-here))))
    (when default-val
      (setq prompt
            (replace-regexp-in-string
             (rx ": " eos)
             (format " (default: %s): " default-val)
             prompt)))
    (intern (completing-read prompt obarray
                             predicate t nil nil
                             default-val))))