Mercurial > emacs
view lisp/cus-dep.el @ 17499:77604d2454dc libc-970418 libc-970419 libc-970420 libc-970421 libc-970422 libc-970423 libc-970424 libc-970425 libc-970426 libc-970427 libc-970428 libc-970429 libc-970430 libc-970501 libc-970502 libc-970503 libc-970504 libc-970505
Fixes for MIPS OpenBSD systems (from Per Fogelstrom
<pefo@openbsd.org>)
author | Ian Lance Taylor <ian@cygnus.com> |
---|---|
date | Thu, 17 Apr 1997 18:00:12 +0000 |
parents | b613ee4fd988 |
children | f33d7729b6a1 |
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 '(")) (prin1 where (current-buffer)) (push where found))) (when found (insert "))\n")))))) (insert "\ \(provide 'cus-load) ;;; cus-load.el ends here\n") (save-buffer) (message "Generating cus-load.el...done")) ;;; cus-dep.el ends here