Mercurial > emacs
comparison lisp/term/mac-win.el @ 91441:6cdf5d4140a1
(mac-keyboard-translate-char): Use characterp rather than char-valid-p.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 02 Feb 2008 04:29:18 +0000 |
parents | 606f2d163a64 |
children | 4bd7a871cf03 |
comparison
equal
deleted
inserted
replaced
91440:43e659e97106 | 91441:6cdf5d4140a1 |
---|---|
2075 (if (get-text-property 0 'untranslated-utf-8 str) to-string str)) | 2075 (if (get-text-property 0 'untranslated-utf-8 str) to-string str)) |
2076 (mac-split-string-by-property-change string) | 2076 (mac-split-string-by-property-change string) |
2077 "")) | 2077 "")) |
2078 | 2078 |
2079 (defun mac-keyboard-translate-char (ch) | 2079 (defun mac-keyboard-translate-char (ch) |
2080 (if (and (char-valid-p ch) | 2080 (if (and (characterp ch) |
2081 (or (char-table-p keyboard-translate-table) | 2081 (or (char-table-p keyboard-translate-table) |
2082 (and (or (stringp keyboard-translate-table) | 2082 (and (or (stringp keyboard-translate-table) |
2083 (vectorp keyboard-translate-table)) | 2083 (vectorp keyboard-translate-table)) |
2084 (> (length keyboard-translate-table) ch)))) | 2084 (> (length keyboard-translate-table) ch)))) |
2085 (or (aref keyboard-translate-table ch) ch) | 2085 (or (aref keyboard-translate-table ch) ch) |