Mercurial > hgrepos > hgweb.cgi > yatex

changeset 310:b16e6b1cf00b dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 wrap: on
line diff
--- 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

yatex.org