Mercurial > emacs
changeset 49219:e53c0b341ec5
(custom-make-dependencies): Don't set standard-value
and version numbers for variables. Handle faces.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Mon, 13 Jan 2003 23:46:26 +0000 |
| parents | ddeb57b6c977 |
| children | d3cb29669ffe |
| files | lisp/cus-dep.el |
| diffstat | 1 files changed, 15 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-dep.el Mon Jan 13 23:43:30 2003 +0000 +++ b/lisp/cus-dep.el Mon Jan 13 23:46:26 2003 +0000 @@ -139,15 +139,10 @@ (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 @@ (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 "'" ""))