Function: custom-initialize-changed

custom-initialize-changed is a byte-compiled function defined in custom.el.gz.

Signature

(custom-initialize-changed SYMBOL EXP)

Documentation

Initialize SYMBOL with EXP.

Like custom-initialize-reset, but only use the :set function if not using the standard setting. For the standard setting, use set-default-toplevel-value.

Source Code

;; Defined in /usr/src/emacs/lisp/custom.el.gz
(defun custom-initialize-changed (symbol exp)
  "Initialize SYMBOL with EXP.
Like `custom-initialize-reset', but only use the `:set' function if
not using the standard setting.
For the standard setting, use `set-default-toplevel-value'."
  (let ((set-exp
         (condition-case nil
             (let ((val (funcall (or (get symbol 'custom-get)
                                     #'default-toplevel-value)
                                 symbol)))
               (list (list 'quote val)))
           (error (get symbol 'saved-value)))))
    (cond
     (set-exp
      (funcall (or (get symbol 'custom-set) #'set-default-toplevel-value)
               symbol
               (eval (car set-exp))))
     (t
      (set-default-toplevel-value symbol (eval exp))))))