;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:50:24 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/finder.el ;;; in Emacs version 23.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\303\304!\210\303\305!\210\306\307\310\211#\210\311B\312\311!\204\313\311\314\"\210\315B\312\315!\204\220\313\315\316 \316\317!\320\n\321\322#\210\320\n\323\322#\210\320\n\324\325#\210\320\n\326\327#\210\320\n\330\322#\210\320\n\331\332#\210\320\n\333\334#\210\320\n\335\336#\210\320\n\337\340#\210\320\n\341\342#\210\320\n\343\317 B#\210\320 \344\345#\210\320 \346\347#\210\320 \350\351#\210\320 \352\353#\210\n*\"\210\303\207" [current-load-list menu-map map require lisp-mnt find-func load "finder-inf" t finder-known-keywords default-boundp set-default ((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 for 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 . "supporting code for the TeX formatter") (tools . "programming tools") (unix . "front-ends/assistants for, or emulators of, UNIX-like features") (wp . "word processing")) finder-mode-map make-sparse-keymap "Finder" define-key " " finder-select "f" [follow-link] mouse-face [mouse-2] finder-mouse-select " " "?" finder-summary "n" next-line "p" previous-line "q" finder-exit "d" finder-list-keywords [menu-bar finder-mode] [finder-exit] (menu-item "Quit" finder-exit :help "Exit Finder mode") [finder-summary] (menu-item "Summary" finder-summary :help "Summary item on current line in a finder buffer") [finder-list-keywords] (menu-item "List keywords" finder-list-keywords :help "Display descriptions of the keywords in the Finder buffer") [finder-select] (menu-item "Select" finder-select :help "Select item on current line in a finder buffer")] 7) #@43 Syntax table used while in `finder-mode'. (defvar finder-mode-syntax-table (byte-code "\302!\303\304\305 #\210 )\207" [emacs-lisp-mode-syntax-table st make-syntax-table modify-syntax-entry 59 ". "] 4) (#$ . 3645)) #@37 Font-lock keywords for Finder mode. (defvar finder-font-lock-keywords '(("`\\([^'`]+\\)'" 1 font-lock-constant-face prepend)) (#$ . 3869)) #@56 Internal finder-mode variable, local in finder buffer. (defvar finder-headmark nil (#$ . 4014)) #@63 Assoc list mapping file names to description & keyword lists. (defvar finder-package-info nil (#$ . 4116)) #@72 The function `finder-compile-keywords' writes keywords into this file. (defvar generated-finder-keywords-file "finder-inf.el" (#$ . 4229)) #@54 Regexp matching file names not to scan for keywords. (defvar finder-no-scan-regexp "\\(^\\.#\\|\\(loaddefs\\|ldefs-boot\\|cus-load\\|finder-inf\\|esh-groups\\|subdirs\\)\\.el$\\)" (#$ . 4374)) (autoload 'autoload-rubric "autoload") #@199 Regenerate the keywords association list into `generated-finder-keywords-file'. 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\306!\210\307\310 \210\311\312\307#c\210\313\314!\210\315c\210\316\211\211\317\320 \206&\"\210+\321c\210\322 \210\323 )\207" [generated-finder-keywords-file buffer-undo-list keywords summary processed dirs find-file t erase-buffer autoload-rubric "keyword-to-package mapping" search-backward "\f" "(setq finder-package-info '(\n" nil mapc #[(d) "\301\302!!\205\303\304\"\210\305\306\307\310\311#\"\207" [d file-exists-p directory-file-name message "Directory %s" mapc #[(f) " \235\206\n\306\n\"?\205N B\307\310!r q\210\311\216\312\313\f\"!\210\314 \315 +\316\317\306\320\"\203:\321!\202;\"c\210\322 p\"\210\323c\210\324p\"\210\325c\207" [f processed finder-no-scan-regexp #1=#:temp-buffer d summary string-match generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents expand-file-name lm-synopsis lm-keywords-list format " (\"%s\"\n " "\\.\\(gz\\|Z\\)$" file-name-sans-extension prin1 "\n " princ ")\n" keywords] 5] directory-files nil "^[^=].*\\.el\\(\\.\\(gz\\|Z\\)\\)?$"] 6] " ))\n" eval-buffer basic-save-buffer load-path] 4 (#$ . 4613)]) #@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 (#$ . 6042)]) #@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 (#$ . 6263)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list finder-help-echo default-boundp set-default nil] 3) #@67 Put `mouse-face' and `help-echo' properties on the previous line. (defalias 'finder-mouse-face-on-line #[nil "\212\304y\210\305\306!\203 \304y\210\204&\307\310 \"\307\311 \"\n\244\312\313 \314#\315P*\316\317 \320 \321#)\207" [finder-help-echo finder-mode-map keys1 keys -1 looking-at "[ ]" 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 (#$ . 6627)]) #@60 Display descriptions of the keywords in the Finder buffer. (defalias 'finder-list-keywords #[nil "\304\305!\203\n\306\305!\207\306\307\305!!\210\310 \210\311\312\313 \210\314\315\n\"\210eb\210`\312\316\311!\210\317 \210\320 \207" [buffer-read-only buffer-undo-list finder-known-keywords finder-headmark get-buffer "*Finder*" pop-to-buffer get-buffer-create finder-mode nil t 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] set-buffer-modified-p balance-windows finder-summary] 3 (#$ . 7158) nil]) (defalias 'finder-list-matches #[(key) "\306\307\310!q!\210\311 \210\312\313\314 \210\315\n!\316\n\317\261\210`\320\321 \"\210eb\210\312y\210\313\322\312!\210\323 \210\324 )\207" [buffer-read-only buffer-undo-list key id finder-headmark finder-package-info pop-to-buffer get-buffer-create "*Finder Category*" finder-mode nil t erase-buffer intern "The following packages match the keyword `" "':\n\n" mapc #[(x) " A\211A@)>\205 @c\210\302\303 \211A@)\304P\"\210\305 \207" [id x finder-insert-at-column 16 "\n" finder-mouse-face-on-line] 5] set-buffer-modified-p shrink-window-if-larger-than-buffer finder-summary] 3]) (define-button-type 'finder-xref 'action 'finder-goto-xref) #@46 Jump to a lisp file for the BUTTON at point. (defalias 'finder-goto-xref #[(button) "\303\304\"\305 !\211\203\306\n!\202\307\310 \"*\207" [button file lib button-get xref locate-library finder-commentary message "Unable to locate `%s'"] 4 (#$ . 8472)]) #@103 Display FILE's commentary section. FILE should be in a form suitable for passing to `locate-library'. (defalias 'finder-commentary #[(file) "\304\305!!\211\204\306\307!\210\310\311!\210\312\313\314 \210 c\210eb\210\315 \210db\210\315 \210eb\210\316\317\312\313#\203<\320\321\312\211#\210\202+eb\210\316\322\312\313#\203b\323\324\325!!\203?\326\325\224\325\225\327\330\325!\331\332\333\334&\210\202?eb\210\313\335\312!\210\336 \210\337 \210\340 )\207" [file str buffer-read-only buffer-undo-list lm-commentary find-library-name error "Can't find any Commentary section" pop-to-buffer "*Finder-package*" nil t erase-buffer delete-blank-lines re-search-forward "^;+ ?" replace-match "" "\\<\\([-[:alnum:]]+\\.el\\)\\>" locate-library match-string 1 make-text-button xref match-string-no-properties help-echo "Read this file's commentary" :type finder-xref set-buffer-modified-p shrink-window-if-larger-than-buffer finder-mode finder-summary] 10 (#$ . 8739) (list (completing-read "Library name: " (apply-partially 'locate-file-completion-table (or find-function-source-path load-path) (find-library-suffixes))))]) (defalias 'finder-current-item #[nil "\212\302 \210\303 ) \203` W\204\304G!\203\305\306!\202 )\207" [key finder-headmark beginning-of-line current-word zerop error "No keyword or filename on this line"] 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 (#$ . 10086) nil]) #@48 Select item in a finder buffer with the mouse. (defalias 'finder-mouse-select #[(event) "r\302\211:\203A@\202\303 `\304\305F)\211@)!q\210\211:\203*A@\2020\303 `\304\305F)\306 8\206I A@:\203F A@@\202I A@)b\210\307 )\207" [event position window-buffer selected-window (0 . 0) 0 5 finder-select] 6 (#$ . 10327) "e"]) #@41 Find packages matching a given keyword. (defalias 'finder-by-keyword #[nil "\300 \207" [finder-list-keywords] 1 (#$ . 10664) nil]) (byte-code "\302\303N\204\304\302\303\305\306!#\210\307\310!\204\304\310\311\312#\210\310B\313\310!\204*\314\310\315 \"\210\310\303N\2048\304\310\303\305\316!#\210\304\301\311\312#\210\301B\313\301!\204R\314\301\317\301\320\"\210 \"\210\301\303N\204`\304\301\303\305\321!#\210\304\312\322\320#\207" [current-load-list finder-mode-abbrev-table finder-mode-hook variable-documentation put purecopy "Hook run when entering Finder mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp finder-mode-map definition-name finder-mode default-boundp set-default make-sparse-keymap "Keymap for `finder-mode'." define-abbrev-table nil "Abbrev table for `finder-mode'." derived-mode-parent] 5) #@273 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. This mode runs the hook `finder-mode-hook', as the final step during initialization. (defalias 'finder-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315\306\316!\210\317)\320\321!\207" [delay-mode-hooks major-mode mode-name finder-mode-map finder-mode-syntax-table finder-mode-abbrev-table make-local-variable t kill-all-local-variables finder-mode "Finder" use-local-map set-syntax-table (finder-font-lock-keywords nil nil (("+-*/.<>=!?$%_&~^:@" . "w")) nil) finder-headmark nil run-mode-hooks finder-mode-hook local-abbrev-table font-lock-defaults] 2 (#$ . 11582) 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 (#$ . 12379) nil]) #@74 Exit Finder mode. Delete the window and kill all Finder-related buffers. (defalias 'finder-exit #[nil "\302\303\304\217\210\305\302\211\205\" @\306!\203\307!\210 A\211\204 \302*\207" [buff --dolist-tail-- nil (delete-window) ((error)) ("*Finder*" "*Finder-package*" "*Finder Category*") get-buffer kill-buffer] 4 (#$ . 12717) nil]) (provide 'finder)