Mercurial > hg > xemacs-beta
comparison lisp/cus-dep.el @ 2544:b4a8cd0dd8df
[xemacs-hg @ 2005-02-03 04:29:32 by ben]
behavior ws #1: custom updates
cus-dep.el: If a directory has no custom dependencies, write a blank
custom-load file rather than deleting the file, so that
time-based rebuild checking will work.
cus-edit.el: Split out code in custom-load-symbol. Support loading of
the new custom-defines file.
cus-edit.el: Split long menus.
custom.el: Sync with FSF 21.3.
| author | ben |
|---|---|
| date | Thu, 03 Feb 2005 04:29:33 +0000 |
| parents | 1b4bc72f433e |
| children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 2543:5e6de1feeafc | 2544:b4a8cd0dd8df |
|---|---|
| 171 (message "No custom-loads for %s" name)) | 171 (message "No custom-loads for %s" name)) |
| 172 (puthash file cache hash-cache))) | 172 (puthash file cache hash-cache))) |
| 173 )) | 173 )) |
| 174 (cond | 174 (cond |
| 175 ((zerop (hash-table-count hash)) | 175 ((zerop (hash-table-count hash)) |
| 176 (if (not (file-exists-p cusload-file)) | 176 (message "(No customization dependencies)") |
| 177 (message "(No customization dependencies)") | 177 (write-region "" nil cusload-file)) |
| 178 (message "(No customization dependencies, deleting %s)" | |
| 179 cusload-file) | |
| 180 (delete-file cusload-file))) | |
| 181 (t | 178 (t |
| 182 (message "Generating %s...\n" cusload-base-file) | 179 (message "Generating %s...\n" cusload-base-file) |
| 183 (with-temp-file cusload-file | 180 (with-temp-file cusload-file |
| 184 (insert ";;; " cusload-base-file | 181 (insert ";;; " cusload-base-file |
| 185 " --- automatically extracted custom dependencies\n" | 182 " --- automatically extracted custom dependencies\n" |