;ELC ;;; Compiled by leavens@CMC3251632-A on Fri Aug 09 22:34:18 2002 ;;; from file d:/emacs/speedbar/sb-info.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 2.85 ;;; 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 "`sb-info.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require speedbar info] 2) #@44 Keymap used when in the info display mode. (defvar Info-speedbar-key-map nil (#$ . 662)) #@59 Install those variables used by speedbar to enhance Info. (defalias 'Info-install-speedbar-variables #[nil "\204+\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\312#\210\302\313\314#\210\315\316!\207" [Info-speedbar-key-map speedbar-make-specialized-keymap define-key "e" speedbar-edit-line " " "+" speedbar-expand-line "=" "-" speedbar-contract-line " " speedbar-toggle-line-expansion speedbar-add-expansion-list ("Info" Info-speedbar-menu-items Info-speedbar-key-map Info-speedbar-hierarchy-buttons)] 4 (#$ . 757)]) #@49 Additional menu-items to add to speedbar frame. (defvar Info-speedbar-menu-items '(["Browse Node" speedbar-edit-line t] ["Expand Node" speedbar-expand-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] ["Contract Node" speedbar-contract-line (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.-. "))]) (#$ . 1324)) (byte-code "\300\301!\203\f\302 \210\202\303\304\302\"\210\300\207" [featurep speedbar Info-install-speedbar-variables add-hook speedbar-load-hook] 3) #@99 Initialize speedbar to display an info node browser. This will add a speedbar major display mode. (defalias 'Info-speedbar-browser #[nil "\300\301!\210\302\303!\210\304\305!\207" [require speedbar speedbar-frame-mode 1 speedbar-change-initial-expansion-list "Info"] 2 (#$ . 1830) nil]) #@35 Image buttons used for Info mode. (defvar Info-speedbar-image-button-alist '(("<+>" . speedbar-document-plus) ("<->" . speedbar-document-minus) ("[+]" . speedbar-page-plus) ("[-]" . speedbar-page-minus) ("[?]" . speedbar-page) ("[ ]" . speedbar-page)) (#$ . 2122)) #@232 Display an Info directory hierarchy in speedbar. DIRECTORY is the current directory in the attached frame. DEPTH is the current indentation depth. NODE is an optional argument that is used to represent the specific node to expand. (defalias 'Info-speedbar-hierarchy-buttons #[(directory depth &optional node) "?\205 \212eb\210\306\307!)?\205]\204\310\311c\210)\312\n\313 !\210\314\213\210\315 !\210\f\205\\\310\f\203Z\316\317U\203@\320\202A\321\322\323\f@A\f@@\324\f@A\325& \210\fA\211\2044)\310*\207" [node inhibit-read-only Info-speedbar-image-button-alist speedbar-expand-image-button-alist completions speedbar-frame looking-at "Info Nodes:" t "Info Nodes:\n" nil dframe-select-attached-frame ((byte-code "\302\206\303!\302\207" [node completions Info-speedbar-fetch-file-nodes "(dir)top"] 2)) select-frame speedbar-make-tag-line 0 angle bracket 43 Info-speedbar-expand-node Info-speedbar-goto-node info-xref depth] 11 (#$ . 2394)]) #@75 When user clicks on TEXT, goto an info NODE. The INDENT level is ignored. (defalias 'Info-speedbar-goto-node #[(text node indent) "\306!\210\307\310!\206\311 \210\307\310!\312 \313\"\211\203'\314\n!\210\315\316\n!!\210\202? \2037\317\314\320 !!\210)\202?\306!\210\321 !\210\322\323 \"\205c\324\325 \"\324\326 \"\327 \"\210\330\230\205b\331!**\207" [speedbar-frame buff bwin dframe-power-click pop-up-frames node dframe-select-attached-frame get-buffer "*info*" info get-buffer-window 0 select-window raise-frame window-frame t display-buffer switch-to-buffer string-match "^(\\([^)]+\\))\\([^,:]+\\)$" match-string 1 2 Info-find-node "Info" speedbar-change-initial-expansion-list file speedbar-initial-expansion-list-name speedbar-previously-used-expansion-list-name] 5 (#$ . 3361)]) #@190 Expand the node the user clicked on. TEXT is the text of the button we clicked on, a + or - item. TOKEN is data related to this node (NAME . FILE). INDENT is the current indentation depth. (defalias 'Info-speedbar-expand-node #[(text token indent) "\306\307\n\"\203.\310\311!\210\312\212\313\210\314u\210\315\313\fT #*\203'\310\311!\210\202D\310\316!\210\202D\306\317\n\"\203@\310\320!\210\321\f!\210\202D\322\323!\210\324 )\207" [Info-speedbar-image-button-alist speedbar-expand-image-button-alist text inhibit-read-only indent token string-match "+" speedbar-change-expand-button-char 45 t nil 1 Info-speedbar-hierarchy-buttons 63 "-" 43 speedbar-delete-subblock error "Ooops... not sure what to do" speedbar-center-buffer-smartly] 4 (#$ . 4174)]) #@135 Fetch the subnodes from the info NODESPEC. NODESPEC is a string of the form: (file)node. Optional THISFILE represends the filename of (defalias 'Info-speedbar-fetch-file-nodes #[(nodespec) "\212\306\307!q\210\310\232\204\310 \210\311\312 \"\203)\313\314 \"\313\315 \"\316 \n\"\210*\202.\317\320 \"\210eb\210\321\311\322 \"\210\313\314 \"\323\324\321\325#\210\323\324\321\325#\203\235\313\314!\326\327!\203a\313\314!B\202\224\326\330!\203t\313\314!\331PB\202\224\326\332!\203\211\333\f\334\313\314!RB\202\224\333\f\334RB B)\202C \237+\207" [major-mode nodespec node file thisfile completions get-buffer-create "*info-browse-tmp*" Info-mode string-match "^(\\([^)]+\\))\\([^,:]+\\)$" match-string 1 2 Info-find-node error "Node %s not found!" nil "^(\\([^)]+\\))" re-search-forward "\n\\* \\([^: \n]*\\):" t looking-at " *\\(([^)]+)[^.\n]+\\)\\." "[ ]*\\(([^)]+)\\)\\." "Top" " \\([^.]+\\)." "(" ")" name] 6 (#$ . 4941)]) #@120 Create a speedbar display to help navigation in an Info file. BUFFER is the buffer speedbar is requesting buttons for. (defalias 'Info-speedbar-buttons #[(buffer) "\212eb\210\300\301!)\204\302 \210\303\304\305\"\207" [looking-at "Info Nodes:" erase-buffer Info-speedbar-hierarchy-buttons nil 0] 3 (#$ . 5909)]) (provide 'sb-info)