[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/texinfmt.el,v
From: |
Robert J. Chassell |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/texinfmt.el,v |
Date: |
Fri, 07 Jul 2006 16:36:29 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Robert J. Chassell <bob> 06/07/07 16:36:29
Index: texinfmt.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/texinfmt.el,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -b -r1.82 -r1.83
--- texinfmt.el 6 Feb 2006 12:12:27 -0000 1.82
+++ texinfmt.el 7 Jul 2006 16:36:29 -0000 1.83
@@ -1555,7 +1555,9 @@
" 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."
@@ -2121,8 +2123,15 @@
(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{ address@hidden")
+ (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
- [Emacs-diffs] Changes to emacs/lisp/textmodes/texinfmt.el,v,
Robert J. Chassell <=