Mercurial > emacs
changeset 77659:5e0f43a8e936
(mac-ts-unicode-for-key-event): Check if text is available.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Mon, 07 May 2007 08:06:30 +0000 |
| parents | 2256012fcd2a |
| children | 7886ac713748 |
| files | lisp/term/mac-win.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/mac-win.el Sun May 06 18:10:44 2007 +0000 +++ b/lisp/term/mac-win.el Mon May 07 08:06:30 2007 +0000 @@ -2104,7 +2104,8 @@ (coding (or (cdr (assq (car script-language) mac-script-code-coding-systems)) 'mac-roman))) - (mac-unread-string (mac-utxt-to-string text coding)))) + (if text + (mac-unread-string (mac-utxt-to-string text coding))))) ;; kEventClassTextInput/kEventTextInputUpdateActiveInputArea (define-key mac-apple-event-map [text-input update-active-input-area]