From: Glenn Morris <rgm@gnu.org>
Date: Tue, 21 Feb 2017 20:11:56 +0000 (-0500)
Subject: ; * lisp/custom.el: Comments.
X-Git-Tag: emacs-26.0.90~747
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=217eaf6932f68049e8f7f207b153c09ca85c7032;p=emacs.git

; * lisp/custom.el: Comments.
---

diff --git a/lisp/custom.el b/lisp/custom.el
index 030478ab172..ecfa34db5bb 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -765,9 +765,16 @@ Use the :set function to do so.  This is useful for customizable options
 that are defined before their standard value can really be computed.
 E.g. dumped variables whose default depends on run-time information."
   ;; If it has never been set at all, defvar it so as to mark it
-  ;; special, etc (bug#25770).
+  ;; special, etc (bug#25770).  This means we are initializing
+  ;; the variable, and normally any :set function would not apply.
+  ;; For custom-initialize-delay, however, it is documented that "the
+  ;; (delayed) initialization is performed with the :set function".
+  ;; This is needed by eg global-font-lock-mode, which uses
+  ;; custom-initialize-delay but needs the :set function custom-set-minor-mode
+  ;; to also run during initialization.  So, long story short, we
+  ;; always do the funcall step, even if symbol was not bound before.
   (or (default-boundp symbol)
-      (eval `(defvar ,symbol nil)))
+      (eval `(defvar ,symbol nil))) ; reset below, so any value is fine
   (funcall (or (get symbol 'custom-set) 'set-default)
 	   symbol
 	   (eval (car (or (get symbol 'saved-value) (get symbol 'standard-value))))))