mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(custom-make-dependencies): Don't set standard-value

Browse source 
and version numbers for variables.  Handle faces.
This commit is contained in:
Markus Rost 2003-01-13 23:47:04 +00:00
parent cba752d04a
commit d568081554
2 changed files with 24 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/cus-dep.el
View file

@ -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 "'" ""))