;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Sat Jun 18 13:31:53 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/finder.el ;;; emacs version 19.25.9. ;;; 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"))) (error "`/gd/gnu/emacs/19.0/lisp/finder.el' was compiled for Emacs 19")) (byte-code "!!!!! ####" [require lisp-mnt finder-inf picture boundp finder-known-keywords ((abbrev . "abbreviation handling, typing shortcuts, macros") (bib . "code related to the `bib' bibliography processor") (c . "C and C++ language support") (calendar . "calendar and time management support") (comm . "communications, networking, remote access to files") (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") (games . "games, jokes and amusements") (hardware . "support for interfacing with exotic hardware") (help . "support for on-line help systems") (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") (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 define-key " " finder-select "?" finder-summary "q" finder-exit "f" finder-list-keywords] 4) (defvar finder-package-info nil "\ Assoc list mapping file names to description & keyword lists.") (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 "\ 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-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 "\ Display descriptions of the keywords in the Finder buffer." nil]) (byte-code "\"\"\"\"\"" [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] 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] 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] finder-current-item #[nil "`W!y )" [finder-headmark error "No keyword or filename on this line" 0 current-word] 2] finder-select #[nil "  \" ! !)" [finder-current-item key string-match "\\.el$" finder-commentary finder-list-matches] 3 nil nil]] 3) (defalias 'finder-by-keyword #[nil " " [finder-mode finder-list-keywords] 1 "\ Find packages matching a given keyword." nil]) (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 "\ 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. " nil]) (defalias 'finder-summary #[nil "!!" [message substitute-command-keys "\\\\[finder-select] = select, \\[finder-list-keywords] = back to finder, \\[finder-exit] = quit, \\[finder-summary] = help"] 3 "\ Summarize basic Finder commands." nil]) (defalias 'finder-exit #[nil " !" [delete-window kill-buffer "*Finder*"] 2 "\ Exit Finder mode and kill the buffer" nil]) (provide (quote finder))