;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Thu Jun 15 18:26:11 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/finder.el ;;; emacs version 19.28.94.3. ;;; 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.28.90"))) (error "`finder.el' was compiled for Emacs 19.29 or later")) (byte-code "!!! B! B!& B b \f\f#\f#\f#\f#\f#\f#\f )ʇ" [require lisp-mnt finder-inf picture finder-headmark current-load-list boundp finder-known-keywords ((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") (data . "support editing files of data") (debugging . "support for debugging programs") (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")) finder-mode-map nil make-sparse-keymap map define-key " " finder-select "f" " " "?" 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 (#$ . 2607)) #@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) "! cccccc %\"c! *" [nil processed 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) " !\"" [mapcar #[(f) "\n\"f\n ?fĉ\n B!qp! /!\nP!  )\n\"cp\"c` Y \"Zر`$+" [string-match "^[^=].*\\.el$" f processed nil keywords keystart summary get-buffer-create "*finder-scratch*" buffer-disable-undo erase-buffer insert-file-contents file-name-as-directory d "." lm-synopsis lm-keywords format " (\"%s\"\n " prin1 "\n " "(%s)" "nil" ")\n" subst-char-in-region 44 32] 5] directory-files d "."] 4] dirs load-path "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n" kill-buffer "*finder-scratch*" eval-current-buffer basic-save-buffer] 3 (#$ . 2721)]) #@60 Display descriptions of the keywords in the Finder buffer. (defalias 'finder-list-keywords #[nil " \"eb`! " [nil buffer-read-only erase-buffer mapcar #[(assoc) "@ !cAP\" ! )B" [assoc keyword symbol-name insert-at-column 14 "\n"] 4] finder-known-keywords finder-headmark t set-buffer-modified-p balance-windows finder-summary] 3 (#$ . 3940) nil]) (defalias 'finder-list-matches #[(key) " \f!\fDZ` \"eby! )" [nil buffer-read-only erase-buffer intern key id "The following packages match the keyword `" "':\n\n" finder-headmark mapcar #[(x) " AA@> @c A@P\"" [id x insert-at-column 16 "\n"] 4] finder-package-info t set-buffer-modified-p shrink-window-if-larger-than-buffer finder-summary] 3]) (defalias 'finder-find-library #[(file) " ! \n@\f@ P @\"!) @\"9 @\"!9 @\" A\f*" [file-name-absolute-p file load-path nil found dirs file-exists-p expand-file-name ".el"] 5]) (defalias 'finder-commentary #[(file) "\n!!!! ceb db eb#;ȉ#*eb ! )" [lm-commentary finder-find-library file str error "Can't find any Commentary section" pop-to-buffer "*Finder*" nil buffer-read-only erase-buffer delete-blank-lines re-search-forward "^;+ ?" t replace-match "" set-buffer-modified-p shrink-window-if-larger-than-buffer finder-summary] 5 nil nil]) (defalias 'finder-current-item #[nil "`W!y )" [finder-headmark error "No keyword or filename on this line" 0 current-word] 2]) (defalias 'finder-select #[nil "  \" ! !)" [finder-current-item key string-match "\\.el$" finder-commentary finder-list-matches] 3 nil nil]) #@41 Find packages matching a given keyword. (defalias 'finder-by-keyword #[nil " " [finder-mode finder-list-keywords] 1 (#$ . 5626) 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 "! !!\n\f!‰" [pop-to-buffer "*Finder*" nil buffer-read-only erase-buffer use-local-map finder-mode-map set-syntax-table emacs-lisp-mode-syntax-table "Finder" mode-name finder-mode major-mode make-local-variable finder-headmark] 2 (#$ . 5772) nil]) #@34 Summarize basic Finder commands. (defalias 'finder-summary #[nil "!!" [message substitute-command-keys "\\\\[finder-select] = select, \\[finder-list-keywords] = to finder directory, \\[finder-exit] = quit, \\[finder-summary] = help"] 3 (#$ . 6268) nil]) #@38 Exit Finder mode and kill the buffer (defalias 'finder-exit #[nil " !" [delete-window kill-buffer "*Finder*"] 2 (#$ . 6549) nil]) (provide (quote finder))