# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1178525190 0
# Node ID 5e0f43a8e936da0346d56a07f0f53c23d1c39caa
# Parent  2256012fcd2a74db1ae4b2c3fae333c6add955c3
(mac-ts-unicode-for-key-event): Check if text is available.

diff -r 2256012fcd2a -r 5e0f43a8e936 lisp/term/mac-win.el
--- 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]