Mercurial > emacs
comparison lisp/cus-dep.el @ 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 | 1e54c94f1eca |
| children | 1d842f148f6e |
comparison
equal
deleted
inserted
replaced
| 49218:ddeb57b6c977 | 49219:e53c0b341ec5 |
|---|---|
| 137 (let ((version (get symbol 'custom-version)) | 137 (let ((version (get symbol 'custom-version)) |
| 138 where) | 138 where) |
| 139 (when version | 139 (when version |
| 140 (setq where (get symbol 'custom-where)) | 140 (setq where (get symbol 'custom-where)) |
| 141 (when where | 141 (when where |
| 142 (insert "(custom-put-if-not '" (symbol-name symbol) | 142 (if (or (custom-variable-p symbol) |
| 143 " 'custom-version ") | 143 (custom-facep symbol)) |
| 144 (prin1 version (current-buffer)) | 144 ;; This means it's a variable or a face. |
| 145 (insert ")\n") | |
| 146 (insert "(custom-put-if-not '" (symbol-name symbol)) | |
| 147 (if (get symbol 'standard-value) | |
| 148 ;; This means it's a variable | |
| 149 (progn | 145 (progn |
| 150 (insert " 'standard-value t)\n") | |
| 151 (if (assoc version version-alist) | 146 (if (assoc version version-alist) |
| 152 (unless | 147 (unless |
| 153 (member where | 148 (member where |
| 154 (cdr (assoc version version-alist))) | 149 (cdr (assoc version version-alist))) |
| 155 (push where (cdr (assoc version version-alist)))) | 150 (push where (cdr (assoc version version-alist)))) |
| 156 (push (cons version (list where)) version-alist))) | 151 (push (cons version (list where)) version-alist))) |
| 157 ;; This is a group | 152 ;; This is a group |
| 153 (insert "(custom-put-if-not '" (symbol-name symbol) | |
| 154 " 'custom-version ") | |
| 155 (prin1 version (current-buffer)) | |
| 156 (insert ")\n") | |
| 157 (insert "(custom-put-if-not '" (symbol-name symbol)) | |
| 158 (insert " 'group-documentation ") | 158 (insert " 'group-documentation ") |
| 159 (prin1 (get symbol 'group-documentation) (current-buffer)) | 159 (prin1 (get symbol 'group-documentation) (current-buffer)) |
| 160 (insert ")\n"))))))) | 160 (insert ")\n") |
| 161 (when (get symbol 'custom-tag) | |
| 162 (insert "(custom-put-if-not '" (symbol-name symbol)) | |
| 163 (insert " 'custom-tag ") | |
| 164 (prin1 (get symbol 'custom-tag) (current-buffer)) | |
| 165 (insert ")\n")) | |
| 166 )))))) | |
| 161 | 167 |
| 162 (insert "\n(defvar custom-versions-load-alist " | 168 (insert "\n(defvar custom-versions-load-alist " |
| 163 (if version-alist "'" "")) | 169 (if version-alist "'" "")) |
| 164 (prin1 version-alist (current-buffer)) | 170 (prin1 version-alist (current-buffer)) |
| 165 (insert "\n \"For internal use by custom.\")\n")) | 171 (insert "\n \"For internal use by custom.\")\n")) |