Mercurial > emacs
changeset 80867:1dc70f05e276
(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:05:33 +0000 |
| parents | bfd32b1a7afd |
| children | d972fbe6be98 |
| 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 Mon May 07 01:09:35 2007 +0000 +++ b/lisp/term/mac-win.el Mon May 07 08:05:33 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]