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

diff -r bfd32b1a7afd -r 1dc70f05e276 lisp/term/mac-win.el
--- 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]