(iso-accents-compose): Push SECOND-CHAR

as is on unread-command-events instead of `(SECOND-CHAR)'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90e67f0e4a5747803b77440962c794aa861cd97a..334b2688224ae1384c1617c88b02b6474470b80b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-10-29  Gerd Moellmann  <gerd@gnu.org>
 
+       * international/iso-acc.el (iso-accents-compose): Push SECOND-CHAR
+       as is on unread-command-events instead of `(SECOND-CHAR)'.
+
        * enriched.el (enriched-face-ans): Handle face attributes
        of the form `(FACE1 FACE2 ...)'.
 

diff --git a/lisp/international/iso-acc.el b/lisp/international/iso-acc.el
index b265b5815e7fc1007a2de5dd96a4bd3e91ffbcd3..220a6b604f354a45e003b4e52f38562450903074 100644 (file)
--- a/lisp/international/iso-acc.el
+++ b/lisp/international/iso-acc.el
@@ -1,6 +1,6 @@
 ;;; iso-acc.el --- minor mode providing electric accent keys
 
-;; Copyright (C) 1993, 1994, 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1996, 2001 Free Software Foundation, Inc.
 
 ;; Author: Johan Vromans
 ;; Maintainer: FSF
@@ -319,7 +319,7 @@ the language you choose)."
           entry))
       ;; Otherwise, advance and schedule the second key for execution.
       (setq unread-command-events
-           (cons (list second-char) unread-command-events))
+           (push second-char unread-command-events))
       (vector first-char))))
 
 ;; It is a matter of taste if you want the minor mode indicated