yatex

changeset 293:f5151d4240a9 dev

find changesets by author, revision, files, or words in the commit message
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 diff
     1.1 --- a/yatexlib.el	Fri Feb 15 13:36:41 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