Mercurial > hgrepos > hgweb.cgi > yatex

changeset 293:f5151d4240a9 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix for going away of last-input-char
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 26 Feb 2013 11:02:23 +0900
parents e1c1616c4f07
children 8d3156073892
files yatexlib.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)))

yatex.org