1.1 --- a/yatexlib.el	Sun Jan 27 23:34:29 2013 +0900
     1.2 +++ b/yatexlib.el	Tue Feb 26 11:02:23 2013 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexlib.el --- YaTeX and yahtml common libraries
     1.5  ;;; 
     1.6  ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Sun Jan 27 20:09:01 2013 on firestorm
     1.8 +;;; Last modified Tue Feb 26 10:59:56 2013 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Code:
    1.12 @@ -755,13 +755,15 @@
    1.13  (defvar YaTeX-skip-next-reader-char ?\C-j)
    1.14  (defun YaTeX-read-string-or-skip (&rest args)
    1.15    "Read string, or skip if last input char is \C-j."
    1.16 -  (if (equal last-input-char YaTeX-skip-next-reader-char)
    1.17 +  (if (equal (if (boundp 'last-input-event) last-input-event last-input-char)
    1.18 +	     YaTeX-skip-next-reader-char)
    1.19        ""
    1.20      (apply 'read-string args)))
    1.21  
    1.22  (defun YaTeX-completing-read-or-skip (&rest args)
    1.23    "Do completing-read, or skip if last input char is \C-j."
    1.24 -  (if (equal last-input-char YaTeX-skip-next-reader-char)
    1.25 +  (if (equal (if (boundp 'last-input-event) last-input-event last-input-char)
    1.26 +	     YaTeX-skip-next-reader-char)
    1.27        ""
    1.28      (apply 'completing-read args)))
    1.29