Mercurial > emacs
comparison lisp/cus-dep.el @ 49588:37645a051842
Trailing whitespace deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 Feb 2003 11:26:42 +0000 |
parents | 1d842f148f6e |
children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
49587:e82b3fe06d4c | 49588:37645a051842 |
---|---|
90 (let ((members (get symbol 'custom-group)) | 90 (let ((members (get symbol 'custom-group)) |
91 item where found) | 91 item where found) |
92 (when members | 92 (when members |
93 ;; So x and no-x builds won't differ. | 93 ;; So x and no-x builds won't differ. |
94 (setq members | 94 (setq members |
95 (sort (copy-sequence members) | 95 (sort (copy-sequence members) |
96 (lambda (x y) (string< (car x) (car y))))) | 96 (lambda (x y) (string< (car x) (car y))))) |
97 (while members | 97 (while members |
98 (setq item (car (car members)) | 98 (setq item (car (car members)) |
99 members (cdr members) | 99 members (cdr members) |
100 where (get item 'custom-where)) | 100 where (get item 'custom-where)) |
101 (unless (or (null where) | 101 (unless (or (null where) |
102 (member where found)) | 102 (member where found)) |
103 (if found | 103 (if found |
104 (insert " ") | 104 (insert " ") |
105 (insert "(put '" (symbol-name symbol) | 105 (insert "(put '" (symbol-name symbol) |
106 " 'custom-loads '(")) | 106 " 'custom-loads '(")) |
107 (prin1 where (current-buffer)) | 107 (prin1 where (current-buffer)) |
108 (push where found))) | 108 (push where found))) |
109 (when found | 109 (when found |
110 (insert "))\n")))))) | 110 (insert "))\n")))))) |
111 (insert "\ | 111 (insert "\ |
112 ;;; These are for handling :version. We need to have a minimum of | 112 ;;; These are for handling :version. We need to have a minimum of |
113 ;;; information so `customize-changed-options' could do its job. | 113 ;;; information so `customize-changed-options' could do its job. |
114 | 114 |
115 ;;; For groups we set `custom-version', `group-documentation' and | 115 ;;; For groups we set `custom-version', `group-documentation' and |
116 ;;; `custom-tag' (which are shown in the customize buffer), so we | 116 ;;; `custom-tag' (which are shown in the customize buffer), so we |
117 ;;; don't have to load the file containing the group. | 117 ;;; don't have to load the file containing the group. |
118 | 118 |
134 ") | 134 ") |
135 (let ((version-alist nil)) | 135 (let ((version-alist nil)) |
136 (mapatoms (lambda (symbol) | 136 (mapatoms (lambda (symbol) |
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 (if (or (custom-variable-p symbol) | 142 (if (or (custom-variable-p symbol) |
143 (custom-facep symbol)) | 143 (custom-facep symbol)) |
144 ;; This means it's a variable or a face. | 144 ;; This means it's a variable or a face. |
145 (progn | 145 (progn |
146 (if (assoc version version-alist) | 146 (if (assoc version version-alist) |
147 (unless | 147 (unless |
148 (member where | 148 (member where |
149 (cdr (assoc version version-alist))) | 149 (cdr (assoc version version-alist))) |
150 (push where (cdr (assoc version version-alist)))) | 150 (push where (cdr (assoc version version-alist)))) |
151 (push (cons version (list where)) version-alist))) | 151 (push (cons version (list where)) version-alist))) |
152 ;; This is a group | 152 ;; This is a group |
153 (insert "(custom-put-if-not '" (symbol-name symbol) | 153 (insert "(custom-put-if-not '" (symbol-name symbol) |
154 " 'custom-version ") | 154 " 'custom-version ") |
155 (prin1 version (current-buffer)) | 155 (prin1 version (current-buffer)) |
156 (insert ")\n") | 156 (insert ")\n") |
157 (insert "(custom-put-if-not '" (symbol-name symbol)) | 157 (insert "(custom-put-if-not '" (symbol-name symbol)) |
158 (insert " 'group-documentation ") | 158 (insert " 'group-documentation ") |
167 | 167 |
168 (insert "\n(defvar custom-versions-load-alist " | 168 (insert "\n(defvar custom-versions-load-alist " |
169 (if version-alist "'" "")) | 169 (if version-alist "'" "")) |
170 (prin1 version-alist (current-buffer)) | 170 (prin1 version-alist (current-buffer)) |
171 (insert "\n \"For internal use by custom.\")\n")) | 171 (insert "\n \"For internal use by custom.\")\n")) |
172 | 172 |
173 (insert "\ | 173 (insert "\ |
174 | 174 |
175 \(provide '" (file-name-sans-extension | 175 \(provide '" (file-name-sans-extension |
176 (file-name-nondirectory generated-custom-dependencies-file)) ") | 176 (file-name-nondirectory generated-custom-dependencies-file)) ") |
177 | 177 |