Mercurial > emacs
comparison lisp/textmodes/texinfmt.el @ 90650:02cf29720f31
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 490-504)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 161-163)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-130
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 07 Nov 2006 23:22:48 +0000 |
| parents | 8a8e69664178 581994501499 |
| children | 95d0cdf160ea |
comparison
equal
deleted
inserted
replaced
| 90649:d53934e7ddef | 90650:02cf29720f31 |
|---|---|
| 2123 (let ((tab-number 1)) ; one @tab between two columns | 2123 (let ((tab-number 1)) ; one @tab between two columns |
| 2124 (while (search-forward "@tab" nil t) | 2124 (while (search-forward "@tab" nil t) |
| 2125 (setq tab-number (1+ tab-number))) | 2125 (setq tab-number (1+ tab-number))) |
| 2126 (let ((needed-tabs (- (length table-widths) tab-number))) | 2126 (let ((needed-tabs (- (length table-widths) tab-number))) |
| 2127 (when (> needed-tabs 0) | 2127 (when (> needed-tabs 0) |
| 2128 (goto-char (point-min)) | 2128 (goto-char (point-min)) |
| 2129 (end-of-line) | 2129 (end-of-line) |
| 2130 (while (> needed-tabs 0) | 2130 (while (> needed-tabs 0) |
| 2131 (insert "@w{ }\n@tab") | 2131 (insert "@w{ }\n@tab") |
| 2132 (setq needed-tabs (1- needed-tabs)) | 2132 (setq needed-tabs (1- needed-tabs)) |
| 2133 (message | 2133 (message |
| 4290 | 4290 |
| 4291 ;;; Batch formatting | 4291 ;;; Batch formatting |
| 4292 | 4292 |
| 4293 (defun batch-texinfo-format () | 4293 (defun batch-texinfo-format () |
| 4294 "Runs texinfo-format-buffer on the files remaining on the command line. | 4294 "Runs texinfo-format-buffer on the files remaining on the command line. |
| 4295 Must be used only with -batch, and kills emacs on completion. | 4295 Must be used only with -batch, and kills Emacs on completion. |
| 4296 Each file will be processed even if an error occurred previously. | 4296 Each file will be processed even if an error occurred previously. |
| 4297 For example, invoke | 4297 For example, invoke |
| 4298 \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." | 4298 \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." |
| 4299 (if (not noninteractive) | 4299 (if (not noninteractive) |
| 4300 (error "batch-texinfo-format may only be used -batch")) | 4300 (error "batch-texinfo-format may only be used -batch")) |