;;; compiled by rms@mole.gnu.ai.mit.edu on Thu May 20 10:12:09 1993 ;;; from file /home/fsf/rms/e19/lisp/texinfo.el ;;; emacs version 19.6.7. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (defvar texinfo-chapter-level-regexp "chapter\\|unnumbered \\|appendix \\|majorheading\\|chapheading" "\ Regular expression matching just the Texinfo chapter level headings.") (byte-code "! E  # # # # # # # # #!N ####################@A#BC#DE#FG#HI#‡" [boundp texinfo-mode-syntax-table nil make-syntax-table modify-syntax-entry 34 " " 92 64 "\\" 17 91 "(]" 93 ")[" 123 "(}" 125 "){" 39 "w" texinfo-mode-map make-sparse-keymap define-key " " tex-kill-job " " tex-recenter-output-buffer "" tex-show-print-queue "" texinfo-tex-print "" texinfo-tex-buffer "" texinfo-tex-region " " texinfo-format-region " " texinfo-format-buffer " " texinfo-make-menu "" texinfo-update-node "" texinfo-every-node-update "" texinfo-all-menus-update "" texinfo-show-structure "}" up-list "{" texinfo-insert-braces "v" texinfo-insert-@var "s" texinfo-insert-@samp "o" texinfo-insert-@noindent "n" texinfo-insert-@node "k" texinfo-insert-@kbd "i" texinfo-insert-@item "x" texinfo-insert-@example "e" texinfo-insert-@end-example "d" texinfo-insert-@dfn "c" texinfo-insert-@code] 4) (defalias 'texinfo-insert-@var #[nil "c " ["@var{}" backward-char] 1 "\ Insert the string @var in a texinfo buffer." nil]) (defalias 'texinfo-insert-@samp #[nil "c " ["@samp{}" backward-char] 1 "\ Insert the string @samp in a texinfo buffer." nil]) (defalias 'texinfo-insert-@noindent #[nil "c" ["@noindent\n"] 1 "\ Insert the string @noindent in a texinfo buffer." nil]) (defalias 'texinfo-insert-@node #[nil "c!!" ["@node \n@comment node-name, next, previous, up" forward-line -1 forward-char 6] 2 "\ Insert the string @node in a texinfo buffer, along with a comment indicating the arguments to @node." nil]) (defalias 'texinfo-insert-@kbd #[nil "c " ["@kbd{}" backward-char] 1 "\ Insert the string @kbd in a texinfo buffer." nil]) (defalias 'texinfo-insert-@item #[nil "c " ["@item" newline] 1 "\ Insert the string @item in a texinfo buffer." nil]) (defalias 'texinfo-insert-@example #[nil "c" ["@example\n"] 1 "\ Insert the string @example in a texinfo buffer." nil]) (defalias 'texinfo-insert-@end-example #[nil "c" ["@end example\n"] 1 "\ Insert the string @end example in a texinfo buffer." nil]) (defalias 'texinfo-insert-@dfn #[nil "c " ["@dfn{}" backward-char] 1 "\ Insert the string @dfn in a texinfo buffer." nil]) (defalias 'texinfo-insert-@code #[nil "c " ["@code{}" backward-char] 1 "\ Insert the string @code in a texinfo buffer." nil]) (defalias 'texinfo-insert-braces #[nil "c " ["{}" backward-char] 1 "\ Make a pair of braces and be poised to type inside of them. Use \\[up-list] to move forward out of the braces." nil]) (defalias 'texinfo-mode #[nil " !!!\n!  !P!P!!!!!!!\"" [text-mode "Texinfo" mode-name texinfo-mode major-mode use-local-map texinfo-mode-map set-syntax-table texinfo-mode-syntax-table make-local-variable require-final-newline t page-delimiter texinfo-chapter-level-regexp paragraph-separate "^\\|^@[a-zA-Z]*[ \n]\\|" paragraph-start fill-column 72 comment-start "@c " comment-start-skip "@c +" words-include-escapes tex-start-of-header "%**start of header" tex-end-of-header "%**end of header" tex-trailer "@bye\n" run-hooks text-mode-hook texinfo-mode-hook] 3 "\ Major mode for editing Texinfo files. It has these extra commands: \\{texinfo-mode-map} These are files that are used as input for TeX to make printed manuals and also to be turned into Info files by \\[texinfo-format-buffer] or `makeinfo'. These files must be written in a very restricted and modified version of TeX input format. Editing commands are like text-mode except that the syntax table is set up so expression commands skip Texinfo bracket groups. To see what the Info version of a region of the Texinfo file will look like, use \\[texinfo-format-region]. This command runs Info on the current region of the Texinfo file and formats it properly. You can show the structure of a Texinfo file with \\[texinfo-show-structure]. This command shows the structure of a Texinfo file by listing the lines with the @-sign commands for @chapter, @section, and the like. These lines are displayed in another window called the *Occur* window. In that window, you can position the cursor over one of the lines and use \\[occur-mode-goto-occurrence], to jump to the corresponding spot in the Texinfo file. In addition, Texinfo mode provides commands that insert various frequently used @-sign commands into the buffer. You can use these commands to save keystrokes. And you can insert balanced braces with \\[texinfo-insert-braces] and later use the command \\[up-list] to move forward past the closing brace. Also, Texinfo mode provides functions for automatically creating or updating menus and node pointers. These functions * insert the `Next', `Previous' and `Up' pointers of a node, * insert or update the menu for a section, and * create a master menu for a Texinfo source file. Here are the functions: texinfo-update-node \\[texinfo-update-node] texinfo-every-node-update \\[texinfo-every-node-update] texinfo-sequential-node-update texinfo-make-menu \\[texinfo-make-menu] texinfo-all-menus-update \\[texinfo-all-menus-update] texinfo-master-menu texinfo-indent-menu-description (column &optional region-p) The `texinfo-column-for-description' variable specifies the column to which menu descriptions are indented. Passed an argument (a prefix argument, if interactive), the `texinfo-update-node' and `texinfo-make-menu' functions do their jobs in the region. To use the updating commands, you must structure your Texinfo file hierarchically, such that each `@node' line, with the exception of the Top node, is accompanied by some kind of section line, such as an `@chapter' or `@section' line. If the file has a `top' node, it must be called `top' or `Top' and be the first node in the file. Entering Texinfo mode calls the value of text-mode-hook, and then the value of texinfo-mode-hook." nil]) (defvar texinfo-section-types-regexp "^@\\(chapter \\|sect\\|sub\\|unnum\\|major\\|heading \\|appendix\\)" "\ Regexp matching chapter, section, other headings (but not the top node).") (defalias 'texinfo-show-structure #[(&optional nodes-too) "eb P! !)!eb!" [nodes-too occur "\\(^@node\\)\\|" texinfo-section-types-regexp pop-to-buffer "*Occur*" flush-lines "-----"] 3 "\ Show the structure of a Texinfo file. List the lines in the file that begin with the @-sign commands for @chapter, @section, and the like. With optional argument (prefix if interactive), list both the lines with @-sign commands for @chapter, @section, and the like, and list @node lines. Lines with structuring commands beginning in them are displayed in another window called the *Occur* window. In that window, you can position the cursor over one of the lines and use \\[occur-mode-goto-occurrence], to jump to the corresponding spot in the Texinfo file." "P"]) (defvar texinfo-tex-command "texi2dvi" "\ *Command used by texinfo-tex-region to run tex on a region.") (defalias 'texinfo-tex-region #[(beg end) "!!  !P!!! eb!`eeeb` `)ۉ%!`Wh`#!`\"#!`e^%]#%,$%q !%%!\"ed%+\",R\".R\"+!" [require tex-mode get-buffer "*tex-shell*" tex-kill-job tex-start-shell tex-zap-file make-temp-name "#tz" ".tex" get-buffer-create " tex-Output-Buffer" file-name-as-directory expand-file-name tex-directory zap-directory temp-buffer tex-out-file widen forward-line 100 default-directory hend hbeg search-end write-region end-of-line nil 1 beg search-forward tex-start-of-header t 0 tex-end-of-header end tex-trailer local-tex-trailer erase-buffer insert-string "\n" tex-set-buffer-directory send-string "tex-shell" tex-shell-cd-command " " texinfo-tex-command tex-recenter-output-buffer] 6 "\ Run tex on the current region. A temporary file (`tex-zap-file') is written in directory `tex-directory', and tex is run in that directory. The first line of the file is copied to the temporary file; and if the buffer has a header, it is written to the temporary file before the region itself. The buffer's header is all lines between the strings defined by `tex-start-of-header' and `tex-end-of-header' inclusive. The header must start in the first 100 lines. The value of tex-trailer is appended to the temporary file after the region." "r"]) (defalias 'texinfo-tex-buffer #[nil "ed\"" [texinfo-tex-region] 3 "\ Run tex on current buffer. See \\[texinfo-tex-region] for more information." nil]) (defalias 'texinfo-tex-print #[nil "! %\"!" [require tex-mode send-string "tex-shell" concat tex-dvi-print-command " " tex-zap-file ".dvi" "\n" tex-recenter-output-buffer nil] 8 "\ Print .dvi file made by \\[texinfo-tex-region] or \\[texinfo-tex-buffer]. Runs the shell command defined by `tex-dvi-print-command'." nil]) (provide (quote texinfo))