;;; compiled by roland@churchy.gnu.ai.mit.edu on Mon Apr 19 16:37:11 1993
;;; from file /gd/gnu/emacs/19.0/lisp/autoload.el
;;; emacs version 19.5.1.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(fset 'make-autoload #[(form file) "А	!‰Г=„ \nД=…V Е‰‰\nД=	A‰@	AA‰@‰;ѓ8 	A‚; ЕЙКЛDА	@!Н=…S ЛОD&+)‡" [car-safe form car defun defmacro nil macrop doc name list autoload quote file interactive macro] 9 "\
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 that tells \\[update-file-autoloads]
to make the following form into an autoload.  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 "АБВГ#€АДВГ#€АЕВГ#€АЖВГ#€АЗВГ#‡" [put autoload doc-string-elt 3 defun defvar defconst defmacro] 4)
(fset 'generate-file-autoloads #[(file) "pАБ\n!ДЕ\"ѓ ЖЗЖ!O‚ )АИАЙ\n!А\nТ\n!G\nGWѓP Ф\nЖGO\"ѓP \nGАOХЦ\n\"€ЉЧЋШ\n!q€ЉЊЩ €eb€m„WЪЫ!€ЬЭ!!ѓ?Я!€Ъа!€бlѓ*вp!гд!€%ж%\"'и%!йN)'ѓ° %A@B‚ґ %')ѓ)'8;ѓк)S'\"‰+A,н+А\"€оп\"€рс'\"€от\"€оу,@!дАO\"€,A„оф\"€‚ох\"€оу,A!дАO\"€ц!€*‚&ч'\"€+‚e `8гд!€ощ8`\"\"€)‚e Ьъ!ѓLгд!€‚e ыд!€гд!€‚e ,ѓ‘<c€эюя\nЃ@ ЃA \n!8%\"€ц!€ЃB c€\nc€ЃC c€\nb€Dc€ХЃE \n\".‡" [nil file-name-nondirectory file name string-match "\\.elc?$" 0 match-beginning "%20e" get-file-buffer output-end visited done-any floating-output-format print-length load-name autoloads-done outbuf expand-file-name default-directory string= message "Generating autoloads for %s..." ((byte-code "„ Бp!€\nq€Г Б‡" [visited kill-buffer outbuf point-marker output-end] 2)) find-file-noselect widen skip-chars-forward " 	\n" looking-at regexp-quote generate-autoload-cookie search-forward " 	" t read forward-line 1 form make-autoload autoload car-safe doc-string-elt nthcdr p elt setcdr princ "\n(" mapcar #[(elt) "А	\n\"€ГД\n\"‡" [prin1 elt outbuf princ " "] 3] "\"\\\n" prin1-to-string ")" " " terpri print begin buffer-substring ";" forward-sexp generate-autoload-section-header prin1 list autoloads 5 file-attributes ";;; Generated autoloads from " "\n" generate-autoload-section-trailer "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 "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ЕЖЕ!O‚ \n)ЗИ	!	\nЉМ	!q€М!q€ЉЊО €eb€ПЗС#ѓ№ ЗТУЏХЦ8\"ѓµ ЖЕ!Ч8ШЩ	!8	ѓl Э	!„ў <ѓў GЦUѓў @@V„љ @@Uѓў A@A@Yѓў ЮЯ	\"€‚± П !€б`\"€в	!€С\n+)‚4 )\n„Ж г‹€в	!€)tѓО д €	?…б И	!‰	…б е	!,‡" [file-name-nondirectory file name string-match "\\.elc?$" 0 match-beginning nil get-file-buffer existing-buffer done load-name find-file-noselect generated-autoload-file widen search-forward generate-autoload-section-header t (byte-code "Аp!‡" [read] 2) ((end-of-file)) form string= 2 4 5 file-attributes file-time last-time begin buffer-modified-p message "Autoload section for %s is up to date." generate-autoload-section-trailer delete-region generate-file-autoloads ((byte-code "Аp!€БђВГДЕ\"!!‘€З €ИЙ!‡" [switch-to-buffer "*Help*" princ substitute-command-keys format "Move point to where the autoload section\nfor %s should be inserted.\nThen do \\[exit-recursive-edit]." file recursive-edit forward-line 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€ВДЕ#…k ДЖЗЏЙ8‰\n;ѓ. Л\n!„F М\n!„F НОПР8\n#!ѓ@ Е‚D ДСТЏ\n\nѓ\\ УФ!В!€Ч`\"€)\n;ѓg Ш\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 y-or-n-p format "Library \"%s\" (load file \"%s\") doesn't exist.  Remove its autoload section? " 2 (byte-code "АБВГ8\"Е‰Ж$‡" [read-file-name format "Find \"%s\" load file: " 2 form nil t] 5) ((quit)) match-beginning 0 begin generate-autoload-section-trailer delete-region generate-file-autoloads] 6 "\
Update the 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 nil "\\.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 "„ БВ!€Гѓ ЗИЌ€A‰„ ЙК!€ЛМ!€Нѓ. О‚/ П!*‡" [noninteractive error "batch-update-file-autoloads is to be used only with -batch" nil command-line-args-left args lost file (byte-code "АБВЏ‡" [lossage (byte-code "АБ\n@!!ѓ Г\n@!€‚ Д\n@!€А‡" [file-directory-p expand-file-name args update-directory-autoloads update-file-autoloads] 3) ((error (byte-code "АБ\n@#€ДЖЗИ\"‡" [message ">>Error processing %s: %s" args lossage t lost throw file nil] 4)))] 3) save-some-buffers t message "Done" kill-emacs 1 0] 3 "\
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 (quote autoload))