Mercurial > emacs

changeset 17782:4522860df0cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iso-accents-compose): Return composed character directly for execution.
author Richard M. Stallman <rms@gnu.org>
date Mon, 12 May 1997 23:18:58 +0000
parents 1da61113c0c9
children 1a6cc382caff
files lisp/international/iso-acc.el
diffstat 1 files changed, 5 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/iso-acc.el	Mon May 12 23:18:40 1997 +0000
+++ b/lisp/international/iso-acc.el	Mon May 12 23:18:58 1997 +0000
@@ -275,13 +275,11 @@
 	 (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))