;ELC ;;; compiled by jwz@thalidomide on Mon Jan 3 17:54:44 1994 ;;; from file /th/jwz/emacs19/lisp/utils/autoload.el ;;; emacs version 19.9 Lucid (beta12). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'make-autoload #[(form file) "> =ĉA@AA@;AD\n @=D+)" [form car (defun defmacro) defmacro nil doc name macrop autoload quote file interactive macro] 8 "\ Turn FORM, a defun or defmacro, into an autoload for source file FILE. Returns nil if FORM is not a defun or defmacro."]) (defconst generate-autoload-cookie ";;;###autoload" "\ Magic comment indicating the following form should be autoloaded. Used by \\[update-file-autoloads]. This string should be meaningless to Lisp (e.g., a comment). This string is used: ;;;###autoload (defun function-to-be-autoloaded () ...) If this string appears alone on a line, the following form will be read and an autoload made for it. If there is further text on the line, that text will be copied verbatim to `generated-autoload-file'.") (defconst generate-autoload-section-header " \n;;;### " "\ String inserted before the form identifying the section of autoloads for a file.") (defconst generate-autoload-section-trailer "\n;;;***\n" "\ String which indicates the end of the section of autoloads for a file.") (byte-code "#####M" [put autoload doc-string-elt 3 defun defvar defconst defmacro autoload-trim-file-name #[(file) " ! !!!\"" [expand-file-name file file-relative-name file-name-directory directory-file-name] 6]] 4) (fset 'generate-file-autoloads #[(file) "p\n! \" ƉO )\n! \n   \n!\n!!!GGWOO+\n\"ێ\n!q~ebmw !! !w lp!y%%\"'%N('%A@B%'(('8;(S')A*)\"NJq`)-).'\"q -)b 3-#!co*-b,\"q`))*@!O\"q -)b`-WgUcym-b+*A\"\"*A!O\"!*q`)-)@'\"q -)b 3A-#!co*-b++r`ByB`{\")rށC!yrD!yr, EcFGH\n!IJ\n!8\"!KH\n!L bMcNفO\n\". " [nil file-name-nondirectory file name string-match "\\.elc?$" 0 t get-file-buffer output-end visited done-any float-output-format print-readably print-length load-name autoloads-done outbuf expand-file-name file-truename source-truename file-name-as-directory default-directory dir-truename len message "Generating autoloads for %s..." ((byte-code "p!\nq " [visited kill-buffer outbuf point-marker output-end] 2)) find-file-noselect " \n " looking-at regexp-quote generate-autoload-cookie search-forward " " read 1 form make-autoload autoload doc-string-elt p elt princ "\n(" p2 print-escape-newlines mapcar #[(elt) " \n\"\n\"" [prin1 elt outbuf princ " "] 3] point-marker match-data _match_data_ ((store-match-data _match_data_)) " " delete-char -1 "\\^L" "\"\\\n" prin1-to-string 40 "\\" ")" " " terpri print ((store-match-data _match_data_)) begin ";" forward-sexp generate-autoload-section-header prin1 autoloads autoload-trim-file-name 5 file-attributes ";;; Generated autoloads from " "\n" generate-autoload-section-trailer noninteractive "Generating autoloads for %s...done"] 10 "\ Insert at point a loaddefs autoload section for FILE. autoloads are generated for defuns and defmacros in FILE marked by `generate-autoload-cookie' (which see). If FILE is being visited in a buffer, the contents of the buffer are used." "fGenerate autoloads for file: "]) (defconst generated-autoload-file "../prim/loaddefs.el" "\ *File \\[update-file-autoloads] puts autoloads into. A .el file can set this in its local variables section to make its autoloads go somewhere else.") (fset 'update-file-autoloads #[(file) " !\n\"\nʼnO\n) ! \n !q !q~eb#я8\nŔ8 !8!<GU@@V@@UA@A@Y \"!`| ! +)) !q~eb!P#+⋈ !)t ? !!," [file-name-nondirectory file name string-match "\\.elc?$" 0 nil get-file-buffer existing-buffer done load-name find-file-noselect generated-autoload-file search-forward generate-autoload-section-header t (byte-code "p!" [read] 2) ((end-of-file)) form 2 4 5 file-attributes file-time last-time begin buffer-modified-p noninteractive message "Autoload section for %s is up to date." generate-autoload-section-trailer generate-file-autoloads "\n" generate-autoload-cookie ((byte-code "p! #Ɛ \"!! y" [switch-to-buffer noninteractive error "No autoload section for %s in %s" file generated-autoload-file "*Help*" princ substitute-command-keys format "Move point to where the autoload section\nfor %s should be inserted.\nThen do \\[exit-recursive-edit]." recursive-edit 0] 6)) save-buffer kill-buffer] 5 "\ Update the autoloads for FILE in `generated-autoload-file' (which FILE might bind in its local variables)." "fUpdate autoloads for file: "]) (fset 'update-autoloads-here #[nil " eb #Ǐ8\n;\n!\n!\n; ώ\n!\"??!\"!!\n+8\n#!Ū܏\n\nݔ!`|)\n;\n!**" [buffer-file-name generated-autoload-file search-forward generate-autoload-section-header nil t (byte-code "p!" [read] 2) ((end-of-file)) form 3 file get-file-buffer file-exists-p match-data _match_data_ ((store-match-data _match_data_)) locate-file file-name-nondirectory load-path loc expand-file-name autoload-trim-file-name ".." y-or-n-p format "Library \"%s\" (load file \"%s\") doesn't exist. Remove its autoload section? " 2 (byte-code " 8\"ʼn$" [read-file-name format "Find \"%s\" load file: " 2 form nil t] 5) ((quit)) 0 begin generate-autoload-section-trailer generate-file-autoloads] 6 "\ Update sections of the current buffer generated by \\[update-file-autoloads]." nil]) (fset 'update-directory-autoloads #[(dir) " #\"t!q )" [mapcar update-file-autoloads directory-files dir t "\\.el$" find-file-noselect generated-autoload-file save-buffer] 6 "\ Run \\[update-file-autoloads] on each .el file in DIR." "DUpdate autoloads for directory: "]) (fset 'batch-update-autoloads #[nil "!É \n\" @!! @# @!Aq) @! AO)!!֪!+" [noninteractive error "batch-update-autoloads is to be used only with -batch" nil command-line-args-left args enable-local-eval lost message "Updating autoloads in %s..." generated-autoload-file #[(file) "" [lossage (update-file-autoloads file) ((error (byte-code "!\n!!!\"!!ʉ " [princ ">>Error processing " file ": " fboundp display-error lossage nil prin1 "\n" t lost] 3)))] 3] frob file-directory-p expand-file-name directory-files t "\\.el$" rest save-some-buffers "Done" kill-emacs 1 0] 5 "\ Update the autoloads for the files or directories on the command line. Runs \\[update-file-autoloads] on files and \\[update-directory-autoloads] on directories. Must be used only with -batch, and kills Emacs on completion. Each file will be processed even if an error occurred previously. For example, invoke \"emacs -batch -f batch-update-autoloads *.el\""]) (provide 'autoload)