mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

(mac-ts-unicode-for-key-event): Check if text is available.

Browse Source
This commit is contained in:
YAMAMOTO Mitsuharu 2007-05-07 08:06:55 +00:00
parent 205f01b404
commit b70b6847b7
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

3
lisp/term/mac-win.el
View File

@ -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]