;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:41:37 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/finder.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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\301B\310\301!\204\311\302B\310\302!\204$\312\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") (files . "support for editing and manipulating files") (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") (multimedia . "images and sound 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") (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 (#$ . 2971)) #@191 Regenerate the keywords association list into the file `finder-inf.el'. Optional arguments DIRS 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\315c\210\316\317 \206&\n\"\210\320c\210\321\322!\210\323 \210\324 *\207" [processed dirs load-path nil find-file "finder-inf.el" erase-buffer ";;; finder-inf.el --- keyword-to-package mapping\n" ";; This file is part of GNU Emacs.\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;;; Local Variables:\n;;; version-control: never\n;;; no-byte-compile: t\n;;; no-update-autoloads: t\n;;; End:\n;;; finder-inf.el ends here\n" kill-buffer "*finder-scratch*" eval-current-buffer basic-save-buffer] 3 (#$ . 3085)]) #@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 (#$ . 4979)]) #@47 Insert, at column COLUMN, other args STRINGS. (defalias 'finder-insert-at-column #[(column &rest strings) "iY\203 \302c\210\303\304\"\210\305\306 \"\207" [column strings "\n" move-to-column t apply insert] 3 (#$ . 5200)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list finder-help-echo boundp nil] 2) #@67 Put `mouse-face' and `help-echo' properties on the previous line. (defalias 'finder-mouse-face-on-line #[nil "\212\304\305!\210\204\306\307 \"\306\310 \"\n\244\311\312 \313#\314P*\315\316 \317 \320#)\207" [finder-help-echo finder-mode-map keys1 keys previous-line 1 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)] 4 (#$ . 5532)]) #@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 mapc #[(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 (#$ . 6038) 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" mapc #[(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]) #@89 Search for file LIBRARY on `load-path'. Try compressed versions if jka-compr is in use. (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 (#$ . 7235)]) #@103 Display FILE's commentary section. FILE should be in a form suitable for passing to `locate-library'. (defalias 'finder-commentary #[(file) "\303\304!\206\304\305P!\206\306\307\"!\211\204\306\310!\210\311\312!\210\313\314 \210 c\210eb\210\315 \210db\210\315 \210eb\210\316\317\313\320#\203I\321\322\313\211#\210\2028eb\210\320\323\313!\210\324 \210\325 \210\326 )\207" [file str buffer-read-only lm-commentary finder-find-library ".el" error "Can't find library %s" "Can't find any Commentary section" pop-to-buffer "*Finder-package*" nil erase-buffer delete-blank-lines re-search-forward "^;+ ?" t replace-match "" set-buffer-modified-p shrink-window-if-larger-than-buffer finder-mode finder-summary] 5 (#$ . 7575) "sLibrary name: "]) (defalias 'finder-current-item #[nil "\203`W\203\301\302!\207\212\303 \210\304 )\207" [finder-headmark error "No keyword or filename on this line" beginning-of-line 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 (#$ . 8520) nil]) #@48 Select item in a finder buffer with the mouse. (defalias 'finder-mouse-select #[(event) "\212\302\3038)\304 8)!q\210\3038)\303 8:\203%\303 8@\202(\303 8)b\210\305 )\207" [event position window-buffer 1 0 finder-select] 3 (#$ . 8760) "e"]) #@41 Find packages matching a given keyword. (defalias 'finder-by-keyword #[nil "\300 \207" [finder-list-keywords] 1 (#$ . 9015) nil]) #@187 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 (#$ . 9152) 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 (#$ . 9612) 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 (#$ . 9949) nil]) (provide 'finder)