yatex

changeset 157:e3d7307f71e0 dev

find changesets by author, revision, files, or words in the commit message
yahtml-td-region(): `thd' means <th> for 1st column <td> for the rest.
author yuuji@gentei.org
date Thu, 09 Dec 2010 15:24:02 +0900
parents 9b5c19e860d8
children 2638644ff9a0
files yahtml.el
diffstat 1 files changed, 13 insertions(+), 5 deletions(-) [+]
line diff
     1.1 --- a/yahtml.el	Thu Dec 09 14:41:57 2010 +0900
     1.2 +++ b/yahtml.el	Thu Dec 09 15:24:02 2010 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; (c) 1994-2010 by HIROSE Yuuji [yuuji(@)yatex.org]
     1.6 -;;; Last modified Thu Dec  9 14:40:52 2010 on firestorm
     1.7 +;;; Last modified Thu Dec  9 15:16:06 2010 on firestorm
     1.8  ;;; $Id$
     1.9  
    1.10  (defconst yahtml-revision-number "1.74.2"
    1.11 @@ -2341,15 +2341,21 @@
    1.12    (let ((e (cond
    1.13  	    ((null e) "td")
    1.14  	    ((stringp e) e)
    1.15 -	    (t (read-string "Enclose with: " "td"))))
    1.16 -	p q (ws "[ \t]"))
    1.17 +	    (t (read-string "Enclose with(`thd' means th td td..): " "th"))))
    1.18 +	(ws "[ \t]")
    1.19 +	elm p i)
    1.20      (if (string= delim "") (setq delim " \t\n"))
    1.21 -    (setq delim (concat "[" delim "]+"))
    1.22 +    (setq delim (concat "[" delim "]+")
    1.23 +	  elm (if (string= "thd" e)
    1.24 +		  (cons "th" "td")
    1.25 +		(cons e e)))
    1.26      (save-excursion
    1.27        (save-restriction
    1.28  	(narrow-to-region beg end)
    1.29  	(goto-char (setq p (point-min)))
    1.30 +	(setq i 0 e (car elm))
    1.31  	(while (re-search-forward delim nil t)
    1.32 +	  (setq e (if (= (setq i (1+ i)) 1) (car elm) (cdr elm)))
    1.33  	  (goto-char (match-beginning 0))
    1.34  	  (insert "</" e ">")
    1.35  	  (save-excursion
    1.36 @@ -2366,7 +2372,9 @@
    1.37  (defun yahtml-tr-region (e delim beg end)
    1.38    "Enclose lines in a form tab-sv/csv with <tr><td>..</td></tr>."
    1.39    (interactive "P\nsDelimiter(s): \nr")
    1.40 -  (setq e (if (and e (listp e)) (read-string "Enclose with: " "th")))
    1.41 +  (setq e (if (and e (listp e))
    1.42 +	      (read-string "Enclose with(td or th, `thd' -> th td td td...: "
    1.43 +			   "th")))
    1.44    (save-excursion
    1.45      (save-restriction
    1.46        (narrow-to-region (point) (mark))