# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1385136245 -32400
# Node ID b16e6b1cf00bb0a052178bb6676bc60a728ced7d
# Parent  774935c773664025d2c6f8c9bd6eab868d80f10f
Runtime error avoidance

diff -r 774935c77366 -r b16e6b1cf00b yatexlib.el
--- a/yatexlib.el	Thu Nov 21 16:16:06 2013 +0900
+++ b/yatexlib.el	Sat Nov 23 01:04:05 2013 +0900
@@ -1,7 +1,7 @@
 ;;; yatexlib.el --- YaTeX and yahtml common libraries
 ;;; 
 ;;; (c)1994-2013 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Mon Apr  1 22:44:06 2013 on firestorm
+;;; Last modified Fri Nov 22 07:53:13 2013 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -1464,9 +1464,10 @@
 		    (face-font 'bold)
 		    "giveup!"))
 	    sz medium-i bold-r)
-	(string-match
-	 "^-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*-\\(\\([0-9]+\\)\\)" df)
-	(setq sz (or (match-string 1 df) "16"))
+	(if (string-match
+	     "^-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*-\\(\\([0-9]+\\)\\)" df)
+	    (setq sz (or (match-string 1 df) "16"))
+	  (setq sz "16"))
 	(setq medium-i (format "-medium-i-[^-]+--%s" sz)
 	      bold-r (format "-bold-r-[^-]+--%s" sz))
 	(while flist