From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 12 May 1997 23:18:58 +0000 (+0000)
Subject: (iso-accents-compose): Return composed character directly for execution.
X-Git-Tag: emacs-20.1~2163
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=267d5b952ca4c1de0e107d73fb5dc78b32628988;p=emacs.git

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

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))