Mercurial > emacs
view lisp/cus-dep.el @ 17455:6326f81513a4
(MSDOS_OBJ): Add w16select.o.
(dependencies): Add dependencies for w16select.o.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Mon, 14 Apr 1997 11:18:41 +0000 |
parents | ad9d92edda0d |
children | 83503d0dc576 |
line wrap: on
line source
;;; cus-dep.el --- Find customization dependencies. ;; ;; Copyright (C) 1997 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: internal ;;; Code: (require 'cl) (load-file "widget.el") (load-file "custom.el") (load-file "cus-face.el") (defun custom-make-dependencies () "Batch function to extract custom dependencies from .el files. Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies" (let ((enable-local-eval nil) (files (directory-files "" nil "\\`[^=].*\\.el\\'" t)) file) (while files (setq file (car files) files (cdr files)) (message "Checking %s..." file) (set-buffer (find-file-noselect file)) (goto-char (point-min)) (string-match "\\`\\(.*\\)\\.el\\'" file) (condition-case nil (let ((name (file-name-nondirectory (match-string 1 file)))) (while t (let ((expr (read (current-buffer)))) (when (and (listp expr) (memq (car expr) '(defcustom defface defgroup))) (eval expr) (put (nth 1 expr) 'custom-where name))))) (error nil)) (kill-buffer (current-buffer)))) (message "Generating cus-load.el...") (find-file "cus-load.el") (erase-buffer) (insert "\ ;;; cus-load.el --- automatically extracted custom dependencies ;; ;;; Code: ") (mapatoms (lambda (symbol) (let ((members (get symbol 'custom-group)) item where found) (when members (while members (setq item (car (car members)) members (cdr members) where (get item 'custom-where)) (unless (or (null where) (member where found)) (if found (insert " ") (insert "(put '" (symbol-name symbol) " 'custom-loads '(")) (insert (prin1-to-string where)) (push where found))) (insert "))\n"))))) (insert "\n;;; cus-load.el ends here\n") (save-buffer) (message "Generating cus-load.el...")) ;;; cus-dep.el ends here