From d568081554d6fad2611a2b7bb88cc02b6edbf53e Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Mon, 13 Jan 2003 23:47:04 +0000 Subject: [PATCH] (custom-make-dependencies): Don't set standard-value and version numbers for variables. Handle faces. --- lisp/ChangeLog | 9 +++++++++ lisp/cus-dep.el | 24 +++++++++++++++--------- 2 files changed, 24 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4eb73aa7c59..ac9363bbbbd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2003-01-13 Markus Rost + + * cus-dep.el (custom-make-dependencies): Don't set standard-value + and version numbers for variables. Handle faces. + + * cus-edit.el (customize-changed-options): Doc addition. Load the + version deps earlier. Use other tests for groups and variables. + Handle faces. + 2003-01-14 Kim F. Storm * ido.el (ido-ignore-directories-merge): Doc fix. diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el index aeec07ae4f0..67b1f8b3966 100644 --- a/lisp/cus-dep.el +++ b/lisp/cus-dep.el @@ -139,15 +139,10 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" (when version (setq where (get symbol 'custom-where)) (when where - (insert "(custom-put-if-not '" (symbol-name symbol) - " 'custom-version ") - (prin1 version (current-buffer)) - (insert ")\n") - (insert "(custom-put-if-not '" (symbol-name symbol)) - (if (get symbol 'standard-value) - ;; This means it's a variable + (if (or (custom-variable-p symbol) + (custom-facep symbol)) + ;; This means it's a variable or a face. (progn - (insert " 'standard-value t)\n") (if (assoc version version-alist) (unless (member where @@ -155,9 +150,20 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" (push where (cdr (assoc version version-alist)))) (push (cons version (list where)) version-alist))) ;; This is a group + (insert "(custom-put-if-not '" (symbol-name symbol) + " 'custom-version ") + (prin1 version (current-buffer)) + (insert ")\n") + (insert "(custom-put-if-not '" (symbol-name symbol)) (insert " 'group-documentation ") (prin1 (get symbol 'group-documentation) (current-buffer)) - (insert ")\n"))))))) + (insert ")\n") + (when (get symbol 'custom-tag) + (insert "(custom-put-if-not '" (symbol-name symbol)) + (insert " 'custom-tag ") + (prin1 (get symbol 'custom-tag) (current-buffer)) + (insert ")\n")) + )))))) (insert "\n(defvar custom-versions-load-alist " (if version-alist "'" "")) -- 2.39.2