From 98743206de8a53e5231a3ae32d898a7e050486c4 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 30 Sep 1998 19:15:17 +0000 Subject: [PATCH] (custom-set-variables): Load the requests first, then check the symbol's `set' function. --- lisp/custom.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/custom.el b/lisp/custom.el index fd90be477b2..5f08474ddc7 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -408,7 +408,11 @@ the default value for the SYMBOL." (value (nth 1 entry)) (now (nth 2 entry)) (requests (nth 3 entry)) - (set (or (get symbol 'custom-set) 'custom-set-default))) + set) + (when requests + (put symbol 'custom-requests requests) + (mapcar 'require requests)) + (setq set (or (get symbol 'custom-set) 'custom-set-default)) (put symbol 'saved-value (list value)) (cond (now ;; Rogue variable, set it now. @@ -417,9 +421,6 @@ the default value for the SYMBOL." ((default-boundp symbol) ;; Something already set this, overwrite it. (funcall set symbol (eval value)))) - (when requests - (put symbol 'custom-requests requests) - (mapcar 'require requests)) (setq args (cdr args))) ;; Old format, a plist of SYMBOL VALUE pairs. (message "Warning: old format `custom-set-variables'") -- 2.39.2