usr/contrib/lib/emacs/lisp/texinfmt.elc


(defvar texinfo-format-syntax-table nil)

(defvar texinfo-vindex)

(defvar texinfo-findex)

(defvar texinfo-cindex)

(defvar texinfo-pindex)

(defvar texinfo-tindex)

(defvar texinfo-kindex)

(defvar texinfo-last-node)

(defvar texinfo-node-names)

(if texinfo-format-syntax-table nil (setq texinfo-format-syntax-table (make-syntax-table)) (modify-syntax-entry 34 " " texinfo-format-syntax-table) (modify-syntax-entry 92 " " texinfo-format-syntax-table) (modify-syntax-entry 64 "\\" texinfo-format-syntax-table) (modify-syntax-entry 17 "\\" texinfo-format-syntax-table) (modify-syntax-entry 91 "." texinfo-format-syntax-table) (modify-syntax-entry 93 "." texinfo-format-syntax-table) (modify-syntax-entry 40 "." texinfo-format-syntax-table) (modify-syntax-entry 41 "." texinfo-format-syntax-table) (modify-syntax-entry 123 "(}" texinfo-format-syntax-table) (modify-syntax-entry 125 "){" texinfo-format-syntax-table) (modify-syntax-entry 39 "." texinfo-format-syntax-table))

(defun texinfo-format-buffer (&optional notagify) "\
Process the current buffer as texinfo code, into an Info file.
The Info file output is generated in a buffer visiting the Info file
names specified in the @setfilename command.

Non-nil argument (prefix, if interactive) means don't make tag table
and don't split the file if large.  You can use Info-tagify and
Info-split to do these manually." (interactive "P") (byte-code "Â\88Ã\18Ä\b!\88Å \88      \83\13