;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sat Jun 17 15:13:26 1995 ;;; from file /home/fsf/rms/e19/lisp/info.el ;;; emacs version 19.28.95.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.28.90"))) (error "`info.el' was compiled for Emacs 19.29 or later")) #@100 List of info nodes user has visited. Each element of list is a list (FILENAME NODENAME BUFFERPOS). (defvar Info-history nil (#$ . 470)) #@320 *Non-nil means the \\[Info-edit] command in Info can edit the current node. This is convenient if you want to write info files by hand. However, we recommend that you not do this. It is better to write a Texinfo file and generate the Info file from that, because that gives you a printed manual as well. (defvar Info-enable-edit nil (#$ . -613)) #@118 Non-nil allows Info to execute Lisp code associated with nodes. The Lisp code is executed when the node is selected. (defvar Info-enable-active-nodes t (#$ . 981)) #@154 List of default directories to search for Info documentation files. This value is used as the default for `Info-directory-list'. It is set in paths.el. (defvar Info-default-directory-list nil (#$ . 1152)) #@56 *Non-nil enables highlighting and fonts in Info nodes. (defvar Info-fontify t (#$ . -1364)) #@64 *Maximum size of menu to fontify if `Info-fontify' is non-nil. (defvar Info-fontify-maximum-menu-size 30000 (#$ . -1462)) #@646 List of directories to search for Info documentation files. nil means not yet initialized. In this case, Info uses the environment variable INFOPATH to initialize it, or `Info-default-directory-list' if there is no INFOPATH variable in the environment. The last element of `Info-default-directory-list' is the directory where Emacs installs the Info files that come with it. If you run the Emacs executable from the `src' directory in the Emacs source tree, the `info' directory in the source tree is used as the last element, in place of the installation Info directory. This is useful when you run a version of Emacs without installing it. (defvar Info-directory-list (byte-code "ÀÁ!ÂÃ!ƒ ‚\fÅ=ƒÆ‚Ç…\"ÉÊ\"‰\fƒiÍ‰\fGÐVƒbÑ\f\"†D\fG\fÐOB\fT\fG^ÍO‰\f‚3Ÿ*‚£ƒ”„”Ó!ƒ”\fÅ=„™\fÔ=„™ÉÖ\"˜„™‚£××!AB!+‡" [getenv "INFOPATH" boundp path-separator system-type ms-dos ";" ":" installation-directory expand-file-name "info/" sibling path nil idx list 0 string-match Info-default-directory-list file-exists-p windows-nt exec-directory "lib-src/" reverse] 6) (#$ . 1591)) #@135 List of additional directories to search for Info documentation files. These directories are not searched for merging the `dir' file. (defvar Info-additional-directory-list nil (#$ . 2726)) #@48 Info file that Info is now looking at, or nil. (defvar Info-current-file nil (#$ . 2922)) #@113 Info subfile that is actually in the *info* buffer now, or nil if current info file is not split into subfiles. (defvar Info-current-subfile nil (#$ . 3019)) #@51 Name of node that Info is now looking at, or nil. (defvar Info-current-node nil (#$ . 3183)) #@112 Marker pointing at beginning of current Info file's tag table. Marker points nowhere if file has no tag table. (defvar Info-tag-table-marker (make-marker) (#$ . 3283)) #@47 Cached completion list for current Info file. (defvar Info-current-file-completions nil (#$ . 3457)) #@55 List of possible matches for last Info-index command. (defvar Info-index-alternatives nil (#$ . 3564)) #@57 Non-nil if Emacs was started solely as an Info browser. (defvar Info-standalone nil (#$ . 3673)) #@280 List of file name suffixes and associated decoding commands. Each entry should be (SUFFIX . STRING); the file is given to the command as standard input. If STRING is nil, no decoding is done. Because the SUFFIXes are tried in order, the empty string should be last in the list. (defvar Info-suffix-list (quote ((".info.Z" . "uncompress") (".info.Y" . "unyabba") (".info.gz" . "gunzip") (".info.z" . "gunzip") (".info") (".Z" . "uncompress") (".Y" . "unyabba") (".gz" . "gunzip") (".z" . "gunzip") (""))) (#$ . 3777)) #@122 Insert the contents of an info file in the current buffer. Do the right thing if the file has been compressed or zipped. (defalias 'info-insert-file-contents #[(filename &optional visit) "Á‰Å!ƒ0\fƒ&ÇÈ\f@@!ÉP\"„&\fA‰„\f@A‚[\fƒFÅ\f@@P!„F\fA‰„4\f@@P\f@A\f„[ÊË\"ˆÌÍ!ƒnÎ ƒnÏ!ƒnÁÐ\"ˆ\n…ŒÁÒ!†Õed\nÖ$*+‡" [Info-suffix-list nil decoder fullname tail file-exists-p filename string-match regexp-quote "$" error "Can't find %s or any compressed version of it!" featurep jka-compr jka-compr-installed-p jka-compr-get-compression-info insert-file-contents visit file-name-directory default-directory buffer-read-only shell-command-on-region t] 6 (#$ . 4302)]) #@243 Enter Info, the documentation browser. Optional argument FILE specifies the file to examine; the default is the top-level directory of Info. In interactive use, a prefix argument directs this command to read a file name from the minibuffer. (defalias 'info #[(&optional file) "ƒÁÂÃQ!‡ÄÅ!ƒÆÅ!‡Ç ‡" [file Info-goto-node "(" ")" get-buffer "*info*" pop-to-buffer Info-directory] 4 (#$ . 5005) (byte-code "…ÁÂÃ‰Ä$C‡" [current-prefix-arg read-file-name "Info file name: " nil t] 5)]) #@153 Run Emacs as a standalone Info reader. Usage: emacs -f info-standalone [filename] In standalone mode, \\[Info-exit] exits Emacs itself. (defalias 'info-standalone #[nil "À\nƒÃÄ\n@\"„ÅÆÇ‡È ‡" [t Info-standalone command-line-args-left string-match "^-" err (byte-code "À @!ˆ A‰‡" [info command-line-args-left] 2) ((error (byte-code "ÀÁÂ¢Ä=ƒA@‚\"!ˆÅ ‡" [send-string-to-terminal format "%s\n" err error save-buffers-kill-emacs] 5))) info] 3 (#$ . 5501)]) (defalias 'Info-find-node #[(filename nodename &optional no-going-back) "ƒ¦Á‰‰Å!Æ!—Ç˜ƒÈ‚—ÉÊ\"ƒ'Ë‚AÌ!ƒ1Í‚Aƒ?Ï\"‚A‰ƒ–\n„–Ò@\"Ò—@\"‰ƒŒ\n„ŒÕ\f@@P!ƒv\f‚ƒÕ@@P!ƒƒA‰„b)A‰„G)\nƒ \n‚¥Ö×\"ˆ+ƒ»„»`EBÜÝ!ˆÞp!ˆà=„Íà ˆ~ˆÁáŽƒzš„zÁ\"ÁÁ#Á$Á%Á&ç ˆÈ=ƒè ˆ‚\néÈ\"ˆê!+ìÁ!ˆ-Á‰“ˆdbˆîyˆ/ð˜„iñòÁÈ#ƒiÁ3ôõ!ˆ`3Šöyˆ÷ø!)ƒaŠp9úû!qˆÞp!ˆÈ<ç ˆý9!ˆ-þ•Á“ˆ*‚h-3Á“ˆ)È=ƒsÇ‚wÿ&!)/ð˜ƒ/@ ˆ‚ýeAB/!CQDEF-!ƒåŠG-!qˆ-bˆHDÁÈ#ƒÜIp!EpJÝ!=„äKE!E‚äÖL/\"ˆ)eEMZ]bˆNOˆ*P ˆ)eb‡" [filename nil found temp-downcase temp substitute-in-file-name file-name-nondirectory "dir" t string-match "^\\./" ("./") file-name-absolute-p (nil) Info-additional-directory-list append Info-directory-list dirs expand-file-name Info-suffix-list suffix-list file-exists-p error "Info file %s does not exist" Info-current-file no-going-back Info-current-node Info-history switch-to-buffer "*info*" buffer-disable-undo major-mode Info-mode ((byte-code "„! „!\nƒ!\n@\nAÄ@A@Å#ˆÆ8bˆ)Ä‡" [Info-current-node no-going-back Info-history hist Info-find-node t 2] 4)) buffer-read-only Info-current-subfile Info-current-file-completions Info-index-alternatives buffer-file-name erase-buffer Info-insert-dir info-insert-file-contents file-name-directory default-directory set-buffer-modified-p Info-tag-table-marker -8 nodename "*" search-forward "\nEnd tag table\n" pos search-backward "\nTag table:\n" 2 looking-at "(Indirect)\n" buf get-buffer-create " *info tag table*" case-fold-search insert-buffer-substring 0 file-name-sans-versions Info-set-mode-line "Node: *" regexp-quote " *[, \n]" regexp guesspos marker-position marker-buffer re-search-forward read get-buffer Info-read-subfile "No such node: \"%s\"" 1000 foo (byte-code "ÀÁÂÃ#ƒ\"Äyˆ`ÄyˆÆ Ã#ƒÈÉÃ\"ˆ)‚ÊË\f\"‡" [search-forward "\n" nil t 1 beg re-search-backward regexp throw foo error "No such node: %s" nodename] 4) Info-select-node] 5]) (byte-code "ÀÁ!„ÂÁBÀÄ!„ÂÄBÀÅ!„ ÂÅBÂ‡" [boundp Info-dir-contents nil current-load-list Info-dir-contents-directory Info-dir-file-attributes] 2) (defalias 'Info-insert-dir #[nil "ƒ ƒÂÃÄÅ \"B!ƒcˆ‚\nÇ‰‰‰‰ \n\f Ç ƒÅÎÏ @!!‰„¼Ñ!„¼ÇÏÓ\"Ô!†…ÏÕ\"Ô!†…ÏÖ\"Ô!†…Ï×\"Ô!Ñ!BBƒ»Š\f„¢ÙÚ!ˆÛÜ!qˆÝ!ˆp\fB\fB B)* A )‚.\f„ÎÞß!ˆ\f@\fA\nà!ˆŠqˆ!)\"\nƒD\n@#Š#qˆebˆäåÇæ#ƒ:Ç‰‰'()êyˆ`)ëì!ˆíî!ˆï (íìÇð#ˆñyˆ`'(#)'F B +‚ù*\nA‰\n„ìäå!ˆêyˆò æŠíóÇæ#ˆ`)'4 5 ƒ @@(Š(—5„“äö÷(!øQ'æ#„“ù(øú±ˆ(5B5* A‰ „e, ƒç @@(ebˆäû÷(!üQÇæ#ƒÉíìÇð#ˆñyˆúcˆ‚Ódbˆý(þ±ˆÿ@ @A\"ˆ) A‰ „£\fƒýA\f@!ˆ\fA‰\f„ìÙB!ˆ.C \"‰!‡" [Info-dir-contents Info-dir-file-attributes eval and mapcar #[(elt) "À @!‰ƒÃ\n›Ä ˆÃ A›Ä ˆ A\n)š‡" [file-attributes elt curr 4 0] 3] Info-directory-list nil dirs-done nodes others buffer buffers dirs file-truename expand-file-name truename directory-file-name file "dir" file-attributes "DIR" "dir.info" "DIR.INFO" attrs message "Composing main Info directory..." generate-new-buffer "info dir" insert-file-contents error "Can't find the info directory node" insert-buffer default-directory Info-dir-contents-directory other re-search-forward "^\\* Menu:" t end nodename beg 1 search-backward "\n" search-forward "Node: " Info-following-node-name move 0 ("top") "" case-fold-search menu-items "^\\* " regexp-quote "::" "* " "\n" "\n.*\n.*Node: " "[,\n ]" "\nFile: dir Node: " "\n\n* Menu:\n\n" apply insert-buffer-substring kill-buffer "Composing main Info directory...done" buffer-string] 8]) (defalias 'Info-read-subfile #[(nodepos) "À !qˆebˆÂÃ!ˆÄ‰ÇyˆÈÉˆÊË!qˆ\f š„;Ä Ä~ˆÏ ˆÐ !ˆÑÄ!ˆ \f)ebˆÂÃ!ˆZ`\\*‡" [marker-buffer Info-tag-table-marker search-forward "\n" nil lastfilename lastfilepos 2 foo (byte-code "ÀÁ!„=l„7`Â‰ÆÇ!ˆ `ÈZ{Ép!Êyˆ\fVƒ-ÌÍÎ\"ˆ\f+‚Êyˆ‚Â‡" [looking-at "" nil thisfilename thisfilepos beg search-forward ": " 2 read 1 nodepos throw foo t lastfilename lastfilepos] 3) get-buffer "*info*" Info-current-subfile buffer-read-only buffer-file-name erase-buffer info-insert-file-contents set-buffer-modified-p nodepos] 2]) (defalias 'Info-select-node #[nil "ŠÀÁ!ˆÂyˆÃÄ!ˆ`ÅÆwˆ`{È ˆÉyˆÆ\n`ÃËÆÌ#ƒ;`SÍÎ!ƒ<É•bˆÏp!\n‚<d}ˆƒHÑ\n!ˆƒPÓ ˆÔÕ!*‡" [search-backward "\n" 2 re-search-forward "Node:[ ]*" "^, \n" nil Info-current-node Info-set-mode-line 0 active-expression "\n[\f]" t looking-at "[\n\f]*execute: " read Info-enable-active-nodes eval Info-fontify Info-fontify-node run-hooks Info-selection-hook] 5]) (defalias 'Info-set-mode-line #[nil "À ƒÂ !‚\fÃÄ †ÃR‰‡" ["Info: (" Info-current-file file-name-nondirectory "" ")" Info-current-node mode-line-buffer-identification] 4]) #@72 Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME. (defalias 'Info-goto-node #[(nodename) "ÀÂÃ\f\"ˆÅ”Å•UƒÆ‚\fÇ”Ç•O\fÈ”È•OÂÉ \"‰\nƒ1 Ë\nO)ÂÉ\f\"‰\nƒB\fË\nO)Ì Æš?…L \fÆšƒVÍ‚W\f\")‡" [nil filename string-match "\\s *\$(\\s *\\([^ )]*\$\\s *)\\s *\\|\\)\$.*\$" nodename 1 "" 2 3 "\\s *\\'" trim 0 Info-find-node "Top"] 5 (#$ . 10791) (list (Info-read-node-name "Goto node: "))]) (defalias 'Info-read-node-name #[(prompt &optional default) "ÀÂÄ \"‰Æšƒ†È!‚ *‡" [t completion-ignore-case completing-read prompt Info-build-node-completions nodename "" default Info-read-node-name] 4]) (defalias 'Info-build-node-completions #[nil "†]ÁŠŒÃ\f!ƒ,Ã\f!qˆ~ˆ\fbˆÅÆÁÇ#ƒXÈ”È•{C\nB‚~ˆebˆÉÊÁÇ#ƒXÈyˆ`ÈyˆÌÍÇ#ƒTÈ”È•{C\nB)‚1*\n‰)‡" [Info-current-file-completions nil compl marker-buffer Info-tag-table-marker re-search-forward "\nNode: \$.*\$" t 1 search-forward "\n" beg re-search-backward "Node: *\$[^,\n]*\$ *[,\n ]"] 4]) #@70 If this node has been visited, restore the point value when we left. (defalias 'Info-restore-point #[(hl) "…)@@ šƒ!@A@\n˜ƒ!Ã@8bˆÄ‰‚A‰„Ä‡" [hl Info-current-file Info-current-node 2 nil] 3 (#$ . 11775)]) #@74 Default regexp for \\[Info-search] command to search for. (defvar Info-last-search nil (#$ . 11997)) #@72 Search for REGEXP, starting from point, and select node it's found in. (defalias 'Info-search #[(regexp) "Ášƒ\n‚ Ã‰\f ` \n\fŠŒ~ˆ„3Í!ˆ`\f‚8ÎÏÐˆ*\f„ÚÑŽÃÓ!qˆebˆÕÖ!ˆŒ`Õ×!ˆ`S}ˆebˆÕØÙQ!ˆÚyˆm„ŒÍÛ!ˆÜ•Ý\\bˆÞp!Ü”Ü•{BBÚ•Tbˆ‚hŸ‰@@A)ƒÇßà@A\"ˆá@@!ˆAÍÃâ#ƒœ`\fÃ‰„¡\fƒÓßÁ!ˆ‚ÙãäC\"ˆ*~ˆ\fbˆå ˆ\n\f˜ƒñ š†þ \nE&B‰&.‡" [regexp "" Info-last-search nil Info-current-node Info-current-file Info-current-subfile osubfile opoint ofile onode current found re-search-forward err (byte-code "À !ˆ`À‡" [re-search-forward regexp found] 2) ((search-failed)) ((byte-code "„Á\n!ˆ\nbˆÃ ˆÁ‡" [found Info-read-subfile opoint Info-select-node] 2)) list marker-buffer Info-tag-table-marker search-forward "\n\nIndirect:" "\n" "\n" ": " 0 "\$^.*\$: [0-9]+$" 1 2 read message "Searching subfile %s..." Info-read-subfile t signal search-failed Info-select-node Info-history] 7 (#$ . 12119) "sSearch (regexp): "]) (defalias 'Info-extract-pointer #[(name &optional errorname) "ŠebˆÀyˆÁ\nÃPÄÅ#ƒÆ•bˆÇ ‚.Å=?….ÉÊË†+\n!P!)‡" [1 re-search-backward name ":" nil t 0 Info-following-node-name errorname error "Node has no " capitalize] 4]) (defalias 'Info-following-node-name #[(&optional allowedchars) "ÀÁwˆ`ÂÃ\f†\fÅÆQ!ƒ)\f†ÅÇPÁwˆÂÇ!ƒÈÁwˆ‚ÉÁxˆ`{‡" [" " nil looking-at "[" allowedchars "^, \n" "]" "(" "^)" " "] 5]) #@35 Go to the next node of this node. (defalias 'Info-next #[nil "ÀÁÂ!!‡" [Info-goto-node Info-extract-pointer "next"] 3 (#$ . 13496) nil]) #@39 Go to the previous node of this node. (defalias 'Info-prev #[nil "ÀÁÂÃ\"!‡" [Info-goto-node Info-extract-pointer "prev[ious]*" "previous"] 4 (#$ . 13638) nil]) #@39 Go to the superior node of this node. (defalias 'Info-up #[nil "ÀÁÂ!!ˆÃ\f!‡" [Info-goto-node Info-extract-pointer "up" Info-restore-point Info-history] 3 (#$ . 13804) nil]) #@35 Go back to the last node visited. (defalias 'Info-last #[nil "„ÁÂ!ˆÃ‰‰@@@A@@AA@AÇ \"ˆA\fb+‡" [Info-history error "This is the first Info node you looked at" nil opoint nodename filename Info-find-node] 3 (#$ . 13983) nil]) #@32 Go to the Info directory node. (defalias 'Info-directory #[nil "ÀÁÂ\"‡" [Info-find-node "dir" "top"] 3 (#$ . 14232) nil]) #@112 Follow cross reference named NAME to the node it refers to. NAME may be an abbreviation of the reference name. (defalias 'Info-follow-reference #[(footnotename) "À‰‰ÁÂ!PÈÉ\f #‰ƒ+\fÊ OË\f TÀOQ Ì\\‚ŠebˆÍ\fÀÎ#„<ÏÐ\"ˆÊ”Ñ\\bˆÒÓÎ\")ÈË #‰ƒjÊ OÉÊ•ÀOQ Ô\\‚IÕ!,‡" [nil "\\*note " regexp-quote footnotename str i beg target string-match " " 0 "[ \n]+" 6 re-search-forward t error "No cross-reference named %s" 5 Info-extract-menu-node-name "Bad format cross reference" 1 Info-goto-node] 6 (#$ . 14361) (byte-code "ÀÁ‰‰`Á‰‰‰ \nŠÁˆ`Ëyˆ`ebˆÌÍÁÀ#ƒœÎ”`S{„JË”XƒJ`XƒJÀ„_Ë”Xƒ_`\nXƒ_ÀËÏÐ \f#‰ƒ} Ë\fOÑ Ë•ÁOQ\fT‚aÀ=ƒ‡ À=ƒ‘ ÁB B ‚%)„¦ GÎ=ƒ´ @@ ƒáÒƒÇÓÔQ‚ÈÕ ÁÀ$‰×šƒÚ‚Ü)C‚äØÙ!. ‡" [t nil eol bol i str start-point alt-default default completions completion-ignore-case 0 re-search-forward "\\*note[ \n ]*\$[^:]*\$:" 1 string-match "[ \n ]+" " " completing-read "Follow reference named: (" ") " "Follow reference named: " input "" error "No cross-references in this node"] 10)]) (defalias 'Info-extract-menu-node-name #[(&optional errmessage multi-line) "ÀÁwˆ`Á‰ÅÁwˆÆuˆÇÈ!ƒ\f`S{‚.ÀÁwˆÉ\nƒ,Ë‚-Ì!ÍÎ\n#‰ƒA\nÏIˆ‚/ÍÐ\"ƒRÑÒÓ‰$‚A+‡" [" \n" nil i str beg "^:" 1 looking-at ":" Info-following-node-name multi-line "^., " "^., \n" string-match "\n" 32 " +" replace-match " " t] 5]) (defalias 'Info-complete-menu-item #[(string predicate action) "À\nÃ=ƒEÃÄÅ!ÇQ Š\nqˆebˆËÃÀ#ƒ8ÌÍÎ”Î•{\"Î”B B ‚)Ï #*‚œ\nÀ=ƒˆÃÄÅ!ÇQ Š\nqˆebˆËÃÀ#ƒ{ÌÍÎ”Î•{\"Î”B B ‚_)Ñ #*‚œŠ\nqˆebˆËÒÅ!ÓQÃÀ#))‡" [t case-fold-search action nil "\n\\* \$" regexp-quote string "[^: \n]*\$:" pattern completions Info-complete-menu-buffer re-search-forward format "%s" 1 try-completion predicate all-completions "\n\\* " ":"] 4]) #@124 Go to node for menu item named (or abbreviated) NAME. Completion is allowed, and the menu item point is on is the default. (defalias 'Info-menu #[(menu-item) "ÀÁ\n!!‡" [Info-goto-node Info-extract-menu-item menu-item] 3 (#$ . 16202) (byte-code "À‰`À‰ŠebˆÆÇÀÈ#„ÉÊ!ˆ``Wƒ9ŠbˆÀˆËÌ\nÈ#ˆÍÎÏ”Ï•{\"))À„tÈpÓ\fƒTÍÔ\f\"‚UÕÖÀÈ$*‰×˜ƒ=\fƒm\f‰‚?À‰ƒB.C‡" [nil last beg p default completions search-forward "\n* menu:" t error "No menu in this node" re-search-backward "\n\\* \$[^: \n]*\$:" format "%s" 1 item Info-complete-menu-buffer completion-ignore-case completing-read "Menu item (default %s): " "Menu item: " Info-complete-menu-item ""] 6)]) (defalias 'Info-extract-menu-item #[(menu-item) "À !ŠebˆÂÃÄÅ#„ÆÇ!ˆÈÉ ÊQÄÅ#„-ÈÉ PÄÅ#„-ÆË!ˆÌyˆÍuˆÎ )‡" [regexp-quote menu-item search-forward "\n* menu:" nil t error "No menu in this node" re-search-forward "\n\\* " ":" "No such item in menu" 0 2 Info-extract-menu-node-name] 4]) (defalias 'Info-extract-menu-counting #[(count) "ŠebˆÀÁÂÃ#„ÄÅ!ˆƒ&ÀÇÂÃ$„.ÄÈ!ˆ‚.ÀÇÂÃ#„&É )‡" [search-forward "\n* menu:" nil t error "No menu in this node" count "\n* " "Too few items in menu" Info-extract-menu-node-name] 5]) #@91 Go to the node of the Nth menu item. N is the digit argument used to invoke this command. (defalias 'Info-nth-menu-item #[nil "ÀÁÂ Â GSHÃZ!!‡" [Info-goto-node Info-extract-menu-counting this-command-keys 48] 4 (#$ . 17396) nil]) #@34 Go to the Top node of this file. (defalias 'Info-top-node #[nil "ÀÁ!‡" [Info-goto-node "Top"] 2 (#$ . 17631) nil]) #@36 Go to the final node in this file. (defalias 'Info-final-node #[nil "ÀÁ!ˆÂÀÄÂ!!ˆÅÆ‰\"„\fÇÈ \"?…/ŠÊËÂÆ#)…/ÀÄÂ!!ˆ‚)‡" [Info-goto-node "Top" nil Info-history Info-extract-menu-counting Info-forward-node t string-match "\\" Info-current-node search-forward "\n* Menu:"] 4 (#$ . 17752) nil]) #@69 Go forward one node, considering all nodes as forming one sequence. (defalias 'Info-forward-node #[(&optional not-down no-error) "ebˆÀyˆ „$ŠÂÃÄÅ#)ƒ$ÆÇ\"„$ÉÊÀ!!ˆÅ‡ŠËÌÄÅ#)ƒ3Í ˆÅ‡ŠËÎÄÅ#)ƒ_ÏÐ!—Ñ˜„_Ó ˆÄ‰ÖŽ×Å\"‰,‡ƒfÄ‡ÙÚ!‡" [1 not-down search-forward "\n* menu:" nil t string-match "\\" Info-current-node Info-goto-node Info-extract-menu-counting search-backward "next:" Info-next "up:" Info-extract-pointer "up" "top" old-node Info-up success Info-history ((byte-code "„Á\n!ˆÁ‡" [success Info-goto-node old-node] 2)) Info-forward-node no-error error "No pointer forward from this node"] 4 (#$ . 18061) nil]) #@70 Go backward one node, considering all nodes as forming one sequence. (defalias 'Info-backward-node #[nil "ÀÁÂ\"ÀÃÂ\"\fƒÆÇ\f\"ƒÈÉ!‚]\fƒ0 ƒ+ —\f—˜ƒ0Ê ‚] ƒZË ˆÌ ÆÎ\"?…VŠÐÑÌÂ#)…VÒÓÌ!!ˆ‚:)‚]ÈÔ!*‡" [Info-extract-pointer "prev[ious]*" t "up" upnode prevnode string-match "(" error "First node in file" Info-up Info-prev nil Info-history "\\" Info-current-node search-forward "\n* Menu:" Info-goto-node Info-extract-menu-counting "No pointer backward from this node"] 4 (#$ . 18704) nil]) #@43 Exit Info by selecting some other buffer. (defalias 'Info-exit #[nil "ƒÁ ‡ÂÃp!Äp!ˆ!‡" [Info-standalone save-buffers-kill-emacs switch-to-buffer other-buffer bury-buffer] 4 (#$ . 19219) nil]) (defalias 'Info-next-menu-item #[nil "ŠÀyˆÁÂÃÄ#ˆÁÅÃÄ#„ÆÇ!ˆÈÉ !)‡" [-1 search-forward "\n* menu:" nil t "\n* " error "No more items in menu" Info-goto-node Info-extract-menu-node-name] 4 nil nil]) (defalias 'Info-last-menu-item #[nil "ŠÀyˆŠÁÂÃÄ#…`)‰ƒÁÆ Ä#„ ÇÈ!ˆ)ÉŠÊ•bˆË )!)‡" [1 search-backward "\n* menu:" nil t beg "\n* " error "No previous items in menu" Info-goto-node 0 Info-extract-menu-node-name] 5 nil nil]) (defalias 'Info-no-error '(macro . #[(&rest body) "ÀÁÂÃ\fÅ\"BÆF‡" [condition-case nil progn append body (t) (error nil)] 6])) #@60 Go to the next subnode or the next node, or go up a level. (defalias 'Info-next-preorder #[nil "ÀÁÂ†ÀÃÄ†ÀÅÆƒdb‡ÇÈ!‡" [nil (byte-code "À ˆÁ‡" [Info-next-menu-item t] 1) ((error)) (byte-code "À ˆÁ‡" [Info-next t] 1) ((error)) (byte-code "À ˆÁ‡" [Info-up t] 1) ((error)) error "No more nodes"] 3 (#$ . 19968) nil]) #@59 Go to the last node, popping up a level if there is none. (defalias 'Info-last-preorder #[nil "ÀÁÂƒÃÄ!‡ÀÅÆƒdbˆÃÄ!‡ÀÇÈƒ.ebˆÉÊÀË#†1db‡ÌÍ!‡" [nil (byte-code "À ˆdbˆÁ‡" [Info-last-menu-item t] 1) ((error)) recenter -1 (byte-code "À ˆÁ‡" [Info-prev t] 1) ((error)) (byte-code "À ˆÁ‡" [Info-up t] 1) ((error)) search-forward "\n* Menu:" t error "No previous nodes"] 4 (#$ . 20295) nil]) #@297 Scroll one screenful forward in Info, considering all nodes as one sequence. Once you scroll far enough in a node that its menu appears on the screen, the next scroll moves into its first subnode. When you scroll past the end of a node, that goes to the next node or back up to the parent node. (defalias 'Info-scroll-up #[nil "À eW„À dVƒÁÂ `\"ˆŠebˆÃÄÅÆ#ƒ$`‚%d)‰À W„6È!ƒ;É ‚=Ê )‡" [window-start set-window-start selected-window search-forward "\n* Menu:" nil t virtual-end pos-visible-in-window-p Info-next-preorder scroll-up] 5 (#$ . 20692) nil]) #@241 Scroll one screenful back in Info, considering all nodes as one sequence. Within the menu of a node, this goes to its last subnode. When you scroll past the beginning of a node, that goes to the previous node or back up to the parent node. (defalias 'Info-scroll-down #[nil "À eW„À dVƒÁÂ `\"ˆŠebˆÃÄÅÆ#)‰„*Èe!ƒ/É ‚1Ê )‡" [window-start set-window-start selected-window search-forward "\n* Menu:" nil t virtual-end pos-visible-in-window-p Info-last-preorder scroll-down] 5 (#$ . 21261) nil]) #@67 Move cursor to the next cross-reference or menu item in the node. (defalias 'Info-next-reference #[nil "À`m„ÃuˆÄ\nÅÆ#„%ebˆÄ\nÅÆ#„% bˆÇÈ!ˆÉ”bˆÊË!…1Ì *‡" ["\\*note[ \n ]*\$[^:]*\$:\\|^\\* .*:" old-pt pat 1 re-search-forward nil t error "No cross references in this node" 0 looking-at "\\* Menu:" Info-next-reference] 4 (#$ . 21765) nil]) #@71 Move cursor to the previous cross-reference or menu item in the node. (defalias 'Info-prev-reference #[nil "À`Ã\nÄÅ#„dbˆÃ\nÄÅ#„ bˆÆÇ!ˆÈ”bˆÉÊ!…*Ë *‡" ["\\*note[ \n ]*\$[^:]*\$:\\|^\\* .*:" old-pt pat re-search-backward nil t error "No cross references in this node" 0 looking-at "\\* Menu:" Info-prev-reference] 4 (#$ . 22116) nil]) #@460 Look up a string in the index for this file. The index is defined as the first node in the top-level menu whose name contains the word "Index", plus any immediately following nodes whose names also contain the word "Index". If there are no exact matches to the specified topic, this chooses the first match which is a case-insensitive substring of a topic. Use the `,' command to see the other matches. Give a blank topic name to go to the Index node itself. (defalias 'Info-index #[(topic) "ÁÂÃÄ !\"Á ÊË!ˆÌÍÁÎ#„!ÏÐ!ˆÑÒÁÎ#„-ÏÐ!ˆÓ”bˆÁÊÕ !ˆ) Öš†ÅÁ‰‰‰ebˆÑÁÎ#ƒuÓ”Ó•{Ú”Ú•{ÛÜÝ”Ý•{P!FB‚OÞßÎ\"‰ƒàá\"ƒÊ!ˆ‚L„œâ ˆÏã \"ˆä \"‰ƒ¹Bå\"‚œŸ¤&çè!,,‡" [Info-current-node nil format "\n\\* \$[^\n:]*%s[^\n:]*\$:[ ]*\$[^.\n]*\$\\.[ ]*\$[0-9]*\$" regexp-quote topic node pattern rnode orignode Info-goto-node "Top" search-forward "\n* menu:" t error "No index" re-search-forward "\n\\* \$.*\\\$" 1 Info-history Info-extract-menu-node-name "" found exact matches 2 string-to-int "0" 3 Info-extract-pointer "next" string-match "\\" Info-last "No \"%s\" in index" assoc delq Info-index-alternatives Info-index-next 0] 7 (#$ . 22464) "sIndex topic: "]) #@63 Go to the next matching index item from the last `i' command. (defalias 'Info-index-next #[(num) "„ÁÂ!ˆÄWƒG\\‰‚ ÄVƒ+A@C¤S‰‚Å@A@!ˆÆ@8ÄVƒDÆ@8yˆ‚‘Æyˆ@@ÈÉÊË!\"ÌÍ#„‡ÎÉÏ\"ÌÍ#„‡ÐÑ\"ƒ~ÎÉÏÄÒ”O\"ÌÍ#„‡ÎÌÍ#ƒÄyˆ‚ebˆ)ÓÔ@@Õ@8Aƒ£Ö‚¤×$‡" [Info-index-alternatives error "No previous `i' command in this file" num 0 Info-goto-node 3 name re-search-forward format "\$Function\\|Command\$: %s\$ \\|$\$" regexp-quote nil t search-forward "`%s'" string-match "\\`.*\$ (.*)\$\\'" 1 message "Found \"%s\" in %s. %s" 2 "(Press `,' for more)" "(Only match)"] 7 (#$ . 23691) "p"]) #@36 Make command be undefined in Info. (defalias 'Info-undefined #[nil "À ‡" [ding] 1 (#$ . 24307) nil]) #@26 Enter the Info tutorial. (defalias 'Info-help #[nil "À ˆÁÂÃ ÄWƒÅ‚Æ\"‡" [delete-other-windows Info-find-node "info" window-height 23 "Help-Small-Screen" "Help"] 4 (#$ . 24414) nil]) #@47 Display a brief summary of all Info commands. (defalias 'Info-summary #[nil "À‹‡" [((byte-code "ÀÁ!ˆÂ ˆÃÄ!cˆÅ ˆebˆÆ‰Éd!?Êƒ(Ë‚)Ì!ˆÍ ‰Î=„=C‚HƒHÐ ˆ‚*ÑÁ!‡" [switch-to-buffer "*Help*" erase-buffer documentation Info-mode help-mode nil flag ch pos-visible-in-window-p message "Type Space to see more" "Type Space to return to Info" read-event 32 unread-command-events scroll-up bury-buffer] 2))] 1 (#$ . 24605) nil]) #@486 Return the token around POS, POS must be somewhere inside the token START is a regular expression which will match the beginning of the tokens delimited string ALL is a regular expression with a single parenthized subpattern which is the token to be returned. E.g. '{(.*)}' would return any string enclosed in braces around POS. SIG optional fourth argument, controls action on no match nil: return nil t: beep a string: signal an error, using that string. (defalias 'Info-get-token #[(pos start all &optional errorstring) "ŠbˆÁ\neÃZ]Ä#ˆÅÇdÃ\\^Ä#ƒ/É”X…)É•V‰ƒƒJÉ”XƒJÉ•VƒJÊ”Ê•{‚g„SÅ‚gÌ=ƒaÍ ˆÅ‚gÎÏ#*‡" [pos re-search-backward start 200 yes nil found re-search-forward all 0 1 errorstring t beep error "No %s around position %d"] 5 (#$ . 25046)]) #@244 \Follow a node reference near point. Like \[Info-menu], \[Info-follow-reference], \[Info-next], \[Info-prev] or \[Info-up] command, depending on where you click. At end of the node's text, moves to the next node, or up if none. (defalias 'Info-mouse-follow-nearest-node #[(click) "‰A@)‰@\nA@Å!ˆ\fbˆ+Æ ?…'ŠÇyˆm)…'È ‡" [click event start window pos select-window Info-try-follow-nearest-node 1 Info-next-preorder] 3 (#$ . 25858) "e"]) #@243 \Follow a node reference near point. Like \[Info-menu], \[Info-follow-reference], \[Info-next], \[Info-prev] or \[Info-up] command, depending on where point is. If no reference to follow, moves to the next node, or up if none. (defalias 'Info-follow-nearest-node #[nil "À †Á ‡" [Info-try-follow-nearest-node Info-next-preorder] 1 (#$ . 26321) nil]) #@68 Follow a node reference near point. Return non-nil if successful. (defalias 'Info-try-follow-nearest-node #[nil "ÀÂ`ÃÄ#‰ƒÅ !ˆ‚vÂ`ÆÇ#‰ƒ$È !ˆ‚vÂ`ÆÉ#‰ƒ5Ê !ˆ‚vÂ`ËÌ#‰ƒFÈ !ˆ‚vÂ`ÍÎ#‰ƒWÈ !ˆ‚vÂ`ÏÐ#‰ƒhÈÑ!ˆ‚vÂ`ÒÓ#‰ƒvÈ !ˆ )‡" [nil node Info-get-token "\\*note[ \n]" "\\*note[ \n]\$[^:]*\$:" Info-follow-reference "\\* " "\\* \$[^:]*\$::" Info-goto-node "\\* \$[^:]*\$:" Info-menu "Up: " "Up: \$[^,\n ]*\$" "Next: " "Next: \$[^,\n ]*\$" "File: " "File: \$[^,\n ]*\$" "Top" "Prev: " "Prev: \$[^,\n ]*\$"] 4 (#$ . 26693)]) #@34 Keymap containing Info commands. (defvar Info-mode-map nil (#$ . 27244)) (byte-code "„Á Â!ˆÃÄÅ#ˆÃÆÇ#ˆÃÈÉ#ˆÃÊË#ˆÃÌÍ#ˆÃÎÏ#ˆÃÐÏ#ˆÃÑÏ#ˆÃÒÏ#ˆÃÓÏ#ˆÃÔÏ#ˆÃÕÏ#ˆÃÖÏ#ˆÃ×Ï#ˆÃØÙ#ˆÃÚÛ#ˆÃÜÝ#ˆÃÞß#ˆÃàá#ˆÃâã#ˆÃäÅ#ˆÃåæ#ˆÃçè#ˆÃéê#ˆÃëì#ˆÃíî#ˆÃïð#ˆÃñò#ˆÃóô#ˆÃõö#ˆÃ÷ø#ˆÃùú#ˆÃûü#ˆÃýü#ˆÃþá#ˆÃÿ@#ˆÃAB#ˆÃCD#ˆÃEF#ˆGHIJ#‡" [Info-mode-map make-keymap suppress-keymap define-key "." beginning-of-buffer " " Info-scroll-up " " Info-follow-nearest-node " " Info-next-reference " " Info-prev-reference "1" Info-nth-menu-item "2" "3" "4" "5" "6" "7" "8" "9" "0" undefined "?" Info-summary "]" Info-forward-node "[" Info-backward-node "<" Info-top-node ">" Info-final-node "b" "d" Info-directory "e" Info-edit "f" Info-follow-reference "g" Info-goto-node "h" Info-help "i" Info-index "l" Info-last "m" Info-menu "n" Info-next "p" Info-prev "q" Info-exit "s" Info-search "ó" "t" "u" Info-up "," Info-index-next "" Info-scroll-down [mouse-2] Info-mouse-follow-nearest-node put info-mode mode-class special] 4) #@2233 \ Info mode provides commands for browsing through the Info documentation tree. Documentation in Info is divided into "nodes", each of which discusses one topic and contains references to other nodes which discuss related topics. Info has commands to follow the references and show you other nodes. \[Info-help] Invoke the Info tutorial. Selecting other nodes: \[Info-mouse-follow-nearest-node] Follow a node reference you click on. This works with menu items, cross references, and the "next", "previous" and "up", depending on where you click. \[Info-next] Move to the "next" node of this node. \[Info-prev] Move to the "previous" node of this node. \[Info-up] Move "up" from this node. \[Info-menu] Pick menu item specified by name (or abbreviation). Picking a menu item causes another node to be selected. \[Info-directory] Go to the Info directory node. \[Info-follow-reference] Follow a cross reference. Reads name of reference. \[Info-last] Move to the last node you were at. \[Info-index] Look up a topic in this file's Index and move to that node. \[Info-index-next] (comma) Move to the next match from a previous `i' command. Moving within a node: \[Info-scroll-up] Normally, scroll forward a full screen. If the end of the buffer is already visible, try to go to the next menu entry, or up if there is none. \[Info-scroll-down] Normally, scroll backward. If the beginning of the buffer is already visible, try to go to the previous menu entry, or up if there is none. \[beginning-of-buffer] Go to beginning of node. Advanced commands: \[Info-exit] Quit Info: reselect previously selected buffer. \[Info-edit] Edit contents of selected node. 1 Pick first item in node's menu. 2, 3, 4, 5 Pick second ... fifth item in node's menu. \[Info-goto-node] Move to node specified by name. You may include a filename as well, as (FILENAME)NODENAME. \[universal-argument] \[info] Move to new Info file with completion. \[Info-search] Search through this Info file for specified regexp, and select the node in which the next occurrence is found. \[Info-next-reference] Move cursor to next cross-reference or menu item. \[Info-prev-reference] Move cursor to previous cross-reference or menu item. (defalias 'Info-mode #[nil "À ˆÁÃÅ!ˆÇ!ˆ \nË\fË ÎÏ!ˆÎÐ!ˆÎÑ!ˆÎÒ!ˆÎÓ!ˆÎÔ!ˆÕÖ !×>ƒzØÙ!ˆØÚ!ˆØÛ!ˆÜÙ!„aÜÝ!ƒ\\ÞÝÙ\"ˆ‚aÞßÙ\"ˆÜÚ!„làÚË\"ˆÜÛ!„}ÞßÛ\"ˆ‚}á\"ã ˆäå!‡" [kill-all-local-variables Info-mode major-mode "Info" mode-name use-local-map Info-mode-map set-syntax-table text-mode-syntax-table text-mode-abbrev-table local-abbrev-table t case-fold-search buffer-read-only make-local-variable Info-current-file Info-current-subfile Info-current-node Info-tag-table-marker Info-history Info-index-alternatives framep selected-frame (x pc) make-face info-node info-menu-5 info-xref face-differs-from-default-p bold-italic copy-face bold set-face-underline-p nil Info-fontify Info-set-mode-line run-hooks Info-mode-hook] 3 (#$ . 28292)]) #@47 Local keymap used within `e' command of Info. (defvar Info-edit-map nil (#$ . 31272)) (byte-code "„Á \n¤ÃÄÅ#ˆÆÇÈÉ#‡" [Info-edit-map make-sparse-keymap text-mode-map define-key "" Info-cease-edit put info-edit-mode mode-class special] 4) #@166 Major mode for editing the contents of an Info node. Like text mode with the addition of `Info-cease-edit' which returns to Info mode for browsing. \{Info-edit-map} (defalias 'Info-edit-mode #[nil "À !ˆÂÄÆÇ!ˆÈ Ê ˆËp!ˆÌÍ!‡" [use-local-map Info-edit-map Info-edit-mode major-mode "Info Edit" mode-name kill-local-variable mode-line-buffer-identification nil buffer-read-only force-mode-line-update buffer-enable-undo run-hooks Info-edit-mode-hook] 2 (#$ . 31523)]) #@94 Edit the contents of this Info node. Allowed only if variable `Info-enable-edit' is non-nil. (defalias 'Info-edit #[nil "„ÁÂ!ˆÃ ˆÄÅÆ!!‡" [Info-enable-edit error "Editing info nodes is not enabled" Info-edit-mode message substitute-command-keys "Editing: Type \\\\[Info-cease-edit] to return to info"] 3 (#$ . 31995) nil]) #@55 Finish editing Info node; switch back to Info proper. (defalias 'Info-cease-edit #[nil "À ƒÁÂ!ƒÃ ˆÄ !ˆÆÈ Ê ˆË\fÍ ˆÎ!…0À …0ÐÑ!‡" [buffer-modified-p y-or-n-p "Save the file? " save-buffer use-local-map Info-mode-map Info-mode major-mode "Info" mode-name Info-set-mode-line t buffer-read-only force-mode-line-update marker-position Info-tag-table-marker message "Tags may have changed. Use Info-tagify if necessary"] 2 (#$ . 32341) nil]) #@164 Return a list of locations documenting COMMAND in the Emacs Info manual. The locations are of the format used in Info-history, i.e. (FILENAME NODENAME BUFFERPOS). (defalias 'Info-find-emacs-command-nodes #[(command) "ÀÁ!ˆÂÃÄÅ!!ÇQ ŠÊËÌ\"ˆ A dbˆÎÂÏ#ƒ:Ñ”Ñ•{ÒE B ‚ +‡" [require info nil "^\\* " regexp-quote symbol-name command ":\\s *\$.*\$\\.$" cmd-desc where Info-find-node "emacs" "Command Index" Info-history re-search-backward t Info-current-file 1 0] 5 (#$ . 32796)]) #@130 Go to the Info node in the Emacs manual for command COMMAND. The command is found by looking up in Emacs manual's Command Index. (defalias 'Info-goto-emacs-command-node #[(command) "À !„ ÂÃÀ D\"ˆÄ !‰ƒ\\ GÇ‹ˆÈÉ!ˆÊ @@ @A@\"ˆËV…X A\f¤\fÍÎÏ!SÐVƒJÑ‚KÒÐVƒVÓ‚WÔ$)‚`ÕÖ \")‡" [commandp command signal wrong-type-argument Info-find-emacs-command-nodes where num-matches ((info)) pop-to-buffer "*info*" Info-find-node 1 Info-history message substitute-command-keys "Found %d other entr%s. Use \\[Info-last] to see %s." 2 "ies" "y" "them" "it" error "Couldn't find documentation for %s."] 7 (#$ . 33293) "CFind documentation for command: "]) #@223 Go to the Info node in the Emacs manual the command bound to KEY, a string. Interactively, if the binding is execute-extended-command, a command is read. The command is found by looking up in Emacs manual's Command Index. (defalias 'Info-goto-emacs-key-command-node #[(key) "À !‰„ÃÄÅ !\"‚&tƒ#\nÆ=ƒ#ÇÈÉ!!‚&Ç\n!)‡" [key-binding key command message "%s is undefined" key-description execute-extended-command Info-goto-emacs-command-node read-command "Find documentation for command: "] 5 (#$ . 33952) "kFind documentation for key:"]) (defalias 'Info-fontify-node #[nil "ŠÀebˆÂÃ!ƒ/Ä•bˆÂÅ!ƒ/Ä•bˆÆÇ”Ç•ÈÉ$ˆÆÇ”Ç•ÊË$ˆ‚ebˆÌÍÀÎ#ƒXÄ”SfÏU„2ÆÇ”Ç•ÈÉ$ˆÆÇ”Ç•ÊË$ˆ‚2ebˆÐÑÀÎ#ƒªÒÓ\"„ªd`ZWƒªÄÌ×ÀÎ#ƒ©T‰Ø>ƒ”ÆÄ”Ä”TÈÙ$ˆÆÇ”Ç•ÈÚ$ˆÆÇ”Ç•ÊË$ˆ‚w)ÛÀ!*‡" [nil buffer-read-only looking-at "^File: [^,: ]+,?[ ]+" 0 "[ ]*[^:, \n]+:[ ]+\$[^:, \n]+\$,?" put-text-property 1 face info-xref mouse-face highlight re-search-forward "\\*Note[ \n ]+\$[^:]*\$:" t 34 search-forward "\n* Menu:" string-match "\\" Info-current-node Info-fontify-maximum-menu-size n "^\\* \$[^: \n]*\$:" (5 9) info-menu-5 info-node set-buffer-modified-p] 6]) (provide (quote info))