Commit b8add347 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/subr.el (read-quoted-char): Fix up last change.

Fixes: debbugs:6290
parent fee69dc1
2010-06-17 Stefan Monnier <monnier@iro.umontreal.ca>
* subr.el (read-quoted-char): Fix up last change (bug#6290).
2010-06-16 Stefan Monnier <monnier@iro.umontreal.ca>
* font-lock.el (font-lock-major-mode): Rename from
......
......@@ -1873,12 +1873,11 @@ any other non-digit terminates the character code and is then used as input."))
;; Note: `read-char' does it using the `ascii-character' property.
;; We should try and use read-key instead.
(let ((translation (lookup-key local-function-key-map (vector char))))
(if (arrayp translation)
(setq translated (aref translation 0))))
(setq translated
(if (integerp char)
(char-resolve-modifiers char)
char))
(setq translated (if (arrayp translation)
(aref translation 0)
char)))
(if (integerp translated)
(setq translated (char-resolve-modifiers translated)))
(cond ((null translated))
((not (integerp translated))
(setq unread-command-events (list char)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment