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) |