;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:38 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/cus-dep.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`cus-dep.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require widget cus-face autoload] 2) #@132 Batch function to extract custom dependencies from .el files. Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS (defalias 'custom-make-dependencies #[nil "\306 \307\310!\210\310q\210 \203k\311\312 @\"\210\313 @\306\314# \306\211*+\315 @!\210+\203d+@*+A+\316*!\203+\317 \210\320*!\210eb\210\321\322*\"\210\323\324\325*\"!,\306\326\327\217\210)\202+ A,\202 +\311\330!\210\331\332!\210\317 \210\333c\210\334\335!\210\336c\210\306-\334\337!\210\340-\203\222\341\202\223\342\261\210\343-p\"\210\344c\210)\345c\210\346.\347 \210)\311\350!\210\351 \207" [command-line-args-left default-directory start-directory all-subdirs enable-local-eval is-autoloaded nil get-buffer-create " cus-dep temp" message "Directory %s" directory-files "\\`[^=].*\\.el\\'" cd file-exists-p erase-buffer insert-file-contents string-match "\\`\\(.*\\)\\.el\\'" file-name-nondirectory match-string 1 (byte-code "\303\304\305\306#\203'\305\307 \210\212\310y\210\311 !\203\306)\312p!\305\313\314\217\210)\202\305\207" [is-autoloaded generate-autoload-cookie expr re-search-forward "^(defcustom\\|^(defface\\|^(defgroup" nil t beginning-of-line -1 looking-at read (byte-code "\303!\210\304A@\305 #\210\304A@\306\n#\207" [expr is-autoloaded name eval put custom-autoloaded custom-where] 4) ((error))] 4) ((error)) "Generating cus-load.el..." find-file "cus-load.el" ";;; cus-load.el --- automatically extracted custom dependencies\n;;\n;;; Code:\n\n" mapatoms #[(symbol) "\305N\306\211\211\211\205K\f\203E\f@@\fA \307N\211\203\n \235\204 \2031\310c\210\2029\311\312!\313\261\210\314\np\"\210\n B\202 \205K\315c,\207" [symbol found where item members custom-group nil custom-where " " "(put '" symbol-name " 'custom-loads '(" prin1 "))\n"] 5] ";;; These are for handling :version. We need to have a minimum of\n;;; information so `custom-changed-variables' could do its job. \n;;; For both groups and variables we have to set `custom-version'.\n;;; For variables we also set the `standard-value' and for groups\n;;; `group-documentation' (which is shown in the customize buffer), so\n;;; we don't have to load the file containing the group.\n\n;;; `custom-versions-load-alist' is an alist that has as car a version\n;;; number and as elts the files that have variables that contain that\n;;; version. These files should be loaded before showing the\n;;; customization buffer that `customize-changed-options' generates.\n\n\n;;; This macro is used so we don't modify the information about\n;;; variables and groups if it's already set. (We don't know when\n;;; cus-load.el is going to be loaded and at that time some of the\n;;; files might be loaded and some others might not).\n(defmacro custom-put-if-not (symbol propname value)\n `(unless (get ,symbol ,propname)\n (put ,symbol ,propname ,value)))\n\n" #[(symbol) "\304N\305\211\205q\306N\211\205q\307N?\205q\310\311!\312\261\210\313\np\"\210\314c\210\310\311!\261\210\315N\203e\316c\210\317\n \"\203Z \317\n \"A\235?\205q\317\n \" \317\n \"AB\241\202q\n CB B\211\202q\320c\210\313\321Np\"\210\314c*\207" [symbol where version version-alist custom-version nil custom-where custom-autoloaded "(custom-put-if-not '" symbol-name " 'custom-version " prin1 ")\n" standard-value " 'standard-value t)\n" assoc " 'group-documentation " group-documentation] 6] "\n(defvar custom-versions-load-alist " "'" "" prin1 "\n \"For internal use by custom.\")\n" "\n(provide 'cus-load)\n\n;;; Local Variables:\n;;; version-control: never\n;;; no-byte-compile: t\n;;; no-update-autoloads: t\n;;; End:\n;;; cus-load.el ends here\n" 10000000 save-buffer "Generating cus-load.el...done" kill-emacs file files name version-alist kept-new-versions] 4 (#$ . 708)])