From 267d5b952ca4c1de0e107d73fb5dc78b32628988 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 12 May 1997 23:18:58 +0000 Subject: [PATCH] (iso-accents-compose): Return composed character directly for execution. --- lisp/international/iso-acc.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/lisp/international/iso-acc.el b/lisp/international/iso-acc.el index 06c55c8c7a5..1a76be4f2ea 100644 --- a/lisp/international/iso-acc.el +++ b/lisp/international/iso-acc.el @@ -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)) -- 2.39.5