yatex

changeset 310:b16e6b1cf00b dev

find changesets by author, revision, files, or words in the commit message
Runtime error avoidance
author HIROSE Yuuji <yuuji@gentei.org>
date Sat, 23 Nov 2013 01:04:05 +0900
parents 774935c77366
children f1d2753cb4f1 f654ef888a4c
files yatexlib.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line diff
     1.1 --- a/yatexlib.el	Thu Nov 21 16:16:06 2013 +0900
     1.2 +++ b/yatexlib.el	Sat Nov 23 01:04:05 2013 +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