# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 863103117 0
# Node ID 1240e27fbb135d6800ec88bb7da0c9e52ac5ab0f
# Parent  d28dbbfabfb1bd75d311e9455fe894a90d222a04
(iso-accents-compose):
Handle case where unread-command-events is already nonempty.

diff -r d28dbbfabfb1 -r 1240e27fbb13 lisp/international/iso-acc.el
--- a/lisp/international/iso-acc.el	Thu May 08 06:02:42 1997 +0000
+++ b/lisp/international/iso-acc.el	Thu May 08 14:51:57 1997 +0000
@@ -265,13 +265,14 @@
 	;; Found it: return the mapped char
 	(vector entry)
       ;; Otherwise, advance and schedule the second key for execution.
-      (setq unread-command-events (list second-char))
+      (setq unread-command-events
+	    (cons (list second-char) unread-command-events))
       (vector first-char))))
 
 ;; It is a matter of taste if you want the minor mode indicated
 ;; in the mode line...
 ;; If so, uncomment the next four lines.
-;; (or (assq 'iso-accents-mode minor-mode-map-alist)
+;; (or (assq 'iso-accents-mode minor-mode-alist)
 ;;     (setq minor-mode-alist
 ;; 	  (append minor-mode-alist
 ;; 		  '((iso-accents-mode " ISO-Acc")))))