;ELC ;;; Compiled by leavens@CMC3251632-A on Fri Aug 09 22:34:19 2002 ;;; from file d:/emacs/speedbar/sb-texinfo.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-texinfo.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\304\305!\204\306\307!\210\310\305\311\"\210\301B\312\302\207" [current-load-list speedbar-texinfo-section-regexp require speedbar boundp speedbar-dynamic-tags-function-list error "Speedbar 0.11 or newer is required to use sb-texinfo." add-to-list (speedbar-fetch-dynamic-texinfo . speedbar-insert-texinfo-list) "^@\\(top \\|chapter \\|sect\\|subs\\|subh\\|unnum\\|major\\|chapheading \\|heading \\|appendix\\)"] 3) #@586 This returns t if the major mode of the current buffer is not 'texinfo-mode. If it is 'texinfo-mode, then this returns a list where each element is (LEVEL NAME . MARKER). LEVEL is 0, 1, 2, or 3 corresponding to chapter section, subsection, and subsubsection respectively. NAME is the name of the node. MARKER is emacs marker that points to the beginning of the node. The elements in the the list returned are in ascending order of the MARKER. This function along with it's parter, speedbar-insert-texinfo-list, are designed to be added to the speedbar-dynamic-tags-function-list list. (defalias 'speedbar-fetch-dynamic-texinfo #[(filename) "\302!q\210 \303=\204 \304\207\305\306\307\217\207" [filename major-mode find-file-noselect texinfo-mode t nil (byte-code "\212\306\300!\210\307\306\310!\311L\210\306\312!\313L\210\314\307\211\211\211\211eb\210\315\307\316#\203\\\317\224Tb\210\320 \321\322p!!\323\n\"A\324\307w\210`\325\307w\210\324\307x\210`{ \f BB B\202# \237.\207" [speedbar-tag-hierarchy-method alist section level title pos-beg make-local-variable nil speedbar-generic-list-group-expand-button-type expandtag speedbar-generic-list-tag-button-type statictag (("top" . 0) ("chapter" . 0) ("section" . 1) ("subsection" . 2) ("subsubsection" . 3) ("unnumbered" . 0) ("unnumberedsec" . 1) ("unnumberedsubsec" . 2) ("unnumberedsubsubsec" . 3) ("chapheading" . 0) ("heading" . 1) ("subheading" . 2) ("subsubheading" . 3) ("appendix" . 0) ("appendixsec" . 1) ("appendixsubsec" . 2) ("appendixsubsubsec" . 3) ("centerchap" . 0) ("majorheading" . 0)) re-search-forward t 0 point-marker symbol-name read assoc " " "^,\n" heading-to-level speedbar-texinfo-section-regexp] 6) ((error t))] 3 (#$ . 1048)]) #@487 See `speedbar-fetch-dynamic-texinfo' for description of LST. LEVEL should be 0 unless this is called recursively. This function converts LST from a flat list structure into a hierarchical list suitable to be passed on to `speedbar-insert-texinfo-list'. This function creates the hierarchical list recursively. On first pass all the nodes of each chapter are grouped into a list. Then each of these lists are recursively converted so that all nodes of each section are grouped together. (defalias 'speedbar-format-texinfo-list #[(lst level) "\305\211\211 \2032 @AC A\211\203* @@\fV\203* @B A\211\204\237\nB\202\n\237\fT\306\307\n\"+\207" [section-list elem new-list lst level nil mapcar #[(x) "G\303=\203\n@\207@\211@ A\304A\n\")BB\207" [x head level 1 speedbar-format-texinfo-list] 6]] 4 (#$ . 2782)]) #@136 Insert a list of generic tokens reorganized into chapeters. INDENT is the current level of indentation, and LST is the list of tokens. (defalias 'speedbar-insert-texinfo-list #[(indent lst) "\302\303 \304\"\305\306$\207" [indent lst speedbar-insert-generic-list speedbar-format-texinfo-list 0 speedbar-tag-expand speedbar-tag-find] 5 (#$ . 3616)]) (provide 'sb-texinfo)