diff options
| author | Robert J. Chassell <bob@rattlesnake.com> | 2006-07-07 16:36:29 +0000 |
|---|---|---|
| committer | Robert J. Chassell <bob@rattlesnake.com> | 2006-07-07 16:36:29 +0000 |
| commit | 1a3e2c5912f4affb4d4ec10ef37a5d0473ec181e (patch) | |
| tree | 93a2479139ad4f09de059e1eed3879b22e562538 /lisp/textmodes/texinfmt.el | |
| parent | e0b4be6cc0e9ca0ff1e5fe8c8e3c042cccdc76e7 (diff) | |
| download | emacs-1a3e2c5912f4affb4d4ec10ef37a5d0473ec181e.tar.gz | |
* textmodes/texinfmt.el (texinfo-format-separate-node):
Insert a string before point, which fits documentation, not after.
(texinfo-multitable-item): In a multitable row, insert any
additional needed @tabs and spaces.
Diffstat (limited to 'lisp/textmodes/texinfmt.el')
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 8794ebddc15..95c1cba3b7e 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -1555,7 +1555,9 @@ The node is constructed automatically." " Node: " node-name "-Footnotes, Up: " node-name "\n") (setq start (point)) (insert (format "\n(%d) %s\n" texinfo-footnote-number arg)) - (fill-region start (point)))))) + (narrow-to-region (save-excursion (goto-char start) (point)) (point)) + (fill-region (point-min) (point-max)) + (widen))))) (defun texinfo-format-end-node () "Format footnote in the End of node style, with notes at end of node." @@ -2118,11 +2120,18 @@ This command is executed when texinfmt sees @item inside @multitable." (insert unformated-row) (goto-char (point-min)) ;; 1. Check for correct number of @tab in line. - (let ((tab-number 1)) ; one @tab between two columns + (let ((tab-number 1)) ; one @tab between two columns (while (search-forward "@tab" nil t) (setq tab-number (1+ tab-number))) - (if (/= tab-number (length table-widths)) - (error "Wrong number of @tab's in a @multitable row"))) + (let ((needed-tabs (- (length table-widths) tab-number))) + (when (> needed-tabs 0) + (goto-char (point-min)) + (end-of-line) + (while (> needed-tabs 0) + (insert "@w{ }\n@tab") + (setq needed-tabs (1- needed-tabs)) + (message + "Added @tabs and empty spaces to a @multitable row"))))) (goto-char (point-min)) ;; 2. Format each cell, and copy to a rectangle ;; buffer looks like this: A1 @tab A2 @tab A3 |