diff options
author | Markus Rost <rost@math.uni-bielefeld.de> | 2003-01-13 23:47:04 +0000 |
---|---|---|
committer | Markus Rost <rost@math.uni-bielefeld.de> | 2003-01-13 23:47:04 +0000 |
commit | d568081554d6fad2611a2b7bb88cc02b6edbf53e (patch) | |
tree | 433a8d23a07fbe05ca428943ab88b6ad81fd170d /lisp/cus-dep.el | |
parent | cba752d04afd59e86015afde78c5a351b6c91ac5 (diff) |
(custom-make-dependencies): Don't set standard-value
and version numbers for variables. Handle faces.
Diffstat (limited to 'lisp/cus-dep.el')
-rw-r--r-- | lisp/cus-dep.el | 24 |
1 files changed, 15 insertions, 9 deletions
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 "'" "")) |