;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Mon May 24 11:18:10 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/finder.el ;;; emacs version 19.7.6. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "ÀÁ!ˆÀÂ!ˆÀÃ!ˆÄÅ!„ÆÄÇ!„ÈÉ ÊËÌ#ˆÊÍÎ#ˆÊÏÐ#ˆÊÑÒ#‡" [require lisp-mnt finder-inf picture boundp finder-known-keywords ((abbrev . "abbreviation handling, typing shortcuts, macros") (bib . "code related to the bib(1) bibliography processor") (c . "C and C++ language support") (calendar . "calendar and time management support") (comm . "communications, networking, remote access to files") (docs . "support for Emacs documentation") (emulations . "emulations of other editors") (extensions . "Emacs Lisp language extensions") (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") (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) "ŠÀÂÃ!ˆÄ ˆÅcˆÆcˆÇcˆÈcˆÉcˆÊcˆËÌ †%\"ˆÏ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\"…lÃ\n \"?…lʼn‰\n BŠÉÊ!qˆËp!ˆÌ ˆÍΆ1Ð!\nP!ˆÑ Ò )ÓÔ\n\"cˆÕp\"ˆÖcˆ`ƒ^Ó×\"‚_ØcˆÙcˆÚ`ÛÜ$+‡" [string-match "^[^=].*\\.el$" f member 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) "@ !cˆÃÄAÅP\"ˆÂ ! )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 "ÀÁMˆÂÃMˆÄÅMˆÆÇM‡" [finder-list-matches #[(key) "À ˆÃ !Æcˆ cˆÇcˆ`ÉÊ \"ˆebˆÌ ˆÍÎÀ!ˆÏ ˆÐ )‡" [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 forward-line t set-buffer-modified-p shrink-window-if-larger-than-buffer finder-summary] 3] finder-commentary #[(file) "À !‰„ ÃÄ!ˆÅÆ!ˆÇÉ ˆ\ncˆebˆÊ ˆdbˆÊ ˆebˆËÌÇÍ#ƒ9ÎÏlj#ˆ‚(ebˆÍÐÇ!ˆÑ ˆÒ )‡" [lm-commentary 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ƒÁÂ!‡ŠÃÄ!ˆÅ )‡" [finder-headmark error "No keyword or filename on this line" forward-line 0 current-word] 2] finder-select #[nil "À Âà \"ƒÄ !‚Å !)‡" [finder-current-item key string-match "\\.el$" finder-commentary finder-list-matches] 3 nil nil]] 2) (defalias 'finder-by-keyword #[nil "À ˆÁ ‡" [finder-mode finder-list-keywords] 1 "\ Find packages matching a given keyword." nil]) (defalias 'finder-mode #[nil "ÀÁ!ˆÂÄ ˆÅ!ˆÇ!ˆÉ\nË ÍÎ!ˆÂ‰‡" [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 fill 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))