lisp/textmodes/texinfmt.el

71 (defvar texinfo-enclosure-list)
72 (defvar texinfo-alias-list)
226      (max region-beginning header-end)
270     (goto-char (point-max))
272         (delete-region (point) (point-max)))
276     ;; Don't use a previous value of texinfo-enclosure-list.
277     (setq texinfo-enclosure-list nil)
278     (setq texinfo-alias-list nil)
340     (copy-to-buffer temp-buffer (point-min) (point-max))
375     (setq texinfo-enclosure-list nil)
376     (setq texinfo-alias-list nil)
433     (goto-char (point-max))
435         (delete-region (point) (point-max)))
461     (list outfile
469 (defun texinfo-format-convert (min max)
472   (while (search-forward "``" max t)
475   (while (search-forward "''" max t)
479   (while (re-search-forward "\\( \\|\\w\\)\\(---\\)\\( \\|\\w\\)" max t)
603   (while (< (point) (point-max))
620                   (< (point) (point-max)))
630         (if  (or (>= (point) (point-max))
838   (texinfo-format-convert (point-min) (point-max))
912 		   (forward-list 1)
934               (while (setq trial (assoc cmdname texinfo-alias-list))
941               texinfo-enclosure-list)))
1014            (forward-list 1)
1033            (forward-list 1)
1053     (goto-char (point-max))))
1069            (forward-list 1)
1105        (save-excursion (up-list 1) (1- (point)))))
1145                (forward-list 1)
1198         (setq texinfo-node-names (cons (list tem) texinfo-node-names))))
1578       (fill-region (point-min) (point-max))
1611 ;; @item dispatches to the texinfo-item prop of the first elt of the list.
1625         (cons (list check arg texinfo-command-start)
1755                 "Too many items in enumerated list; alphabet ends at Z."))
1864           (list item texinfo-last-node)
1942 ;; The function returns a list of the widths of each column in a
2037   "Return list of widths of each column in a multi-column table."
2038   (let (texinfo-multitable-width-list)
2054         (setq texinfo-multitable-width-list
2059                texinfo-multitable-width-list))))
2070             (setq texinfo-multitable-width-list
2072                         texinfo-multitable-width-list))
2081             (goto-char (point-max))
2093             (length texinfo-multitable-width-list)
2097             (apply '+ texinfo-multitable-width-list))))
2103     texinfo-multitable-width-list))
2142     (delete-region (point-min) (point-max))
2181       (goto-char (point-max))
2189         (fill-region (point-min) (point-max)))
2191             (max table-entry-height (count-lines (point-min) (point-max))))
2211       (goto-char (point-max))
2450     (setq texinfo-enclosure-list
2452          (list command-name
2453                (list
2456          texinfo-enclosure-list))))
2470       (setq texinfo-alias-list
2475 	     texinfo-alias-list))
2848 ;;; preceded by @noindent or are part of a table, list, or deffn.
2871     ;; Do not indent if an entry in a list, table, or deffn,
2882      ;; do no indenting in list, etc.
2948          (cons (list arg
2993           (list 'lambda 'nil
2994                 (list 'texinfo-index
2995                       (list 'quote index-alist-name))))))
3709   ;; `index-list' will be texinfo-findex or the like
3710   (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
3711     (set index-list
3714           (list
3721           (symbol-value index-list)))))
3735   ;; `index-list' will be texinfo-findex or the like
3736   (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
3737     (set index-list
3740           (list
3747           (symbol-value index-list)))))
3755   ;; `index-list' will be texinfo-findex or the like
3756   (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
3757     (set index-list
3760           (list
3767           (symbol-value index-list)))))
3773   ;; `index-list' will be texinfo-findex or the like
3774   (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
3775     (set index-list
3778           (list
3787           (symbol-value index-list)))))
3793   ;; `index-list' will be texinfo-findex or the like
3794   (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
3795     (set index-list
3798           (list
3807           (symbol-value index-list)))))
3813   ;; `index-list' will be texinfo-findex or the like
3814   (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
3815     (set index-list
3818           (list
3827           (symbol-value index-list)))))
3833   ;; `index-list' will be texinfo-findex or the like
3834   (let ((index-list (get texinfo-command-name 'texinfo-defun-index)))
3835     (set index-list
3838           (list
3847           (symbol-value index-list)))))
4227 ;;  (set indexvar (cons (list 'recurse file content)
4244 ;;         (texinfo-format-convert (point-min) (point-max))))
4264 (put 'math 'texinfo-format 'texinfo-format-noop)
4275   (forward-list 1)
4402 							 (point-max))))