;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:38:53 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/emacs-lisp/autoload.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 "`autoload.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@238 *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. The autoload file is assumed to contain a trailer starting with a FormFeed character. (defvar generated-autoload-file "loaddefs.el" (#$ . -630)) #@447 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-cookie ";;;###autoload" (#$ . 933)) #@75 String that marks the form at the start of a new file's autoload section. (defconst generate-autoload-section-header "\f\n;;;### " (#$ . 1449)) #@72 String which indicates the end of the section of autoloads for a file. (defconst generate-autoload-section-trailer "\n;;;***\n" (#$ . 1599)) #@64 String to add on each continuation of the section header form. (defconst generate-autoload-section-continuation ";;;;;; " (#$ . 1746)) #@176 Turn FORM into an autoload or defvar for source file FILE. Returns nil if FORM is not a special autoload form (i.e. a function definition or macro definition or a defcustom). (defalias 'make-autoload #[(form file) "\242\306\211\307>\2036 \310!)\211\2036 @\311=\2036\312 >\2036\312 >\211\306\241\210\311\313\314 A\")B\202\347\n\315>\203\215\n\316=A@\n\317N\233\211 @;\205Z \211A @!\320<\203h\202l\321D !\n\322>\203y\323\202 @\242\324=\205\207\321\325D\257,\202\347\n\326=\203\346\243\242\243\243\242\243\243\243\242\243\243\243\243\"!#$\327\"\330\"\204\277\331$#!F\202\342\311\331$#!F\332\327\"\333\"\321$D\334BBB\335\321$D\327\"\330\"EF,\202\347\306*\207" [form expand car file load-file-name end nil (easy-mmode-define-global-mode easy-mmode-define-minor-mode define-minor-mode) macroexpand progn :autoload-end mapcar #[(form) "\302 \"\207" [form file make-autoload] 3] (defun define-skeleton defmacro define-derived-mode define-generic-mode easy-mmode-define-minor-mode easy-mmode-define-global-mode define-minor-mode defun*) defmacro doc-string-elt autoload quote (define-skeleton define-derived-mode define-generic-mode easy-mmode-define-global-mode easy-mmode-define-minor-mode define-minor-mode) t interactive macro defcustom plist-get :require defvar custom-add-to-group :group ('custom-variable) custom-add-load macrop name body doc rest init varname] 9 (#$ . 1888)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\210\300\312\302\303#\210\300\313\302\314#\210\300\315\302\316#\210\300\317\302\314#\210\300\320\302\314#\210\300\321\302\322#\210\300\323\302\324#\207" [put autoload doc-string-elt 3 defun defun* defvar defcustom defconst defmacro defsubst define-skeleton 2 define-derived-mode 4 easy-mmode-define-minor-mode define-minor-mode define-generic-mode 7 easy-mmode-define-global-mode 1000] 4) (defalias 'autoload-trim-file-name #[(file) "\302!\303\304 !\"\207" [file generated-autoload-file expand-file-name file-relative-name file-name-directory] 4]) #@174 Read a section header form. Since continuation lines have been marked as comments, we must copy the text of the form and remove those comment markers before we call `read'. (defalias 'autoload-read-section-header #[nil "\304 \305\216`\306\307y\210\310 !\203\307y\210\202\f\n`{r\311\312!q\210\313 \210 c\210eb\210\314 \306\315#\203:\316\317!\210\202+eb\210\320p!-\207" [save-match-data-internal string beginning generate-autoload-section-continuation match-data ((set-match-data save-match-data-internal)) nil 1 looking-at get-buffer-create " *autoload*" erase-buffer search-forward t replace-match " " read] 4 (#$ . 4043)]) #@61 Print FORM such that make-docfile will find the docstrings. (defalias 'autoload-print-form #[(form) "@\306=\203 \307\310A\"\2079\203\311\207\242\301N\211\203\224 8;\203\224 S\233\211A\n\311\241\210\312\313\f\"\210\314\211\307\315\"\210*\312\316\f\"\210r\fq\210`)\312\317 @!\320\311O\f\"\210r\fq\210\212\321\313\314#\203o\320u\210\322c\210\202]* A\204}\312\323\f\"\210\202\215\312\324\f\"\210\312\317 A!\320\311O\f\"\210\325\f!+\202\236\314\211\326\f\"*)\207" [form doc-string-elt p elt outbuf print-escape-nonascii progn mapcar autoload-print-form nil princ "\n(" t #[(elt) "\302 \"\210\303\304 \"\207" [elt outbuf prin1 princ " "] 3] "\"\\\n" prin1-to-string 1 search-backward "\\" ")" " " terpri print print-escape-newlines begin] 5 (#$ . 4682)]) #@237 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. (defalias 'generate-file-autoloads #[(file) "p\306\307!\310\311 \"\203 \312\211\224O\202 )\306\313\306\211\314!\30645678\315!\316!9\317\316:!!\211;G\211<9GW\203];9\312\327 \210\330\306\"\210\212\214~\210eb\210m\204\331\306w\210\332\333?!!\203\376\334?!\210\335\306w\210\313l\203\341\336p!n\204\272\337y\210@\340@6\"\211A\203\324@A@7B7\202\330@A\341A!\210*\202\220\342\343\306x\210`Tf\344U\203\361\337u\210`\337y\210`{8\"\210\202\220\332\345!\203\n\337y\210\202\220\346\337!\210\337y\210\202\220,\f\203hBc\210\347\35076\351!\352\353!8\2578\"\210\3548!\210r8q\210\212\355y\210l\204X\356\357!\210\360\306w\210l\204?\361C\261\210\202?*\362\351!\361\261\210\nb\210Dc\210\320\363\". \207" [file name output-end visited done-any float-output-format nil file-name-nondirectory string-match "\\.elc?$" 0 t get-file-buffer expand-file-name file-truename file-name-as-directory message "Generating autoloads for %s..." ((byte-code "\204\303p!\210 q\210\304 \303\207" [visited outbuf output-end kill-buffer point-marker] 2)) get-buffer-create " *generate-autoload-file*" kill-all-local-variables erase-buffer emacs-lisp-mode insert-file-contents " \n\f" looking-at regexp-quote search-forward " " read 1 make-autoload autoload-print-form princ " \f " 32 ";" forward-sexp prin1 autoloads autoload-trim-file-name 5 file-attributes terpri -1 move-to-column 64 "^ \n" "\n" ";;; Generated autoloads from " "Generating autoloads for %s...done" print-readably print-length load-name autoloads-done outbuf source-truename default-directory dir-truename len buffer-undo-list buffer-read-only generate-autoload-cookie form autoload generate-autoload-section-header generate-autoload-section-continuation generate-autoload-section-trailer] 10 (#$ . 5470) "fGenerate autoloads for file: "]) #@108 Update the autoloads for FILE in `generated-autoload-file' (which FILE might bind in its local variables). (defalias 'update-file-autoloads #[(file) "\306!\307\310 \"\203 \311\211\224O\202 )\312\313!\212\n\203$\nq\210\314\315\3161\316\3172\"\"!q\210\3203)\321 \311V\204D\322\3234\"\210\3244!\204Q\322\3254\"\210\212\214~\210eb\210 \204\354\3265\312\327#\203\354\330 6\33168\f\230\203\331\311\224\33268\333\334!8789\n\203\215\335\n!\204\3118<\203\3118G\331U\203\3118@7@V\204\2738@7@U\203\3118A@7A@Y\203\311t\203\304\336\337\"\210\340\202\325\326:!\2109`|\210\327+\202\350\f\33168\231\203\350\311\224b\210\341)\202X \204\373\341db\210\342\343\312\327#\210 \340=\204] \341=\203Y\212\n\203\nq\210\202+\344\345!q\210\346 \210\347 \210\327;\312<\350 \210\351\312\"\210\212\214~\210eb\210\352\353\354=!P\312\327#\203C\312\202Mt\203L\336\355\"\210\327\n\204U\356p!\210+\204]\357!\210*t\205i\335 \205i\360 ,\207" [file name existing-buffer found load-name coding-system-for-read file-name-nondirectory string-match "\\.elc?$" 0 nil get-file-buffer raw-text find-file-noselect expand-file-name "lisp" raw-text-unix buffer-size error "Autoloads file %s does not exist" file-writable-p "Autoloads file %s is not writable" search-forward t autoload-read-section-header 2 4 5 file-attributes buffer-modified-p message "Autoload section for %s is up to date." up-to-date new search-backward "\f" get-buffer-create " *autoload-file*" kill-all-local-variables erase-buffer emacs-lisp-mode insert-file-contents re-search-forward "^" regexp-quote "%s has no autoloads" kill-buffer generate-file-autoloads save-buffer generated-autoload-file source-directory buffer-file-coding-system buffer-file-name generate-autoload-section-header form file-time last-time begin generate-autoload-section-trailer buffer-undo-list buffer-read-only generate-autoload-cookie] 6 (#$ . 7677) "fUpdate autoloads for file: "]) #@138 Update loaddefs.el with all the current autoloads from DIRS, and no old ones. This uses `update-file-autoloads' (which see) do its work. (defalias 'update-autoloads-from-directories #[(&rest dirs) "\306\307\310\311\"\"\312\211\313\f\313\314 \"\"\315\n!\212\316\n!q\210\212eb\210\317\312\320#\203e\321 \3228\211;\203[\323\313 \"!\204V\324\224\317!\210`|\210)\202[\325!\210\326 \"*\202\")\310\325 \"\210\327 ,\207" [dirs top-dir autoloads-file files generated-autoload-file source-directory apply nconc mapcar #[(dir) "\301\302!\303\304#\207" [dir directory-files expand-file-name t "^[^=.].*\\.el$"] 4] nil expand-file-name "lisp" file-name-directory find-file-noselect search-forward t autoload-read-section-header 3 file-exists-p 0 update-file-autoloads delete save-buffer generate-autoload-section-header form file begin generate-autoload-section-trailer] 6 (#$ . 9649) "DUpdate autoloads from directory: "]) #@118 Update loaddefs.el autoloads in batch mode. Calls `update-autoloads-from-directories' on the command line arguments. (defalias 'batch-update-autoloads #[nil "\301\302\"\210\303\211\207" [command-line-args-left apply update-autoloads-from-directories nil] 3 (#$ . 10600)]) (provide 'autoload)