Function: custom-variable-current-value

custom-variable-current-value is a byte-compiled function defined in cus-edit.el.gz.

Signature

(custom-variable-current-value WIDGET)

Documentation

Return the current value of the variable edited by WIDGET.

WIDGET should be a custom-variable widget.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defun custom-variable-current-value (widget)
  "Return the current value of the variable edited by WIDGET.

WIDGET should be a custom-variable widget."
  (let* ((symbol (widget-value widget))
         (get (or (get symbol 'custom-get) 'default-value))
         (type (custom-variable-type symbol))
         (conv (widget-convert type)))
    (if (default-boundp symbol)
        (funcall get symbol)
      (widget-get conv :value))))