Commit 267d5b95 authored by Richard M. Stallman's avatar Richard M. Stallman

(iso-accents-compose): Return composed character directly for execution.

parent 280e8e04
......@@ -275,13 +275,11 @@ the language you choose).")
(entry (cdr (assq second-char list))))
(if entry
;; Found it: return the mapped char
(if (and enable-multibyte-characters
(>= entry ?\200))
(let ((char (+ iso-accents-insert-offset entry)))
(setq unread-command-events
(cons (list char) unread-command-events))
(vector ?\C-q))
(vector entry))
(vector
(if (and enable-multibyte-characters
(>= entry ?\200))
(+ iso-accents-insert-offset entry)
entry))
;; Otherwise, advance and schedule the second key for execution.
(setq unread-command-events
(cons (list second-char) unread-command-events))
......
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