--- a/yatexlib.el	Sat Jan 28 22:32:30 2012 +0900
+++ b/yatexlib.el	Sun Jan 29 16:09:22 2012 +0900
@@ -2,7 +2,7 @@
 ;;; YaTeX and yahtml common libraries, general functions and definitions
 ;;; yatexlib.el
 ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Sat Jan 28 11:02:48 2012 on firestorm
+;;; Last modified Sun Jan 29 13:17:21 2012 on firestorm
 ;;; $Id$
 
 ;; General variables
@@ -753,10 +753,11 @@
    (t (read-string prompt init))))
 
 (defvar YaTeX-skip-next-reader-char ?\C-j)
-(defun YaTeX-skip-next-reader-p ()
-  "Check if the next string-reader should be skip."
+(defun YaTeX-read-string-or-skip (&rest args)
+  "Read string, or skip if last input char is \C-j."
   (if (equal last-input-char YaTeX-skip-next-reader-char)
-      "" nil))
+      ""
+    (apply 'read-string args)))
 
 ;;;###autoload
 (fset 'YaTeX-rassoc