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