yatex
changeset 292:e1c1616c4f07 dev
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)