From 4b43d418f3cd39f662b907f166eed41639ac3226 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 24 Nov 1993 01:22:40 +0000 Subject: [PATCH] (isearch-other-meta-char): Correct the test for a split-up mode line or scroll bar mouse event. --- lisp/isearch.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 4330848b6bd..c7e84b7f9b0 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte -;; |$Date: 1993/10/09 20:03:33 $|$Revision: 1.51 $ +;; |$Date: 1993/10/24 04:05:22 $|$Revision: 1.52 $ ;; This file is part of GNU Emacs. @@ -1001,7 +1001,9 @@ and the meta character is unread so that it applies to editing the string." (and (> (length key) 1) (symbolp (aref key 0)) (listp (aref key 1)) - (consp (posn-point (event-start (aref key 1)))) + ;; These events now have a symbol; they used to have a list. + ;; Accept either one. Other events have a number here. + (not (numberp (posn-point (event-start (aref key 1))))) (setq index 1)) ;; 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, -- 2.39.5