Function: widget-sexp-value-to-internal

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

Signature

(widget-sexp-value-to-internal WIDGET VALUE)

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-sexp-value-to-internal (_widget value)
  ;; Use pp for printer representation.
  (let ((pp (if (symbolp value)
		(prin1-to-string value)
	      (pp-to-string value))))
    (while (string-match "\n\\'" pp)
      (setq pp (substring pp 0 -1)))
    (if (or (string-match "\n\\'" pp)
	    (> (length pp) 40))
	(concat "\n" pp)
      pp)))