Mercurial > hgrepos > hgweb.cgi > yatex
changeset 310:b16e6b1cf00b dev
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