Function: allout-get-configvar-values

allout-get-configvar-values is a byte-compiled function defined in allout.el.gz.

Signature

(allout-get-configvar-values CONFIGVAR-NAME)

Documentation

Return a list of values of the symbols in list bound to CONFIGVAR-NAME.

The user is prompted for removal of symbols that are unbound, and they otherwise are ignored.

CONFIGVAR-NAME should be the name of the configuration variable, not its value.

Source Code

;; Defined in /usr/src/emacs/lisp/allout.el.gz
;;;_   > allout-get-configvar-values (varname)
(defun allout-get-configvar-values (configvar-name)
  "Return a list of values of the symbols in list bound to CONFIGVAR-NAME.

The user is prompted for removal of symbols that are unbound, and they
otherwise are ignored.

CONFIGVAR-NAME should be the name of the configuration variable,
not its value."

  (let ((configvar-value (symbol-value configvar-name))
        got)
    (dolist (sym configvar-value)
      (if (not (boundp sym))
          (if (yes-or-no-p (format-message
			    "%s entry `%s' is unbound -- remove it? "
			    configvar-name sym))
              (set configvar-name (delq sym (symbol-value configvar-name))))
        (push (symbol-value sym) got)))
    (reverse got)))