From 5f7480417eb580db5635ea95bf970d4f86f5106a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 8 May 1997 14:51:57 +0000 Subject: [PATCH] (iso-accents-compose): Handle case where unread-command-events is already nonempty. --- lisp/international/iso-acc.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/international/iso-acc.el b/lisp/international/iso-acc.el index 9f3fa7a53e6..6d484b39c20 100644 --- a/lisp/international/iso-acc.el +++ b/lisp/international/iso-acc.el @@ -265,13 +265,14 @@ the language you choose).") ;; 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"))))) -- 2.39.5