;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:44:26 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/autoload.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; 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.29"))) (error "`autoload.el' was compiled for Emacs 19.29 or later")) #@137 Turn FORM, a defun or defmacro, into an autoload for source file FILE. Returns nil if FORM is not a defun, define-skeleton or defmacro. (defalias 'make-autoload #[(form file) ">V =ĉA@ =$&AA@;6A8D =K@=SD+)" [form car (defun define-skeleton defmacro) defmacro nil doc name macrop define-skeleton autoload quote file interactive macro] 8 (#$ . 492)]) (put (quote define-skeleton) (quote doc-string-elt) 3) #@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" (#$ . 962)) #@82 String inserted before the form identifying the section of autoloads for a file. (defconst generate-autoload-section-header "\f\n;;;### " (#$ . 1478)) #@72 String which indicates the end of the section of autoloads for a file. (defconst generate-autoload-section-trailer "\n;;;***\n" (#$ . 1635)) (byte-code "#####" [put autoload doc-string-elt 3 defun defvar defconst defmacro] 4) (defalias 'autoload-trim-file-name #[(file) " ! \f!\"" [expand-file-name file file-relative-name file-name-directory generated-autoload-file] 4]) #@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\n! \" ƉO )\n! \n \f \n!\n!!!GGWaOaO+\n\"ێ\nv\nq!q  ! \n\"~ebmw'!!'!w lp!ny,,\".,N/.,A@B,./|/.8;|/S.0A10\"lj45.\"*\"q`)491@!O\"q9#Puc>*1A`\"s\"1A!O\"!,lj45@.\"*+Ax`TfBUu`y`{\"C!yD!y, ?EcFGH\n!IJ\n!8\"!KH\n!L` W7`M`MZNV0فO!PQ! b)y bRcفS\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)) get-buffer-create " *generate-autoload-file*" kill-all-local-variables erase-buffer buffer-undo-list buffer-read-only emacs-lisp-mode insert-file-contents " \n\f" looking-at regexp-quote generate-autoload-cookie search-forward " " read 1 form make-autoload autoload doc-string-elt p elt princ "\n(" print-escape-binaries print-escape-newlines mapcar #[(elt) " \n\"\n\"" [prin1 elt outbuf princ " "] 3] "\"\\\n" begin prin1-to-string search-backward "\\" ")" " " terpri print " \f " 32 ";" forward-sexp generate-autoload-section-header prin1 autoloads autoload-trim-file-name 5 file-attributes ";;; Generated autoloads from " "\n" beg 900 "A line is too long--over 900 characters" sleep-for 2 generate-autoload-section-trailer "Generating autoloads for %s...done"] 10 (#$ . 2044) "fGenerate autoloads for file: "]) #@149 *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. (defconst generated-autoload-file "loaddefs.el" (#$ . -4193)) #@108 Update the autoloads for FILE in `generated-autoload-file' (which FILE might bind in its local variables). (defalias 'update-file-autoloads #[(file) " !\n\"\nʼnO\n) ! \n)q\f!)q~eb #ӏ8\nŔ8 !8u!<GU@@V@@UA@A@Yt \"  !`| +\n8Ŕb ):  db! =L =Hq!q () \"~eb-P#1Ƃ;t: \"Dp!+L !*tS ," [file-name-nondirectory file name string-match "\\.elc?$" 0 nil get-file-buffer existing-buffer found load-name *noconv* file-coding-system-for-read 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 message "Autoload section for %s is up to date." up-to-date generate-autoload-section-trailer new search-backward "\f" get-buffer-create " *autoload-file*" kill-all-local-variables erase-buffer buffer-undo-list buffer-read-only emacs-lisp-mode insert-file-contents "\n" generate-autoload-cookie "%s has no autoloads" kill-buffer generate-file-autoloads save-buffer] 5 (#$ . 4410) "fUpdate autoloads for file: "]) #@137 Update loaddefs.el with all the current autoloads from DIR, and no old ones. This uses `update-file-autoloads' (which see) do its work. (defalias 'update-autoloads-from-directory #[(dir) " ! #! \"!qeb\n#i͏8;_ \"!Zє!`|)_! \"*$) \" *" [expand-file-name dir directory-files nil "^[^=].*\\.el$" files find-file-noselect file-exists-p generated-autoload-file search-forward generate-autoload-section-header t (byte-code "p!" [read] 2) ((end-of-file)) form 3 file 0 begin generate-autoload-section-trailer update-file-autoloads delete mapcar save-buffer] 5 (#$ . 5691) "DUpdate autoloads from directory: "]) #@116 Update loaddefs.el autoloads in batch mode. Calls `update-autoloads-from-directory' on each command line argument. (defalias 'batch-update-autoloads #[nil "\n\"É" [mapcar update-autoloads-from-directory command-line-args-left nil] 3 (#$ . 6379)]) (provide (quote autoload))