;ELC ;;; Compiled by rms@psilocin.ai.mit.edu on Sat Jun 6 14:05:59 1998 ;;; from file /gd/gnu/emacs/lisp/finder.el ;;; in Emacs version 20.2.94.1 ;;; with bytecomp version 2.45 ;;; 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 "`finder.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\304\305!\210\304\306!\210\307B\310\301!\204\311\301B\310\302!\204 \312\302B\n\204X\313 \314 \315\316#\210\314 \317\316#\210\314 \320\321#\210\314 \322\316#\210\314 \323\324#\210\314 \325\326#\210\314 \327\330#\210 )\312\207" [current-load-list finder-known-keywords finder-mode-map map require lisp-mnt finder-inf finder-headmark boundp ((abbrev . "abbreviation handling, typing shortcuts, macros") (bib . "code related to the `bib' bibliography processor") (c . "support for the C language and related languages") (calendar . "calendar and time management support") (comm . "communications, networking, remote access to files") (convenience . "convenience features for faster editing") (data . "support editing files of data") (docs . "support for Emacs documentation") (emulations . "emulations of other editors") (extensions . "Emacs Lisp language extensions") (faces . "support for multiple fonts") (frames . "support for Emacs frames and window systems") (games . "games, jokes and amusements") (hardware . "support for interfacing with exotic hardware") (help . "support for on-line help systems") (hypermedia . "support for links between text or other media types") (i18n . "internationalization and alternate 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 . "maintenance aids for the Emacs development group") (mail . "modes for electronic-mail handling") (matching . "various sorts of searching and matching") (mouse . "mouse support") (news . "support for netnews reading and posting") (oop . "support for object-oriented programming") (outlines . "support for hierarchical outlining") (processes . "process, subshell, compilation, and job control support") (terminals . "support for terminal types") (tex . "code related to the TeX formatter") (tools . "programming tools") (unix . "front-ends/assistants for, or emulators of, UNIX features") (vms . "support code for vms") (wp . "word processing")) nil make-sparse-keymap define-key " " finder-select "f" [mouse-2] finder-mouse-select " " "?" finder-summary "q" finder-exit "d" finder-list-keywords] 4) #@63 Assoc list mapping file names to description & keyword lists. (defvar finder-package-info nil (#$ . 2891)) #@186 Regenerate the keywords association list into the file `finder-inf.el'. Optional arguments are a list of Emacs Lisp directories to compile from; no arguments compiles from `load-path'. (defalias 'finder-compile-keywords #[(&rest dirs) "\212\303\304\305!\210\306 \210\307c\210\310c\210\311c\210\312c\210\313c\210\314c\210\315\316 \206#\n\"\210\317c\210\320\321!\210\322 \210\323 *\207" [processed dirs load-path nil find-file "finder-inf.el" erase-buffer ";;; finder-inf.el --- keyword-to-package mapping\n" ";; Keywords: help\n" ";;; Commentary:\n" ";; Don't edit this file. It's generated by finder.el\n\n" ";;; Code:\n" "\n(setq finder-package-info '(\n" mapcar #[(d) "\301\302!!\205\303\304\"\210\305\306\307\206\310!\"\207" [d file-exists-p directory-file-name message "Directory %s" mapcar #[(f) "\306\307\"\204\306\310\"\205\201\311\312!\205\201\306\313\"?\205\201 \235?\205\201\314\211\211 B\212\315\316!q\210\317p!\210\320 \210\321\322 \206A\323!P!\210\324 \325 )\326\327\306\330\"\203\\\331!\202]\"c\210\332\fp\"\210\333c\210`\n\203u\326\334\n\"\202v\335\336\261\210\337 `\340\341$+\207" [f processed keywords keystart summary d string-match "^[^=].*\\.el$" "^[^=].*\\.el\\.\\(gz\\|Z\\)$" require jka-compr "^.#" nil get-buffer-create "*finder-scratch*" buffer-disable-undo erase-buffer insert-file-contents file-name-as-directory "." lm-synopsis lm-keywords format " (\"%s\"\n " "\\.\\(gz\\|Z\\)$" file-name-sans-extension prin1 "\n " "(%s)" "nil" ")\n" subst-char-in-region 44 32] 5] directory-files "."] 4] "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n" kill-buffer "*finder-scratch*" eval-current-buffer basic-save-buffer] 3 (#$ . 3005)]) #@56 Regenerate `finder-inf.el' for the Emacs distribution. (defalias 'finder-compile-keywords-make-dist #[nil "\301\302\"\210\303 \207" [command-line-args-left apply finder-compile-keywords kill-emacs] 3 (#$ . 4734)]) #@47 Insert, at column COLUMN, other args STRINGS. (defalias 'finder-insert-at-column #[(column &rest strings) "iV\203 \302c\210\303\304\"\210\305\306 \"\207" [column strings "\n" move-to-column t apply insert] 3 (#$ . 4955)]) #@51 Put a `mouse-face' property on the previous line. (defalias 'finder-mouse-face-on-line #[nil "\212\300\301!\210\302\212\303y\210`)\304\210`\305\306$)\207" [previous-line 1 put-text-property 0 nil mouse-face highlight] 5 (#$ . 5186)]) #@60 Display descriptions of the keywords in the Finder buffer. (defalias 'finder-list-keywords #[nil "\303\304!\203\n\305\304!\207\305\306\304!q!\210\307 \210\310\311 \210\312\313 \"\210eb\210`\314\315\310!\210\316 \210\317 \207" [buffer-read-only finder-known-keywords finder-headmark get-buffer "*Finder*" pop-to-buffer get-buffer-create finder-mode nil erase-buffer mapcar #[(assoc) "@\302 !c\210\303\304A\305P\"\210\306 )\207" [assoc keyword symbol-name finder-insert-at-column 14 "\n" finder-mouse-face-on-line] 4] t set-buffer-modified-p balance-windows finder-summary] 3 (#$ . 5427) nil]) (defalias 'finder-list-matches #[(key) "\305\306\307!q!\210\310 \210\311\312 \210\313 !\314 \315\261\210`\316\317\f\"\210eb\210\311y\210\320\321\311!\210\322 \210\323 )\207" [buffer-read-only key id finder-headmark finder-package-info pop-to-buffer get-buffer-create "*Finder Category*" finder-mode nil erase-buffer intern "The following packages match the keyword `" "':\n\n" mapcar #[(x) " AA@>\205 @c\210\302\303 A@\304P\"\210\305 \207" [id x finder-insert-at-column 16 "\n" finder-mouse-face-on-line] 4] t set-buffer-modified-p shrink-window-if-larger-than-buffer finder-summary] 3]) (defalias 'finder-find-library #[(library) "\302\303\"\206%\304\305 \"\205%\302\306P\303\"\206%\302\307P\303\"\206%\302\310P!\207" [library file-name-handler-alist locate-library t rassq jka-compr-handler ".gz" ".Z" "z"] 3]) #@36 Display FILE's commentary section. (defalias 'finder-commentary #[(file) "\303\304!!\211\204\305\306!\210\307\310!\210\311\312 \210 c\210eb\210\313 \210db\210\313 \210eb\210\314\315\311\316#\203:\317\320\311\211#\210\202)eb\210\316\321\311!\210\322 \210\323 )\207" [file str buffer-read-only lm-commentary finder-find-library error "Can't find any Commentary section" pop-to-buffer "*Finder*" nil erase-buffer delete-blank-lines re-search-forward "^;+ ?" t replace-match "" set-buffer-modified-p shrink-window-if-larger-than-buffer finder-summary] 5 (#$ . 6861) nil]) (defalias 'finder-current-item #[nil "\203`W\203\301\302!\207\212\303y\210\304 )\207" [finder-headmark error "No keyword or filename on this line" 0 current-word] 2]) #@49 Select item on current line in a finder buffer. (defalias 'finder-select #[nil "\301 \302\303\"\203\304!\202\305!)\207" [key finder-current-item string-match "\\.el$" finder-commentary finder-list-matches] 3 (#$ . 7616) nil]) #@48 Select item in a finder buffer with the mouse. (defalias 'finder-mouse-select #[(event) "\212\302\211A@)\211@)!q\210\211A@)\211A@:\203$ A@@\202' A@)b\210\303 )\207" [event position window-buffer finder-select] 3 (#$ . 7856) "e"]) #@41 Find packages matching a given keyword. (defalias 'finder-by-keyword #[nil "\300 \207" [finder-list-keywords] 1 (#$ . 8100) nil]) #@188 Major mode for browsing package documentation. \ \[finder-select] more help for the item on the current line \[finder-exit] exit Finder mode and kill the Finder buffer.  (defalias 'finder-mode #[nil "\305!\210\306 !\210\307\310\311\304!\210\312\211\207" [finder-mode-map emacs-lisp-mode-syntax-table mode-name major-mode finder-headmark use-local-map set-syntax-table "Finder" finder-mode make-local-variable nil] 2 (#$ . 8237) nil]) #@34 Summarize basic Finder commands. (defalias 'finder-summary #[nil "\300\301\302\303!\"\207" [message "%s" substitute-command-keys "\\\\[finder-select] = select, \\[finder-mouse-select] = select, \\[finder-list-keywords] = to finder directory, \\[finder-exit] = quit, \\[finder-summary] = help"] 4 (#$ . 8698) nil]) #@39 Exit Finder mode and kill the buffer. (defalias 'finder-exit #[nil "\300\301!\204 \302 \210\303\304!\203\305\304!\210\303\306!\205\305\306!\207" [one-window-p t delete-window get-buffer "*Finder*" kill-buffer "*Finder Category*"] 2 (#$ . 9035) nil]) (provide 'finder)