]> git.eshelyaron.com Git - emacs.git/commitdiff
(iso-accents-compose):
authorRichard M. Stallman <rms@gnu.org>
Thu, 8 May 1997 14:51:57 +0000 (14:51 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 8 May 1997 14:51:57 +0000 (14:51 +0000)
Handle case where unread-command-events is already nonempty.

lisp/international/iso-acc.el

index 9f3fa7a53e6049154951474f2dfce1bd57f15258..6d484b39c20c84e7e0ea6e2a3d6cab8bb7d88a4b 100644 (file)
@@ -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")))))