1.1 --- a/yatexlib.el	Sat Jan 28 11:16:11 2012 +0900
     1.2 +++ b/yatexlib.el	Sun Jan 29 16:09:22 2012 +0900
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX and yahtml common libraries, general functions and definitions
     1.5  ;;; yatexlib.el
     1.6  ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Sat Jan 28 11:02:48 2012 on firestorm
     1.8 +;;; Last modified Sun Jan 29 13:17:21 2012 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;; General variables
    1.12 @@ -753,10 +753,11 @@
    1.13     (t (read-string prompt init))))
    1.14  
    1.15  (defvar YaTeX-skip-next-reader-char ?\C-j)
    1.16 -(defun YaTeX-skip-next-reader-p ()
    1.17 -  "Check if the next string-reader should be skip."
    1.18 +(defun YaTeX-read-string-or-skip (&rest args)
    1.19 +  "Read string, or skip if last input char is \C-j."
    1.20    (if (equal last-input-char YaTeX-skip-next-reader-char)
    1.21 -      "" nil))
    1.22 +      ""
    1.23 +    (apply 'read-string args)))
    1.24  
    1.25  ;;;###autoload
    1.26  (fset 'YaTeX-rassoc