diff options
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2007-05-07 08:05:55 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2007-05-07 08:05:55 +0000 |
| commit | 59c58feafb764126fa08e1a3560cb158817f556e (patch) | |
| tree | ff43d188a2ff0a162cfd40a27775af09bdf506d5 | |
| parent | 589e28cdeb6ed3759c13ceab8412ff9a3ac2f809 (diff) | |
| download | emacs-59c58feafb764126fa08e1a3560cb158817f556e.tar.gz | |
(mac-ts-unicode-for-key-event): Check if text is available.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/term/mac-win.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 363d2510ded..afba0b285ec 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-05-07 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> + + * term/mac-win.el (mac-ts-unicode-for-key-event): Check if text is + available. + 2007-05-06 Richard Stallman <rms@gnu.org> * emacs-lisp/eldoc.el (turn-on-eldoc-mode): Doc fix. diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 51274e6f5be..6370b40d367 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -2104,7 +2104,8 @@ either in the current buffer or in the echo area." (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] |