;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require lisp-mode lisp-mnt cl-lib loaddefs-gen] 2)#@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'. (defvar generate-autoload-cookie ";;;###autoload" (#$ . 202))#@68 If non-nil, list of absolute file names not to scan for autoloads. (defvar autoload-excludes nil (#$ . 715))#@75 String that marks the form at the start of a new file's autoload section. (defconst generate-autoload-section-header "\f\n;;;### " (#$ . 829))#@72 String which indicates the end of the section of autoloads for a file. (defconst generate-autoload-section-trailer "\n;;;***\n" (#$ . 977))#@64 String to add on each continuation of the section header form. (defconst generate-autoload-section-continuation ";;;;;; " (#$ . 1122))#@52 Value to insert when `autoload-timestamps' is nil. (defconst autoload--non-timestamp '(0 0 0 0) (#$ . 1262))#@892 Non-nil means insert a timestamp for each input file into the output. We use these in incremental updates of the output file to decide if we need to rescan an input file. If you set this to nil, then we use the timestamp of the output file instead. As a result: - for fixed inputs, the output will be the same every time - incremental updates of the output file might not be correct if: i) the timestamp of the output file cannot be trusted (at least relative to that of the input files) ii) any of the input files can be modified during the time it takes to create the output iii) only a subset of the input files are scanned These issues are unlikely to happen in practice, and would arguably represent bugs in the build system. Item iii) will happen if you use a command like `update-file-autoloads', though, since it only checks a single input file. (defvar autoload-timestamps nil (#$ . 1377)) (defalias 'make-autoload 'loaddefs-generate--make-autoload)#@83 Visit the autoload file for the current buffer, and return its buffer. (fn FILE) (defalias 'autoload-find-generated-file #[257 "\304\305\211\306r\307\310!!q\210\311 \312U\203\313\305\306#c\210p-\207" [delay-mode-hooks find-file-hook enable-local-eval enable-local-variables :safe nil t find-file-noselect autoload-ensure-file-writeable buffer-size 0 autoload-rubric] 5 (#$ . 2378)])#@234 Return OUTFILE as an absolute name. If `generated-autoload-file' is bound locally in the current buffer, that is used instead, and it is expanded using the default directory; otherwise, `source-directory'/lisp is used. (fn OUTFILE) (defalias 'autoload-generated-file #[257 "\302\303\300!\203 \202\f\303\300!?\205\302\304 \"\"\207" [generated-autoload-file source-directory expand-file-name local-variable-p "lisp"] 6 (#$ . 2776)])#@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 #[0 "\301 \302\303\"\216`\304\305y\210\306!\203\305y\210\202\f`{\262r\307\310!q\210\311 \210\211c\210eb\210\312\304\313#\203;\314\315!\210\202,eb\210\316p!)\266\202)\207" [generate-autoload-section-continuation match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] nil 1 looking-at get-buffer-create " *autoload*" erase-buffer search-forward t replace-match " " read] 7 (#$ . 3220)])#@56 Buffer which gets the output of `autoload-print-form'. (defvar autoload-print-form-outbuf nil (#$ . 3852))#@159 Print FORM such that `make-docfile' will find the docstrings. The variable `autoload-print-form-outbuf' specifies the buffer to put the output in. (fn FORM) (defalias 'autoload-print-form #[257 "\211@\305=\203 \306\307A\"\207\2119\203\310\207\311\242\312\"\247\203\2478;\203\247S\233\211A\310\241\210\313\314\"\210\315\211\211\211\211\203W\211@\316\"\210\313\317\"\210A\266\202\202>,\210\313\320\"\210rq\210`)\313\321@!\322\310O\"\210rq\210\212\323\324\315#\203\205\322u\210\325c\210\202t*A\204\223\313\326\"\210\202\243\313\317\"\210\313\321A!\322\310O\"\210\327!\207\315\211\211\211\330\",\207" [autoload-print-form-outbuf print-escape-nonascii print-quoted print-escape-control-characters print-escape-newlines progn mapcar autoload-print-form nil function-get doc-string-elt princ "\n(" t prin1 " " "\"\\\n" prin1-to-string 1 re-search-backward "\n[[(]" "\\" ")" terpri print] 10 (#$ . 3965)]) (defalias 'autoload-rubric 'loaddefs-generate--rubric)#@76 Non-nil means `autoload-find-generated-file' makes existing file writable. (defvar autoload-ensure-writable nil (#$ . 4974)) (put 'autoload-ensure-writable 'risky-local-variable t)#@13 (fn FILE) (defalias 'autoload-ensure-file-writeable #[257 "\203%\301!\211\203$\302\303\"\304U\203$\3051#\306\307\303\"\"0\266\207\210\210\207" [autoload-ensure-writable file-modes logand 128 0 (error) set-file-modes logior] 7 (#$ . 5160)])#@318 Insert into buffer OUTBUF the section-header line for FILE. The header line lists the file name, its "load name", its autoloads, and the time the FILE was last updated (the time is inserted only if `autoload-timestamps' is non-nil, otherwise a fixed fake time is inserted). (fn OUTBUF AUTOLOADS LOAD-NAME FILE TIME) (defalias 'autoload-insert-section-header #[1285 "c\210\302\303\257\"\210\304!\210rq\210\212\305y\210l?\2054\306\307!\210\310\311w\210l\204\312 \261\210\202*\207" [generate-autoload-section-header generate-autoload-section-continuation prin1 autoloads terpri -1 move-to-column 64 "^ \n" nil "\n"] 11 (#$ . 5418)])#@72 Fetch FILE and put it in a temp buffer. Return the buffer. (fn FILE) (defalias 'autoload-find-file #[257 "\306!\262r\307\310!q\210\311 \210\312 \210\313\314\315\302!\210\313\316 )\210\317!\320\314\"\210\321\314\322 *\210p)\207" [buffer-undo-list buffer-read-only delay-mode-hooks default-directory enable-local-eval enable-local-variables expand-file-name get-buffer-create " *autoload-file*" kill-all-local-variables erase-buffer t nil make-local-variable emacs-lisp-mode file-name-directory insert-file-contents :safe hack-local-variables] 4 (#$ . 6070)]) (defalias 'autoload-file-load-name 'loaddefs-generate--file-load-name)#@315 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. Return non-nil in the case where no autoloads were added at point. (fn FILE) (defalias 'generate-file-autoloads #[257 "\302\303p #\210)\207" [autoload-modified-buffers buffer-file-name nil autoload-generate-file-autoloads] 5 (#$ . 6717) "fGenerate autoloads for file: "])#@305 Target length of the list of definition prefixes per file. If set too small, the prefixes will be too generic (i.e. they'll use little memory, we'll end up looking in too many files when we need a particular prefix), and if set too large, they will be too specific (i.e. they will cost more memory use). (defconst autoload-def-prefixes-max-entries 5 (#$ . 7235))#@100 Target size of definition prefixes. Don't try to split prefixes that are already longer than that. (defconst autoload-def-prefixes-max-length 12 (#$ . 7604)) (defalias 'autoload--make-defs-autoload 'loaddefs-generate--make-prefixes)#@54 (fn OTHERBUF OUTBUF ABSFILE LOAD-NAME OUTPUT-FILE) (defalias 'autoload--setup-output #[1285 "\204\206\300#\206\301\302\"r\211q\210\303 )\207" [autoload-find-destination throw done point-marker] 9 (#$ . 7842)])#@36 (fn OUTPUT-START LOAD-NAME FILE) (defalias 'autoload--print-cookie-text #[771 "\303!\304 !\210\305\306w\210l\203C\30715\310p!n\204\311y\210\312\"\211\204)\262\313!)\266\2020\202Z\314\315\316e`\"$\262\202Z\317\320\306x\210`Tf\321U\203S\311u\210`\311y\210`{!)\207" [standard-output generate-autoload-cookie autoload-print-form-outbuf marker-buffer search-forward " " nil (debug error) read 1 make-autoload autoload-print-form message "Autoload cookie error in %s:%s %S" count-lines princ " \f " 32] 10 (#$ . 8072)]) (defvar autoload-builtin-package-versions nil)#@633 Insert an autoload section for FILE in the appropriate buffer. 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. OUTBUF is the buffer in which the autoload statements should be inserted. If OUTBUF is nil, the output will go to OUTFILE, unless there's a buffer-local setting of `generated-autoload-file' in FILE. Return non-nil if and only if FILE adds no autoloads to OUTFILE (or OUTBUF if OUTFILE is nil). The actual return value is FILE's modification time. (fn FILE &optional OUTBUF OUTFILE) (defalias 'autoload-generate-file-autoloads #[769 "\3061J\307\211\211\211\310!\307\311 !\307\211\3122:r\206(\313\f!q\210 \204*\f\2048\314\315 \"\210 ;\203A \202F\316 \"\262  \203r\n\204r>\317>\203e \227\320 !\227\232\202l \320 !\232\204r\321\262\212\214~\210?\203\332\322\323!\307\203\330\3241\216\325!0\202\220\210\307\211\262\203\330\322\326!\206\242\327\330!!\211\262\203\330\331%\211\262\203\330\332!\321@A\333\334\335\336\337!BDD\340BB!\210\333\341!*\210\266B\235\204Ceb\210m\204C\342\307w\210\343\344C!!\203\211\204\331\f\f%\262\345\n#\210\202\344g\346U\203\347y\210\202\344C\350\232\2039\343\351!\2039\352\347!D\235\2049\353\354!B\262\355\347!\210\347y\210\202\344*E\203\306\203\306\356\n\"\211\203\305\204y\204k\331\307  %\262\332!F\357!)\266\202\306\331\307  %\332!F\357!\210r\332!q\210\212\211b\210\360!\361\332!\362G\203\263\363 !\3648\262\202\265H%\210\365\341\261)\266Ic*\266\210\211\203 \205\317pr\332!q\210`V\204\337\366\367!\210\212b\210\360!\361\332!\307 \203\375\370\307\211\371$\202G\203\363!\3648\262\202H%\210\365\341\261)\266Ic)\266\f\204*\314\372 \"\210\2042\373p!\210)\211?\20690\205E\363!\3648\262+\266\2110\207\374\375@A$\207" [float-output-format print-level print-length no-update-autoloads noninteractive generated-autoload-load-name (error) nil get-file-buffer expand-file-name done autoload-find-file message "Generating autoloads for %s..." autoload-file-load-name (ms-dos windows-nt) autoload-generated-file t lm-header "version" (error) version-to-list "package" file-name-sans-extension file-name-nondirectory autoload--setup-output marker-buffer princ push purecopy quote intern (package--builtin-versions) "\n" " \n\f" looking-at regexp-quote autoload--print-cookie-text 59 1 ";;;###autoload" "(\\(def[^ ]+\\) ['(]*\\([^' ()\"\n]+\\)[\n ]" match-string match-string-no-properties 2 forward-sexp autoload--make-defs-autoload autoload-print-form file-relative-name autoload-insert-section-header "actual autoloads are elsewhere" file-attributes 5 ";;; Generated autoloads from " cl--assertion-failed (> (point) output-start) md5 emacs-mule-unix "Generating autoloads for %s...done" kill-buffer error "%s:0:0: error: %s: %s" system-type autoload-builtin-package-versions print-quoted standard-output autoload-excludes generate-autoload-cookie autoload-ignored-definitions autoload-compute-prefixes autoload-print-form-outbuf autoload-timestamps autoload--non-timestamp generate-autoload-section-trailer] 24 (#$ . 8662)])#@46 Save current buffer to its file, atomically. (defalias 'autoload--save-buffer #[0 "\304\305 !\306 \307\310\"\307\311 !\206\312\"\313\314\"\nBU\204(\315\316#\210\317ed\320\321%\210\322 \210\323 \324#*\266\325\320!\210\326 \210 \206K\327\330 \"\207" [version-control buffer-file-name kill-emacs-hook noninteractive never make-temp-file default-file-modes logand 384 file-modes 438 make-closure #[0 "\3011 \302\300!0\207\210\303\207" [V0 (error) delete-file nil] 2] set-file-modes nofollow write-region nil 1 backup-buffer rename-file t set-buffer-modified-p set-visited-file-modtime message "Wrote %s"] 10 (#$ . 11953)]) (defalias 'autoload-save-buffers #[0 "\205r\211A\242q\210\301 )\210\202\207" [autoload-modified-buffers autoload--save-buffer] 2])#@491 Update the autoloads for FILE. If prefix arg SAVE-AFTER is non-nil, save the buffer too. If FILE binds `generated-autoload-file' as a file-local variable, autoloads are written into that file. Otherwise, the autoloads file is determined by OUTFILE. If called interactively, prompt for OUTFILE; if called from Lisp with OUTFILE nil, use the existing value of `generated-autoload-file'. Return FILE if there was no autoload cookie in it, else nil. (fn FILE &optional SAVE-AFTER OUTFILE) (defalias 'update-file-autoloads #[769 "\211\206\262\303\304\305\303\306\300!\203\202# \203(\2033\307 \210\2023\310\311!\2033\312\313\"\210\211\2058*\207" [generated-autoload-file autoload-modified-buffers autoload-timestamps nil t autoload-generate-file-autoloads local-variable-p autoload-save-buffers called-interactively-p interactive message "Autoload section for %s is up to date."] 8 (#$ . 12734) (byte-code "\301\302!\301\303!E\207" [current-prefix-arg read-file-name "Update autoloads for file: " "Write autoload definitions to file: "] 4)])#@372 Find the destination point of the current buffer's autoloads. FILE is the file name of the current buffer. LOAD-NAME is the name as it appears in the output. Returns a buffer whose point is placed at the requested location. Returns nil if the file's autoloads are up-to-date, otherwise removes any prior now out-of-date autoload entries. (fn FILE LOAD-NAME OUTPUT-FILE) (defalias 'autoload-find-destination #[771 "\3052\360p\205\n\211\306!\307!\205\310!\3118\262\312r\313!q\210\314 !\315=\204.\316\317!\210\320 \315V\204:\321\322\"\210\323!\204E\321\324\"\210~\210eb\210\211\204\324\325\n\312\326#\203\324\327 \3308\230\203\300\315\224\3318\310 !\3118\262\203{\332!\204\267\203\220\326 D\235\203\220\333\"?\202\253<\203\235\333\"?\202\253;\203\267\334\n\312\211\335$\232\203\267\336\305\312\"\266\202J\337!\266\326\202J\3308\231\203\320\315\224b\210\326\262\210\202J\211\204\341db\210\340\341\312\326#\210p\f>\204\353p\fBp)\266\2050\207" [buffer-file-name buffer-file-coding-system generate-autoload-section-header autoload--non-timestamp autoload-modified-buffers up-to-date autoload-generated-file file-exists-p file-attributes 5 nil autoload-find-generated-file coding-system-eol-type 0 set-buffer-file-coding-system unix buffer-size error "Autoloads file %s lacks boilerplate" file-writable-p "Autoloads file %s is not writable" search-forward t autoload-read-section-header 2 4 buffer-modified-p time-less-p md5 emacs-mule throw autoload-remove-section search-backward "\f"] 18 (#$ . 13803)])#@14 (fn BEGIN) (defalias 'autoload-remove-section #[257 "\211b\210\301!\210\211`|\207" [generate-autoload-section-trailer search-forward] 3 (#$ . 15372)])#@682 Update autoload definitions for Lisp files in the directories DIRS. In an interactive call, you must give one argument, the name of a single directory. In a call from Lisp, you can supply multiple directories as separate arguments, but this usage is discouraged. The function does NOT recursively descend into subdirectories of the directory or directories specified. In an interactive call, prompt for a default output file for the autoload definitions. When called from Lisp, use the existing value of `generated-autoload-file'. If any Lisp file binds `generated-autoload-file' as a file-local variable, write its autoloads into the specified file instead. (fn &rest DIRS) (defalias 'update-directory-autoloads #[128 "\301\302\303!\203\304\305!\202\"\207" [generated-autoload-file make-directory-autoloads called-interactively-p interactive read-file-name "Write autoload definitions to file: "] 5 (#$ . 15532) "DUpdate autoloads from directory: "]) (make-obsolete 'update-directory-autoloads 'loaddefs-generate "29.1")#@471 Update autoload definitions for Lisp files in the directories DIR. DIR can be either a single directory or a list of directories. (The latter usage is discouraged.) The autoloads will be written to OUTPUT-FILE. If any Lisp file binds `generated-autoload-file' as a file-local variable, write its autoloads into the specified file instead. The function does NOT recursively descend into subdirectories of the directory or directories specified. (fn DIR OUTPUT-FILE) (defalias 'make-directory-autoloads #[514 "\306\307 \211\203\211@\310\311\"\204\211B\262A\266\202\202\210\312\313\314\"\315Q\262\316\317\320\321\322\":\2038\202;C\"\"\306\211\211\211\323\306\324!\205U\325!\3268\262r\327!q\210\212\330\331\n!\320\331 \"\"\262eb\210\332 \306\314#\2030\333 \3348\211:\203\315\211@;\203\315\335\323\224!\210\3368\262\314\fD\235\203\231\262\211\211\203\311\211@\325!\3268\262\211\203\301\337\"\204\301B\262\330\f\"\262 \210A\266\202\202\232\210\202\211;\203\324!\203\337\211\235\203\352\314\262\335\323\224!\210\202\337\3368\211\314\fD\235\203\372\202\373\211\262\325!\3268\262\"\203\314\262\335\323\224!\210\340p\n#\203\211B\262\211B\262\330 \"\262\266\202l)\2066\341\342\343\344\331\f!P!\323 G\306\345%\323\306 \211\203\223\211@T\211\262\306\247\203c@Y\205h\346#\266\340\306\n#\211\262\203\211\211B\262\337\"\203\214\262\202\214\314\262\nA\266\202\202J\210\347!\210\203\305\350\351\"\262db\210\352\353\306\314#\210\354p\306\211\355\356 \" \203\276\202\277\f%\2102c\210\266\204\322\357\306!\210\202\325\360 \210\361 +\207" [left-margin autoload-modified-buffers buffer-file-name generate-autoload-section-header autoload--non-timestamp autoload-timestamps nil get-load-suffixes string-match "\\.\\(elc\\|so\\|dll\\)" "\\`[^=.].*" regexp-opt t "\\'" apply nconc mapcar make-closure #[257 "\301\302!\303\300#\207" [V0 directory-files expand-file-name t] 5 "\n\n(fn D)"] 0 file-exists-p file-attributes 5 autoload-find-generated-file delete file-relative-name search-forward autoload-read-section-header 3 autoload-remove-section 4 time-less-p autoload-generate-file-autoloads (0 0 0 0) make-progress-reporter byte-compile-info "Scraping files for " 10 progress-reporter-do-update progress-reporter-done sort string< search-backward "\f" autoload-insert-section-header seq-filter #[257 "\300\301\302\303$\266\203?\207" ["[/-]loaddefs.el" nil string-match t] 9 "\n\n(fn FILE)"] set-buffer-modified-p autoload--save-buffer autoload-save-buffers generate-autoload-section-trailer] 22 (#$ . 16572) "DUpdate autoloads from directory: \nFWrite to file: "]) (make-obsolete 'make-directory-autoloads 'loaddefs-generate "29.1")#@16 (fn STRINGS) (defalias 'batch-update-autoloads--summary #[257 "\300\2035\211\301@QG\302V\203\303\304P\305\306#\210\300\262\211G\307U\203'@\202,\211\301@Q\262A\262\202\211G\307V\205A\303\305\306#\207" ["" " " 64 byte-compile-info " ..." t "SCRAPE" 0] 6 (#$ . 19343)])#@191 Update loaddefs.el autoloads in batch mode. Calls `update-directory-autoloads' on the command line arguments. Definitions are written to `generated-autoload-file' (which should be non-nil). (defalias 'batch-update-autoloads #[0 "\204P\304 !\305\306\307!\203M\310\311\312\"r\211q\210\313\314\"\216\315\307!\210\316\317\305\312#\203K\320\321!\262\322\323\"\204;\324\325\"\262\322\326\"\204!\327!B\202!*\210)\266 \330!\210\305\331 \"\207" [autoload-excludes generated-autoload-file default-directory command-line-args-left file-name-directory nil file-readable-p "loadup.el" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "^(load \"\\([^\"]+\\)\"" match-string 1 string-match "\\.el\\'" format "%s.el" "\\`site-" expand-file-name batch-update-autoloads--summary make-directory-autoloads] 7 (#$ . 19636)]) (provide 'autoload)