Mercurial > hgrepos > hgweb.cgi > 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 wrap: on
line diff
--- a/yatexmth.el Tue Feb 12 18:24:19 2013 +0900 +++ b/yatexmth.el Fri Feb 15 13:36:41 2013 +0900 @@ -1,7 +1,7 @@ ;;; yatexmth.el --- YaTeX math-mode-specific functions ;;; ;;; (c)1993-2012 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Sun Jan 27 20:10:03 2013 on firestorm +;;; Last modified Fri Feb 15 13:34:41 2013 on firestorm ;;; $Id$ ;;; Commentary: @@ -688,7 +688,9 @@ 2)))) (let ((char (read-char))) (or (eq char exit-char) - (setq unread-command-char char)))) + (if (boundp 'unread-command-events) + (setq unread-command-events (list char)) + (setq unread-command-char char))))) (if insert-end (save-excursion (delete-region insert-start insert-end))) @@ -780,7 +782,9 @@ (cond ((memq result '(t select)) (if (eq result t) - (setq unread-command-char last-char) + (if (boundp 'unread-command-events) + (setq unread-command-events (list last-char)) + (setq unread-command-char last-char)) (message "Done.")) (if (assoc YaTeX-single-command section-table) (YaTeX-make-section nil nil nil YaTeX-single-command)
