diff options
| -rw-r--r-- | lisp/subr.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 679aeed876f..79de788c365 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -1693,7 +1693,10 @@ any other non-digit terminates the character code and is then used as input.")) | |||
| 1693 | ;; We could try and use read-key-sequence instead, but then C-q ESC | 1693 | ;; We could try and use read-key-sequence instead, but then C-q ESC |
| 1694 | ;; or C-q C-x might not return immediately since ESC or C-x might be | 1694 | ;; or C-q C-x might not return immediately since ESC or C-x might be |
| 1695 | ;; bound to some prefix in function-key-map or key-translation-map. | 1695 | ;; bound to some prefix in function-key-map or key-translation-map. |
| 1696 | (setq translated char) | 1696 | (setq translated |
| 1697 | (if (integerp char) | ||
| 1698 | (char-resolve-modifers char) | ||
| 1699 | char)) | ||
| 1697 | (let ((translation (lookup-key local-function-key-map (vector char)))) | 1700 | (let ((translation (lookup-key local-function-key-map (vector char)))) |
| 1698 | (if (arrayp translation) | 1701 | (if (arrayp translation) |
| 1699 | (setq translated (aref translation 0)))) | 1702 | (setq translated (aref translation 0)))) |