Mercurial > hgrepos > hgweb.cgi > yatex

comparison yahtml.el @ 135:5c61fe39f1c4 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Suppress insertion of superfluous newline at duplication of previous <tr>.
author yuuji@gentei.org
date Sat, 19 Jun 2010 07:44:10 +0900
parents 4f89dd9d83f2
children ab0c019da44d
comparison
equal deleted inserted replaced
134:94a1370956a4 135:5c61fe39f1c4
1 ;;; -*- Emacs-Lisp -*- 1 ;;; -*- Emacs-Lisp -*-
2 ;;; (c) 1994-2010 by HIROSE Yuuji [yuuji(@)yatex.org] 2 ;;; (c) 1994-2010 by HIROSE Yuuji [yuuji(@)yatex.org]
3 ;;; Last modified Fri Feb 12 21:30:03 2010 on firestorm 3 ;;; Last modified Sat Jun 19 07:40:38 2010 on firestorm
4 ;;; $Id$ 4 ;;; $Id$
5 5
6 (defconst yahtml-revision-number "1.74.2" 6 (defconst yahtml-revision-number "1.74.2"
7 "Revision number of running yahtml.el") 7 "Revision number of running yahtml.el")
8 8
2683 cols (if YaTeX-japan "新しいtr(N)? 前のtrの複写?(D)?: " 2683 cols (if YaTeX-japan "新しいtr(N)? 前のtrの複写?(D)?: "
2684 "New tr?(N) or Duplicate"))) 2684 "New tr?(N) or Duplicate")))
2685 (cond 2685 (cond
2686 ((and (> cols 0) 2686 ((and (> cols 0)
2687 (memq (read-char) '(?d ?D))) ;Duplication mode 2687 (memq (read-char) '(?d ?D))) ;Duplication mode
2688 (setq line (YaTeX-buffer-substring (point) cp))) 2688 (setq line (YaTeX-buffer-substring (point) (1- cp))))
2689 (t ;empty cells 2689 (t ;empty cells
2690 (setq line "<tr>" i 0) 2690 (setq line "<tr>" i 0)
2691 (if (> cols 0) 2691 (if (> cols 0)
2692 (while (> cols i) 2692 (while (> cols i)
2693 (setq line (concat line (if (and (= i 0) th) "<th></th>" 2693 (setq line (concat line (if (and (= i 0) th) "<th></th>"

yatex.org