Function: cperl-val

cperl-val is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-val SYMBOL &optional DEFAULT HAIRY)

Documentation

Internal feature to distinguish SYMBOL between "uncustomized" and nil.

Apply DEFAULT if nil, use HAIRY if cperl-hairy is non-nil. Use the symbol's value otherwise.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
;; Make customization possible "in reverse"
(defsubst cperl-val (symbol &optional default hairy)
  "Internal feature to distinguish SYMBOL between \"uncustomized\" and nil.
Apply DEFAULT if nil, use HAIRY if `cperl-hairy' is non-nil.  Use the
symbol's value otherwise."
  (cond
   ((eq (symbol-value symbol) 'null) default)
   (cperl-hairy (or hairy t))
   (t (symbol-value symbol))))