# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1361844143 -32400
# Node ID f5151d4240a9f800ddbc492384e0a48b24b3ba7e
# Parent  e1c1616c4f0757455be6a3dead0fb6cd933e3a10
Fix for going away of last-input-char

diff -r e1c1616c4f07 -r f5151d4240a9 yatexlib.el
--- a/yatexlib.el	Fri Feb 15 13:36:41 2013 +0900
+++ b/yatexlib.el	Tue Feb 26 11:02:23 2013 +0900
@@ -1,7 +1,7 @@
 ;;; yatexlib.el --- YaTeX and yahtml common libraries
 ;;; 
 ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Sun Jan 27 20:09:01 2013 on firestorm
+;;; Last modified Tue Feb 26 10:59:56 2013 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -755,13 +755,15 @@
 (defvar YaTeX-skip-next-reader-char ?\C-j)
 (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)
+  (if (equal (if (boundp 'last-input-event) last-input-event last-input-char)
+	     YaTeX-skip-next-reader-char)
       ""
     (apply 'read-string args)))
 
 (defun YaTeX-completing-read-or-skip (&rest args)
   "Do completing-read, or skip if last input char is \C-j."
-  (if (equal last-input-char YaTeX-skip-next-reader-char)
+  (if (equal (if (boundp 'last-input-event) last-input-event last-input-char)
+	     YaTeX-skip-next-reader-char)
       ""
     (apply 'completing-read args)))