;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304\305\306#\207" [require package lisp-mnt find-func finder-inf nil t] 4)
#@106 Association list of the standard "Keywords:" headers.
Each element has the form (KEYWORD . DESCRIPTION).
(defvar finder-known-keywords '((abbrev . "abbreviation handling, typing shortcuts, and macros") (bib . "bibliography processors") (c . "C and related programming languages") (calendar . "calendar and time management tools") (comm . "communications, networking, and remote file access") (convenience . "convenience features for faster editing") (data . "editing data (non-text) files") (docs . "Emacs documentation facilities") (emulations . "emulations of other editors") (extensions . "Emacs Lisp language extensions") (faces . "fonts and colors for text") (files . "file editing and manipulation") (frames . "Emacs frames and window systems") (games . "games, jokes and amusements") (hardware . "interfacing with system hardware") (help . "Emacs help systems") (hypermedia . "links between text or other media types") (i18n . "internationalization and character-set support") (internal . "code for Emacs internals, build process, defaults") (languages . "specialized modes for editing programming languages") (lisp . "Lisp support, including Emacs Lisp") (local . "code local to your site") (maint . "Emacs development tools and aids") (mail . "email reading and posting") (matching . "searching, matching, and sorting") (mouse . "mouse support") (multimedia . "images and sound") (news . "USENET news reading and posting") (outlines . "hierarchical outlining and note taking") (processes . "processes, subshells, and compilation") (terminals . "text terminals (ttys)") (tex . "the TeX document formatter") (tools . "programming tools") (unix . "UNIX feature interfaces and emulators") (vc . "version control") (wp . "word processing")) (#$ . 216))
#@31 Keymap used in `finder-mode'.
(defvar finder-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\301
\305\306#\210\301
\307\310#\210\301
\311\303#\210\301
\312\313#\210\301
\314\315#\210\301
\316\317#\210\301
\320\321#\210\301
\322\323#\210\207" [make-sparse-keymap define-key " " finder-select "f" [follow-link] mouse-face [mouse-2] finder-mouse-select "
" "?" finder-summary "n" next-line "p" previous-line "q" finder-exit "d" finder-list-keywords] 5) (#$ . 1979))
#@25 Menu for `finder-mode'.
(defvar finder-mode-menu nil (#$ . 2463))
(easy-menu-do-define 'finder-mode-menu finder-mode-map "Menu for `finder-mode'." '("Finder" ["Select" finder-select :help "Select item on current line in a finder buffer"] ["List keywords" finder-list-keywords :help "Display descriptions of the keywords in the Finder buffer"] ["Summary" finder-summary :help "Summary item on current line in a finder buffer"] ["Quit" finder-exit :help "Exit Finder mode"]))
#@43 Syntax table used while in `finder-mode'.
(defvar finder-mode-syntax-table (byte-code "\301!\302\303\304#\210\207" [emacs-lisp-mode-syntax-table make-syntax-table modify-syntax-entry 59 ".   "] 5) (#$ . 2943))
#@56 Internal Finder mode variable, local in Finder buffer.
(defvar finder-headmark nil (#$ . 3161))
#@107 Hash table mapping keywords to lists of package names.
Keywords and package names both should be symbols.
(defvar finder-keywords-hash nil (#$ . 3264))
#@72 The function `finder-compile-keywords' writes keywords into this file.
(defvar generated-finder-keywords-file "finder-inf.el" (#$ . 3422))
#@54 Regexp matching file names not to scan for keywords.
(defvar finder-no-scan-regexp "\\(^\\.#\\|\\(loaddefs\\|ldefs-boot\\|cus-load\\|finder-inf\\|esh-groups\\|subdirs\\|leim-list\\)\\.el$\\)" (#$ . 3567))
(autoload 'autoload-rubric "autoload")
#@188 Alist of built-in package descriptions.
Entries have the form (PACKAGE-SYMBOL . DESCRIPTION).
When generating `package--builtins', this overrides what the description
would otherwise be.
(defconst finder--builtins-descriptions '((emacs . "the extensible text editor") (nxml . "a new XML mode")) (#$ . 3818))
#@269 Alist of built-in package directories.
Each element should have the form (DIR . PACKAGE), where DIR is a
directory name and PACKAGE is the name of a package (a symbol).
When generating `package--builtins', Emacs assumes any file in
DIR is part of the package PACKAGE.
(defvar finder--builtins-alist '(("calc" . calc) ("ede" . ede) ("erc" . erc) ("eshell" . eshell) ("gnus" . gnus) ("international" . emacs) ("language" . emacs) ("mh-e" . mh-e) ("semantic" . semantic) ("analyze" . semantic) ("bovine" . semantic) ("decorate" . semantic) ("symref" . semantic) ("wisent" . semantic) ("nxml" . nxml) ("org" . org) ("srecode" . srecode) ("term" . emacs) ("url" . url)) (#$ . 4133))
#@28 Name of the Finder buffer.
(defconst finder-buffer "*Finder*" (#$ . 4817))
#@286 Regenerate list of built-in Emacs packages.
This recomputes `package--builtins' and `finder-keywords-hash',
and prints them into the file `generated-finder-keywords-file'.

Optional DIRS is a list of Emacs Lisp directories to compile
from; the default is `load-path'.

(fn &rest DIRS)
(defalias 'finder-compile-keywords #[128 "\306\307\310\311\"\312
\206
\n\306C\306:\203<
@\240\210\313\314\242!!\2035\315\316\317\320\"\321\242\306\322#\"!
\244\262
A\262\202\211\237\266\203\323\324\325!\312G#\306\211\211\211\211\211\211\211\203`
\211@\211@
A\326\327\330\314!!\"\243!\fT\211\262\306
\247\203{
@Y\205\200\331#\266\332\f\"\204W
\332\322\"\205\226\333\334\335\"!\211\262
\203W
\336\337\340\"r\211q\210\317\341\"\216\342\343\"!\210\316\333\344 \"\262
\206\315\345\346!\211\205\306\333
!\262
\206\315\f\262\n	
\236A\206\331\347 \262\f\345\350!\262	*\210\n\203W
\3511\363\352!0\202\367\210\202\372\206
\353	@\"\262\236\262\204
\354	\306#BB\2026
	=\2036
A\262\312	I\210\355\fI\210	\211\203V
\211@\356
\f\357\360	\"\"B	#\210
A\266\202\2028
\210\266
A\266\202\202Q\210\361!\266\362\363\"r\364A!q\210\340B\365 \210\366A\367\340#c\210\370\371!\210\372c\210\211\203\241
\211@\373c\210\374
p\"\210\375c\210
A\266\202\202\211
\210\376c\210\377c\210\374	p\"\210\201Cc\210\201D )\207" [package--builtins finder-keywords-hash load-path finder--builtins-alist finder-no-scan-regexp finder--builtins-descriptions nil make-hash-table :test eq 0 file-exists-p directory-file-name reverse mapcar make-closure #[257 "\300\242
B\207" [V0] 3 "\n\n(fn F)"] directory-files "\\`\\([^=].*\\)\\.el\\(\\.\\(gz\\|Z\\)\\)?\\'" make-progress-reporter byte-compile-info "Scanning files for finder" intern-soft assoc file-name-nondirectory progress-reporter-do-update string-match intern match-string 1 generate-new-buffer " *temp*" t #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents expand-file-name lm-keywords-list lm-header "package" lm-synopsis "version" (error) version-to-list alist-get vector 2 puthash delq gethash progress-reporter-done sort #[514 "\300@!\300@!\231\207" [symbol-name] 5 "\n\n(fn A B)"] find-file-noselect erase-buffer autoload-rubric "keyword-to-package mapping" search-backward "\f" "(setq package--builtins '(\n" "  " prin1 "\n" "))\n\n" "(setq finder-keywords-hash\n      " package--builtin-versions generated-finder-keywords-file buffer-undo-list ")\n" basic-save-buffer] 26 (#$ . 4899)])
#@56 Regenerate `finder-inf.el' for the Emacs distribution.
(defalias 'finder-compile-keywords-make-dist #[0 "\301\302\"\210\303 \207" [command-line-args-left apply finder-compile-keywords kill-emacs] 3 (#$ . 7430)])
#@74 Insert, at column COLUMN, other args STRINGS.

(fn COLUMN &rest STRINGS)
(defalias 'finder-insert-at-column #[385 "iY\203	\300c\210\301\302\"\210\303\304\"\207" ["\n" move-to-column t apply insert] 5 (#$ . 7649)])
(defvar finder-help-echo nil)
#@67 Put `mouse-face' and `help-echo' properties on the previous line.
(defalias 'finder-mouse-face-on-line #[0 "\212\302y\210\303\304!\203
\302y\210\204%\305\306	\"\305\307	\"
\244\310\311\312#\313P\266\202\314\315 \316 \317#)\207" [finder-help-echo finder-mode-map -1 looking-at "[ 	]" where-is-internal finder-select finder-mouse-select mapconcat key-description ", " ": select item" add-text-properties line-beginning-position line-end-position (mouse-face highlight help-echo finder-help-echo)] 6 (#$ . 7903)])
#@164 Return an alist of unknown keywords and number of their occurrences.
Unknown keywords are those present in `finder-keywords-hash' but
not `finder-known-keywords'.
(defalias 'finder-unknown-keywords #[0 "\301C\302\303\304\"\"\210\305
\242\306\"\207" [finder-keywords-hash nil maphash make-closure #[514 "
	\236?\205\300GB\300\242B\240\207" [V0 finder-known-keywords] 5 "\n\n(fn KW PACKAGES)"] sort #[514 "
@
@\231\207" [] 4 "\n\n(fn A B)"]] 5 (#$ . 8426)])
#@60 Display descriptions of the keywords in the Finder buffer.
(defalias 'finder-list-keywords #[0 "\305!\203\n\306!\207\306\307!!\210\310 \210\311\312 \210\n\211\203=\211@\211@\313\314!\315\316#c\210\317\320A\321P\"\210\322 \266
A\266\202\202\210eb\210`\311\323\324!\210\325 \210\326 )\207" [finder-buffer inhibit-read-only finder-known-keywords finder-headmark buffer-read-only get-buffer pop-to-buffer get-buffer-create finder-mode t erase-buffer propertize symbol-name font-lock-face font-lock-constant-face finder-insert-at-column 14 "\n" finder-mouse-face-on-line set-buffer-modified-p nil balance-windows finder-summary] 7 (#$ . 8894) nil])
#@12 

(fn KEY)
(defalias 'finder-list-matches #[257 "\302
!\303
\"\211\204\304\305\"\210\306\307
!)\207" [finder-keywords-hash package-list-unversioned intern gethash error "No packages matching key `%s'" t package-show-package-list] 6 (#$ . 9557)])
(define-button-type 'finder-xref 'action 'finder-goto-xref)
#@59 Jump to a Lisp file for the BUTTON at point.

(fn BUTTON)
(defalias 'finder-goto-xref #[257 "\300
\301\"\302
!\211\203\303
!\207\304\305\"\207" [button-get xref locate-library finder-commentary message "Unable to locate `%s'"] 6 (#$ . 9874)])
#@114 Display FILE's commentary section.
FILE should be in a form suitable for passing to `locate-library'.

(fn FILE)
(defalias 'finder-commentary #[257 "\302\303!!\211\204
\304\305!\210\306\307!\210\310\311\312 \210\211c\210eb\210\313\314\310\311#\203A\315\316\317!!\203\320\317\224\317\225\321\322\317!\323\324\325\326&\210\202eb\210\311\327\310!\210\330 \210\331 \210\332 \207" [buffer-read-only buffer-undo-list lm-commentary find-library-name error "Can't find any Commentary section" pop-to-buffer "*Finder-package*" nil t erase-buffer re-search-forward "\\<\\([-[:alnum:]]+\\.el\\)\\>" locate-library match-string 1 make-text-button xref match-string-no-properties help-echo "Read this file's commentary" :type finder-xref set-buffer-modified-p shrink-window-if-larger-than-buffer finder-mode finder-summary] 11 (#$ . 10127) (byte-code "\302\303\304\305\206		\306 #\"C\207" [find-library-source-path load-path completing-read "Library name: " apply-partially locate-file-completion-table find-library-suffixes] 6)])
(defalias 'finder-current-item #[0 "\212\301 \210\302 )\203`W\204\211G\303U\203\304\305!\207\207" [finder-headmark beginning-of-line current-word 0 error "No keyword or filename on this line"] 3])
#@49 Select item on current line in a Finder buffer.
(defalias 'finder-select #[0 "\300 \301\302\"\203
\303
!\207\304
!\207" [finder-current-item string-match "\\.el$" finder-commentary finder-list-matches] 4 (#$ . 11369) [nil (finder-mode)]])
#@60 Select item in a Finder buffer with the mouse.

(fn EVENT)
(defalias 'finder-mouse-select #[257 "r\300\301!\211@\262
!q\210\302\301!!b\210\303 )\207" [window-buffer event-start posn-point finder-select] 4 (#$ . 11616) "e"])
#@41 Find packages matching a given keyword.
(defalias 'finder-by-keyword #[0 "\300 \207" [finder-list-keywords] 1 (#$ . 11848) nil])
(defvar finder-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [finder-mode-hook variable-documentation put "Hook run after entering Finder mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp finder-mode-map definition-name finder-mode] 4)
(defvar finder-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\300!\204#\303\300\307\310#\210\311\312\300\313\"\210!\210\300\302N\2041\303\300\302\304\314!#\210\303\310\315\313#\207" [finder-mode-abbrev-table finder-mode-map variable-documentation put purecopy "Keymap for `finder-mode'." boundp definition-name finder-mode (lambda (#1=#:def-tmp-var) (defvar finder-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `finder-mode'." derived-mode-parent] 5)
#@288 Major mode for browsing package documentation.
\<finder-mode-map>
\[finder-select]	more help for the item on the current line
\[finder-exit]	exit Finder mode and kill the Finder buffer.

This mode runs the hook `finder-mode-hook', as the final or
penultimate step during initialization.
(defalias 'finder-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\307\211\306\315!\210\316
)\317\320!\207" [delay-mode-hooks major-mode mode-name finder-mode-map finder-mode-syntax-table finder-mode-abbrev-table make-local-variable t kill-all-local-variables finder-mode "Finder" use-local-map set-syntax-table finder-headmark nil run-mode-hooks finder-mode-hook local-abbrev-table buffer-read-only buffer-undo-list] 3 (#$ . 12891)])
#@34 Summarize basic Finder commands.
(defalias 'finder-summary #[0 "\300\301\302\303!\"\207" [message "%s" substitute-command-keys "\\<finder-mode-map>\\[finder-select] = select, \\[finder-mouse-select] = select, \\[finder-list-keywords] = to finder directory, \\[finder-exit] = quit, \\[finder-summary] = help"] 4 (#$ . 13647) [nil (finder-mode)]])
#@72 Exit Finder mode.
Quit the window and kill all Finder-related buffers.
(defalias 'finder-exit #[0 "\301\302!\210\303D\211\205\211@\304
!\203\305
!\210
A\266\202\202\207" [finder-buffer quit-window t "*Finder-package*" get-buffer kill-buffer] 4 (#$ . 13999) [nil (finder-mode)]])
#@28 Unload the Finder library.
(defalias 'finder-unload-function #[0 "\3001
\301\302\303\"0\210\202\304\305\"\266\306\207" [(debug error) unload-feature finder-inf t message "Error: %S" nil] 4 (#$ . 14291)])
(provide 'finder)