(isearch-other-meta-char): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ccf7ab71d0b09132dcaa8d829fae49977c285f59..03d3b9cc0e93b565f40fd06fc9fd5da6132c5d9b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-07-25  Gerd Moellmann  <gerd@gnu.org>
 
+       * isearch.el (isearch-other-meta-char): Fix last change.
+       
        * isearch.el (isearch-other-meta-char): Don't modify mode-line and
        similar events for which fake prefix keys are generated.  It's no
        longer necessary since read_key_sequence doesn't modify these

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 1052708e15b022e3c13cbfd69eedd1f1822560ae..ef69ff23cb6b6d5ffe0c17e384c72b2cd4913d75 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1240,7 +1240,8 @@ and the meta character is unread so that it applies to editing the string."
                        (listp (aref key 1))
                        (not (numberp (posn-point 
                                       (event-start (aref key 1))))))
-              (setq main-event (pop unread-command-events)))
+              (pop unread-command-events)
+              (setq main-event (car unread-command-events)))
 
             ;; If we got a mouse click, maybe it was read with the buffer
             ;; it was clicked on.  If so, that buffer, not the current one,