yatex

diff yatexlib.el @ 340:3206061867ae

find changesets by author, revision, files, or words in the commit message
let* should be
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 18 Dec 2014 17:57:46 +0900
parents 8d3156073892
children 2a72779d9c50
line diff
     1.1 --- a/yatexlib.el	Mon Apr 01 22:47:31 2013 +0900
     1.2 +++ b/yatexlib.el	Thu Dec 18 17:57:46 2014 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexlib.el --- YaTeX and yahtml common libraries
     1.5  ;;; 
     1.6  ;;; (c)1994-2013 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Mon Apr  1 22:44:06 2013 on firestorm
     1.8 +;;; Last modified Fri Nov 22 07:53:13 2013 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Code:
    1.12 @@ -1464,9 +1464,10 @@
    1.13  		    (face-font 'bold)
    1.14  		    "giveup!"))
    1.15  	    sz medium-i bold-r)
    1.16 -	(string-match
    1.17 -	 "^-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*-\\(\\([0-9]+\\)\\)" df)
    1.18 -	(setq sz (or (match-string 1 df) "16"))
    1.19 +	(if (string-match
    1.20 +	     "^-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*-\\(\\([0-9]+\\)\\)" df)
    1.21 +	    (setq sz (or (match-string 1 df) "16"))
    1.22 +	  (setq sz "16"))
    1.23  	(setq medium-i (format "-medium-i-[^-]+--%s" sz)
    1.24  	      bold-r (format "-bold-r-[^-]+--%s" sz))
    1.25  	(while flist