Function: widget-sexp-prompt-value

widget-sexp-prompt-value is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget-sexp-prompt-value WIDGET PROMPT VALUE UNBOUND)

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-sexp-prompt-value (widget prompt value unbound)
  ;; Read an arbitrary sexp.
  (let ((found (read-string prompt
			    (if unbound nil (cons (prin1-to-string value) 0))
			    (widget-get widget :prompt-history))))
    (let ((answer (read-from-string found)))
      (unless (= (cdr answer) (length found))
	(error "Junk at end of expression: %s"
	       (substring found (cdr answer))))
      (car answer))))