;ELC ;;; Compiled by b.s.logan@cs.bham.ac.uk on Wed Sep 8 18:25:18 1999 ;;; from file /home/staff/bsl/tmp/pop-mode/pop-help-mode.el ;;; in Emacs version 20.4.1 ;;; with bytecomp version 2.56 ;;; 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 "`pop-help-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@33 Run an inferior Poplog process. (autoload 'run-pop "inferior-pop-mode" '(#$ . 621) t) #@50 Run an inferior Poplog process in another frame. (autoload 'run-pop-other-frame "inferior-pop-mode" '(#$ . 713) t) #@46 Complete the Pop-11 word at or before point. (autoload 'pop-complete-word "inferior-pop-mode" '(#$ . 834) t) #@59 Send the current procedure to the inferior Poplog process (autoload 'pop-send-define "inferior-pop-mode" '(#$ . 949) t) #@54 Send the current line to the inferior Poplog process (autoload 'pop-send-line "inferior-pop-mode" '(#$ . 1075) t) #@57 Send the current region to the inferior Poplog process. (autoload 'pop-send-region "inferior-pop-mode" '(#$ . 1195) t) #@55 Send the entire buffer to the inferior Poplog process (autoload 'pop-send-buffer "inferior-pop-mode" '(#$ . 1320) t) #@54 Load a Pop-11 file into the inferior Poplog process. (autoload 'pop-load-file "inferior-pop-mode" '(#$ . 1443) t) #@52 Returns the current Poplog process or nil if none. (autoload 'inferior-pop-process-p "inferior-pop-mode" '(#$ . 1563) t) #@128 Returns t if the process mark appears to be after a Pop-11 top-level prompt. If inferior-pop-timeout is nil, always returns t. (autoload 'pop-top-level-p "inferior-pop-mode" '(#$ . 1691) t) #@136 Send STRING to the inferior Pop-11 process, redirecting output to BUFFER if this is non-nil, otherwise output is returned as a string. (autoload 'pop-send-string "inferior-pop-mode" '(#$ . 1888) t) #@128 *If non-nil when pop-help-mode is loaded then the commands help, ref, doc and teach are defined as synonyms for pop-help etc.  (defvar pop-help-short-commands nil (#$ . -2093)) #@63 *Non-nil means always create a new buffer for each help file. (defvar pop-help-always-create-buffer nil (#$ . -2276)) #@94 *Non-nil means always use the default searchlists even if there is a running Poplog process. (defvar pop-help-always-use-default-searchlists nil (#$ . -2400)) #@27 Nil unless using XEmacs). (defconst pop-help-using-xemacs (string-match "XEmacs" emacs-version) (#$ . 2565)) #@61 *List of default directories searched for Poplog HELP files (defvar pop-help-default-dirs '("$usepop/pop/x/ved/help/" "$usepop/pop/x/ved/ref/" "$usepop/pop/x/ved/teach/" "$usepop/pop/x/pop/help/" "$usepop/pop/x/pop/ref/" "$usepop/pop/x/pop/teach/" "$usepop/pop/x/pop/doc/" "$poplocal/local/help/" "$usepop/pop/help/" "$poplocal/local/teach/" "$usepop/pop/teach/" "$usepop/pop/doc/" "$usepop/pop/ref/") (#$ . -2680)) #@63 *List of default directories searched for Poplog TEACH files. (defvar pop-teach-default-dirs '("$usepop/pop/x/ved/teach/" "$usepop/pop/x/ved/help/" "$usepop/pop/x/ved/ref/" "$usepop/pop/x/pop/teach/" "$usepop/pop/x/pop/help/" "$usepop/pop/x/pop/ref/" "$usepop/pop/x/pop/doc/" "$poplocal/local/teach/" "$usepop/pop/teach/" "$poplocal/local/help/" "$usepop/pop/help/" "$usepop/pop/doc/" "$usepop/pop/ref/") (#$ . -3102)) #@61 *List of default directories searched for Poplog REF files. (defvar pop-ref-default-dirs '("$usepop/pop/x/ved/ref/" "$usepop/pop/x/ved/help/" "$usepop/pop/x/ved/teach/" "$usepop/pop/x/pop/ref/" "$usepop/pop/x/pop/help/" "$usepop/pop/x/pop/teach/" "$usepop/pop/x/pop/doc/" "$poplocal/local/ref/" "$usepop/pop/ref/" "$usepop/pop/doc/" "$usepop/pop/help/" "$usepop/pop/teach/") (#$ . -3527)) #@61 *List of default directories searched for Poplog DOC files. (defvar pop-doc-default-dirs '("$usepop/pop/x/pop/doc/" "$usepop/pop/x/pop/help/" "$usepop/pop/x/pop/ref/" "$usepop/pop/x/pop/teach/" "$poplocal/local/doc/" "$usepop/pop/doc/" "$usepop/pop/ref/" "$usepop/pop/help/") (#$ . -3922)) #@61 *List of default directories searched for Poplog LIB files. (defvar pop-lib-default-dirs '("$poplocalauto/" "$popsunlib/" "$popautolib/" "$popvedlib/" "$popvedlib/term/" "$usepop/pop/lib/database/" "$usepop/pop/x/pop/auto/" "$usepop/pop/x/ui/lib/" "$usepop/pop/x/ved/auto/" "$poplocal/local/lib/" "$popliblib/" "$popdatalib/" "$usepop/pop/x/pop/lib/" "$usepop/pop/x/pop/lib/Xpw/" "$usepop/pop/x/pop/lib/Xm/" "$usepop/pop/x/ved/lib/") (#$ . -4218)) (byte-code "\304\300!\204\305\306!\206 \307\300 B\304\302!\204 \305\310!\206\307\302 B\304\303!\2042\305\311!\2061\307\303 B\304\207" [usepop current-load-list poplocal poplib boundp getenv "usepop" "." "poplocal" "poplib"] 2) #@77 * List of default directories where help looks for poplog prolog help files (defvar pop-ploghelp-default-dirs (byte-code "\303P \304P\n\305P\n\306PF\207" [poplib poplocal usepop "/ploghelp" "/local/plog/help" "/pop/plog/local/ploghelp" "/pop/plog/help"] 5) (#$ . -4913)) #@78 * List of default directories where help looks for poplog prolog teach files (defvar pop-plogteach-default-dirs (byte-code "\303P \304P\n\305P\n\306PF\207" [poplib poplocal usepop "/plogteach" "/local/plog/teach" "/pop/plog/local/teach" "/pop/plog/teach"] 5) (#$ . -5191)) #@76 * List of default directories where help looks for poplog prolog lib files (defvar pop-ploglib-default-dirs (byte-code "\303P \304P \305P \306P \307P\n\310P\n\311P\n\312P\n\313P\n\314P\n\315P\n\316P\n\317P\257 \207" [poplib poplocal usepop "/lib" "/local/plog/lib" "/local/plog/lib/lib" "/local/plog/lib/auto" "/local/plog/lib/contrib" "/pop/plog/local/lib" "/pop/plog/local/lib/lib" "/pop/plog/local/lib/auto" "/pop/plog/local/lib/contrib" "/pop/plog/lib" "/pop/plog/lib/lib" "/pop/plog/lib/auto" "/pop/plog/lib/contrib"] 14) (#$ . -5471)) (byte-code "\306\300!\204\307\300 B\306\302!\204\310\302 B\306\303!\204 \311\303 B\306\304!\204,\312\304 B\306\305!\2048\313\305 B\306\314!\204E\315\f\314 B\306\316!\204R\317\316 B\306\320!\204_\321\320 B\306\207" [pop-help-dirs current-load-list pop-teach-dirs pop-ref-dirs pop-doc-dirs pop-lib-dirs boundp "List of directories searched for Poplog HELP files" "List of directories searched for Poplog TEACH files." "List of directories searched for Poplog REF files." "List of directories searched for Poplog DOC files." "List of directories searched for Poplog LIB files." pop-ploghelp-dirs "List of directories searched for Poplog prolog HELP files." pop-plogteach-dirs "List of directories searched for Poplog prolog TEACH files." pop-ploglib-dirs "List of directories searched for Poplog prolog LIB files."] 2) #@59 *Association list mapping cross references to help types. (defconst pop-help-types '(("HELP" . "help") ("TEACH" . "teach") ("REF" . "ref") ("DOC" . "doc") ("LIB" . "lib") ("PLOGHELP" . "ploghelp") ("PLOGTEACH" . "plogteach") ("PLOGLIB" . "ploglib")) (#$ . -6863)) #@31 Keymap used in pop help mode. (defvar pop-help-mode-map nil (#$ . 7133)) (byte-code "\204n\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210 \203D\303\316\311#\210\303\317\313#\210\303\320\315#\210\303\321\322#\210\202\\\303\323\311#\210\303\324\313#\210\303\325\315#\210\303\326\322#\210\303\327\311#\210\303\330\313#\210\303\331\315#\210\302\207" [pop-help-mode-map pop-help-using-xemacs make-sparse-keymap define-key " " scroll-up "" scroll-down "?" pop-get-help "/" pop-next-help "-" pop-goto-section [(control h) p] [(control h) n] [(control h) g] [(control h) t] pop-help-toggle-pop-mode "p" "n" "g" "t" "\350" "\356" "\347"] 4) #@69 Buffer local variable containing the type of the current help file. (defvar pop-help-type nil (#$ . 7840)) #@72 Buffer local variable containing the subject of the current help file. (defvar pop-help-subject nil (#$ . 7953)) #@81 Buffer local variable containing the default type of documentation to look for. (defvar pop-default-type nil (#$ . 8072)) #@41 Regular expression matching index items (defvar pop-index-regexp "^ \\(-- \\)+\\|^ [0-9]" (#$ . 8200)) #@42 Pointer to the index item last looked at (defvar pop-index-item nil (#$ . 8310)) #@38 * Hook run on entry to pop-help-mode (defvar pop-help-mode-hook nil (#$ . -8397)) #@78 Major mode for reading Poplog documentation. Commands: \{pop-help-mode-map} (defalias 'pop-help-mode #[nil "\306 \210\307!\210\310\311\312\313\314\305!\210\315\314\316!\210\314\317!\210\314\320!\210\314\321!\210\322 \210\323\324!\207" [pop-help-mode-map major-mode mode-name buffer-read-only tab-width comment-start kill-all-local-variables use-local-map pop-help-mode "Poplog Help" t 4 make-local-variable ";;;" pop-help-type pop-help-subject pop-default-type pop-index-item pop-help-set-default-dirs run-hooks pop-help-mode-hook] 2 (#$ . 8485) nil]) #@49 Get summary help for everything matching PATTEN (defalias 'pop-apropos #[(pattern) "\301\302\303#\207" [pattern pop-help-file t "help"] 4 (#$ . 9050) (pop-help-get-subject "Apropos")]) #@29 Get Poplog help for SUBJECT (defalias 'pop-help #[(subject) "\301\302\"\207" [subject pop-help-file "help"] 3 (#$ . 9242) (pop-help-get-subject "Help for?")]) #@35 Get Poplog teach file for SUBJECT (defalias 'pop-teach #[(subject) "\301\302\"\207" [subject pop-help-file "teach"] 3 (#$ . 9408) (pop-help-get-subject "Teach for?")]) #@33 Get Poplog ref file for SUBJECT (defalias 'pop-ref #[(subject) "\301\302\"\207" [subject pop-help-file "ref"] 3 (#$ . 9583) (pop-help-get-subject "Ref for?")]) #@33 Get Poplog doc file for SUBJECT (defalias 'pop-doc #[(subject) "\301\302\"\207" [subject pop-help-file "doc"] 3 (#$ . 9750) (pop-help-get-subject "Doc for?")]) #@32 Get Poplog library for SUBJECT (defalias 'pop-showlib #[(subject) "\301\302\"\207" [subject pop-help-file "lib"] 3 (#$ . 9917) (pop-help-get-subject "Show library")]) #@41 Get Poplog prolog help file for SUBJECT (defalias 'pop-ploghelp #[(subject) "\301\302\"\207" [subject pop-help-file "ploghelp"] 3 (#$ . 10091) "sPlog help for? "]) #@42 Get Poplog prolog teach file for SUBJECT (defalias 'pop-plogteach #[(subject) "\301\302\"\207" [subject pop-help-file "plogteach"] 3 (#$ . 10262) "sPlog Teach for? "]) #@39 Get Poplog prolog library for SUBJECT (defalias 'pop-plogshowlib #[(subject) "\301\302\"\207" [subject pop-help-file "ploglib"] 3 (#$ . 10437) "sPlog Showlib? "]) #@61 Prompt for the subject of a HELP/TEACH/REF/DOC/LIB request. (defalias 'pop-help-get-subject #[(prompt) "\303 \227\304\305\306 \307\230\203\307\202\305\310\"#!\211\307\230\203/\307\230\203+\311\312!\2020\2020\n*C\207" [default-entry prompt input current-word read-string format "%s %s: " "" " (default %s)" error "No subject"] 8 (#$ . 10607)]) #@46 Jump to a section within a Poplog help file. (defalias 'pop-goto-section #[nil "\303y\210\304!\203@`\305\306w\210`\306\210`{eb\210\307\310\311\n!\312Q\306\313#\2043\307\314\311\n!\315Q\306\313#\203:\303y\210\306\202>\316\317\n\")\207 \203K b\210\320\321!\210\304!?\205aeb\210\307\306\313#?\205a\316\322!\207" [pop-index-regexp pop-index-item what 0 looking-at " 0-9\\- " nil re-search-forward "^\\(--[ ]*\\)+" regexp-quote "[ ]*-*[ ]*$" t "^[0-9]+[ ]*" "[ ]*$" error "Can't find section \"%s\"" next-line 1 "Can't find section"] 4 (#$ . 10970) nil]) #@28 Go to next cross reference (defalias 'pop-next-help #[(n) "\301V\203\302\303\304\305#\204\306\307!\210S\310u\210\202\310u\207" [n 0 re-search-forward "[^*]\\*[^*]" nil t error "No more references in this file" -1] 4 (#$ . 11544) "p"]) #@31 Get help for the current word (defalias 'pop-get-help #[nil "\206\306\307\211\211\211\310`f\311\"\203\312v\210i\313=\2040\212\314u\210\315\316!)\2030\314u\210\202\212\317\307x\210\310`Sf\311\"\203R\314u\210\320\307x\210`\321\307x\210`{))\322 \"\211\204c\322\306\" A\212\317\307w\210`\323\307w\210\n`{\310`f\324\"\203\212\312u\210`\325\307w\210\n`{)\326 \227\f #-\207" [pop-default-type helpfile start topic what type "HELP" nil eql 42 1 0 -1 looking-at "\\sw" " \n" " \n " "^ \n " assoc "-a-zA-Z0-9_" 47 "^ \n/" pop-help-file place pop-help-types] 5 (#$ . 11794) nil]) #@73 Pop up a buffer containing a Poplog help file for SUBJECT of type TYPE. (defalias 'pop-help-file #[(subject type &optional topic) "\206\306 ;\203 \202\307 \203 \310\226\311\n\312\260\202%\310\226\312Q\313\313&\313'\314\f!\203W\315\316\317\314\f!!\"A\232\203W\315\320\317\314\f!!\"A \232\203W\314\f!\202\355 \321=\203\215\322\f!\212 q\210\323 !\210\324\325!(#\210\226)\326(P\327(\330Q(eb\210\331 !\210)\202\355 \332\232\203\266\322\f!\212 q\210\323 !\210\324\325!\313#\210\226)eb\210\331 !\210)\202\355\333 \325!#\211&\203\355&:\203\323&A'&@&\322\f!\212 q\210\323 !\210\334&\313\211\211\321%\210\331 !\210) \204\376\335\336\226 \211\211&\202L\212 q\210*\337=\204\f\337 \210 \313+) p=\204 \340 !\210(\203Ceb\210\341(\313\321#\203:\342(\313\321#\202L\343\344( #\202L'\205L\345'!.\207" [type subject subject-name pop-help-always-create-buffer bufname buf "help" "-Apropos- " "*Pop " " " "*" nil get-buffer assoc pop-help-type buffer-local-variables pop-help-subject t get-buffer-create pop-help-clear-buffer pop-create-index pop-help-searchlist "apropos " "* " " |" pop-nuke-cntl-chars "index" pop-help-find-file insert-file-contents error "No %s file for %s, try %s index or %s %sfiles" pop-help-mode switch-to-buffer-other-window search-forward search-backward message "No information on %s in %s" goto-line filename line-no topic pop-default-type major-mode pop-index-item] 7 (#$ . 12404)]) #@29 Zap the contents of BUFFER. (defalias 'pop-help-clear-buffer #[(buffer) "\212q\210\302ed|)\207" [buffer buffer-read-only nil] 2 (#$ . 13881)]) #@214 Finds a Poplog help file for SUBJECT of type TYPE in dirs SEARCHLIST. Returns the name of the file, or a cons consisting of the name of a REF file containing an entry on SUBJECT and the line number of the entry. (defalias 'pop-help-find-file #[(subject type searchlist) "\306\211\211 \206 \307\f:\203\275\204\275\310\311\f@!!\211 P \312\232\203- \313P\2027 \314\232\2037 \315P\316 !\203B\317\202\266\316 \320P!\203S \320P\321\202\266 \307\232\204_ \322\232\203\266\n\323 \324\325OQ!\316!!\205r\326\327!\211\"\203\265\212\"q\210\330\"!\210\331!\306\211\211\317%\210\332\333 \334Qd\317#\203\257\335\336\"!!\336\"!#$\n$P#B\337*\340\"!\210)*\fA\211\202 \205\302 +\207" [file filename path type searchlist subject nil "help" pop-help-frob-pathname file-name-as-directory "lib" ".p" "ploglib" ".pl" file-readable-p t ".Z" Z "ref" "doc_index/" 0 1 get-buffer-create " doc_index" pop-help-clear-buffer insert-file-contents re-search-forward "^" "\\s +" symbol-name read ref kill-buffer index-file index-buf ref-line ref-file] 7 (#$ . 14033)]) #@65 Create an index for the help files of TYPE in directories WHERE (defalias 'pop-create-index #[(what where apropos) "\306\307\211\211\211\211\203\310 \311\261\210\202\"\312!\313\261\210\"\307=\204N\314\315\"@!!\316\f!\203E\317 \320\f\321\206B\322#\"\"A\211\"\202$\323 \324\"\307 \307=?\205\244 @\n\232\204\232\203~`\325 @!\326\261\210\327 `\"\210\330\331!\210\202\232\332 @!\211c\210i\333V\203\222\326c\210\202\232\334\335\336GZ\"\210 @ A\211\202V.\207" [name start last all path fill-prefix " " nil "Apropos " "\n\n" "Index of " "files\n\n" pop-help-frob-pathname file-name-as-directory file-directory-p append directory-files t "[a-z].*" sort equal pop-get-summary 10 fill-region sit-for 0 file-name-nondirectory 60 insert-char 32 20 apropos topic what where] 7 (#$ . 15121)]) #@50 Returns a one line summary of the helpfile FILE. (defalias 'pop-get-summary #[(file) "\304!\305\306!\307\212\nq\210eb\210\310\307\211\211\311%\210\312\n!\210\313\314\307\311#\210\313\315\307\311#\2031\316y\210\2024\317y\210\320\307w\210`\212\307\210`){\321\322\323 P #,\207" [file line buffer name file-name-nondirectory get-buffer-create " sumtmp " nil insert-file-contents t pop-nuke-cntl-chars re-search-forward "^$" "^\\(\\s-+[^-]\\)" 0 -1 "\\s-\n" format "%20s | %s" "* "] 6 (#$ . 15952)]) #@42 Return the searchlist for files of TYPE. (defalias 'pop-help-searchlist #[(type) "\306 \210\307\230\203 \207\310\230\203\n\207\311\230\203 \207\312\230\203#\f\207\313\230\205* \207" [type pop-help-dirs pop-teach-dirs pop-ref-dirs pop-doc-dirs pop-lib-dirs pop-help-update-searchlists "help" "teach" "ref" "doc" "lib"] 2 (#$ . 16464)]) #@55 Get the searchlists from the inferior Poplog process. (defalias 'pop-help-update-searchlists #[nil "\204 \304 \204\f\305 \207\306 \203Q\307\310!\311\312!\313\314\n\"\315 !\203F\212 p=\204. q\210eb\210\316\n\317\211\211\320%\210\321\317w\210\322\323 !!)\202O\324 \210\325\326!\210\305 +\207\324 \210\325\327!\210\305 \207" [pop-help-always-use-default-searchlists searchlist-buffer file command inferior-pop-process-p pop-help-set-default-dirs pop-top-level-p get-buffer-create " *Poplog searchlists*" make-temp-name "/tmp/emacs" format "emacs_flatten_searchlists('%s');\n" pop-send-string insert-file-contents nil t ": " pop-help-set-dirs read beep message "WARNING: Can't get searchlists ... using defaults" "WARNING: Pop-11 not at top level ... using default searchlists"] 6 (#$ . 16818)]) #@55 (Re)set the searchlists for pop-help-mode from ALIST. (defalias 'pop-help-set-dirs #[(alist) "\306\307\310\"A\307\311\"A\"\307\312\"A\307\311\"A\307\313\"A\307\314\"A\211\207" [alist pop-help-dirs pop-teach-dirs pop-ref-dirs pop-doc-dirs pop-lib-dirs append assoc "help" "ref" "teach" "doc" "lib"] 5 (#$ . 17626)]) #@60 (Re)set the searchlists for pop-help-mode to the defaults. (defalias 'pop-help-set-default-dirs #[nil "\n\f\211 \207" [pop-help-default-dirs pop-help-dirs pop-teach-default-dirs pop-teach-dirs pop-doc-default-dirs pop-doc-dirs pop-ref-default-dirs pop-ref-dirs pop-lib-default-dirs pop-lib-dirs] 2 (#$ . 17958)]) #@35 Canonicalise Poplog search paths. (defalias 'pop-help-frob-pathname #[(path) "\301\302\"\204 \207\303\304\305\306\224\306\225O!!!\306\225\307OP\207" [path string-match "^\\(\\$[a-zA-Z0-9_]+\\)/" pop-help-frob-pathname directory-file-name substitute-in-file-name 1 nil] 6 (#$ . 18288)]) #@70 Zap the control characters VED uses to control formatting in BUFFER. (defalias 'pop-nuke-cntl-chars #[(buffer) "\212q\210\301!\210eb\210\302\303\304\305#\203\306\307\304\211#\210\202 eb\210\302\310\304\305#\2030\306\311\304\211#\210\202\312!)\207" [buffer buffer-disable-undo re-search-forward "_++\\|[- -]" nil t replace-match "" "\235" " " buffer-enable-undo] 4 (#$ . 18585)]) #@70 Zap the control characters VED uses to control formatting in BUFFER. (defalias 'pop-nuke-cntl-chars-slow #[(buffer) "\212q\210\302!\210eb\210\303\304\305\306#\203\307\310\305\211#\210\202 eb\210m\204Q`f\211\203J \311X\204B \312Y\203< \313X\204B \314Y\203J\315\316\305\"\210\202M\316u\210)\202\317!)\207" [buffer c buffer-disable-undo re-search-forward "_++" nil t replace-match "" 8 11 31 128 delete-char 1 buffer-enable-undo] 5 (#$ . 18983)]) #@25 Put BUFFER in pop-mode. (defalias 'pop-help-toggle-pop-mode #[(&optional buffer) "\206p \n\212 q\210\306=\203\307 \210\2021\306 \210\310\301!\210\310\302!\210\310\311!\210\312\313\314#\210\f \315\211 ,\207" [buffer pop-help-type pop-help-subject subject type buf pop-mode pop-help-mode make-local-variable pop-index-item define-key "t" pop-help-toggle-pop-mode nil major-mode pop-mode-map] 4 (#$ . 19450) nil]) #@63 Change current line into a VED style heading for a HELP file. (defalias 'ved-heading #[nil "\212\300y\210\301 \210\302c\210\303\210\304 \210\305\306iZ\307\"c\210)\303\207" [0 delete-horizontal-space "-- " nil just-one-space make-string 72 45] 3 (#$ . 19884) nil]) #@109 Make the index for the current VED help file. Index is inserted at point. Any old indexes are not deleted. (defalias 'ved-indexify #[nil "\303\211`\212eb\210\304\305\303\306#\203'\307y\210`\303\210\310\303x\210\n`{ B\202\nb\210\311c\210 \237\211\205C\312\313 @\"c\210 A\211\2044\303,\207" [toc headings start nil re-search-forward "^-- " t 0 "- " "\n CONTENTS - (Use g to access required sections)\n\n" format " %s\n"] 5 (#$ . 20157) nil]) (byte-code "\203\301\302KM\210\303\304KM\210\305\306KM\210\307\310KM\210\311\312KM\210\313\314!\207" [pop-help-short-commands help pop-help ref pop-ref doc pop-doc teach pop-teach showlib pop-showlib provide pop-help-mode] 2)