yatex

changeset 292:e1c1616c4f07 dev

find changesets by author, revision, files, or words in the commit message
Use unread-command-events when bound.
author HIROSE Yuuji <yuuji@gentei.org>
date Fri, 15 Feb 2013 13:36:41 +0900
parents 027c4e8d98ce
children f5151d4240a9
files yatexmth.el
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
line diff
     1.1 --- a/yatexmth.el	Tue Feb 12 18:24:19 2013 +0900
     1.2 +++ b/yatexmth.el	Fri Feb 15 13:36:41 2013 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexmth.el --- YaTeX math-mode-specific functions
     1.5  ;;; 
     1.6  ;;; (c)1993-2012 by HIROSE Yuuji [yuuji@yatex.org]
     1.7 -;;; Last modified Sun Jan 27 20:10:03 2013 on firestorm
     1.8 +;;; Last modified Fri Feb 15 13:34:41 2013 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Commentary:
    1.12 @@ -688,7 +688,9 @@
    1.13  				    2))))
    1.14  	      (let ((char (read-char)))
    1.15  		(or (eq char exit-char)
    1.16 -		    (setq unread-command-char char))))
    1.17 +		    (if (boundp 'unread-command-events)
    1.18 +			(setq unread-command-events (list char))
    1.19 +		      (setq unread-command-char char)))))
    1.20  	  (if insert-end
    1.21  	      (save-excursion
    1.22  		(delete-region insert-start insert-end)))
    1.23 @@ -780,7 +782,9 @@
    1.24      (cond
    1.25       ((memq result '(t select))
    1.26        (if (eq result t)
    1.27 -	  (setq unread-command-char last-char)
    1.28 +	  (if (boundp 'unread-command-events)
    1.29 +	      (setq unread-command-events (list last-char))
    1.30 +	    (setq unread-command-char last-char))
    1.31  	(message "Done."))
    1.32        (if (assoc YaTeX-single-command section-table)
    1.33  	  (YaTeX-make-section nil nil nil YaTeX-single-command)