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

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ccf7ab71d0b..03d3b9cc0e9 100644
--- 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 1052708e15b..ef69ff23cb6 100644
--- 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,