# HG changeset patch # User Richard M. Stallman # Date 754104160 0 # Node ID c4c063887b1357559b74aa5b6454aaac0c43ff96 # Parent c3594b90f0ab9467df0d9d136479136c179bd672 (isearch-other-meta-char): Correct the test for a split-up mode line or scroll bar mouse event. diff -r c3594b90f0ab -r c4c063887b13 lisp/isearch.el --- a/lisp/isearch.el Wed Nov 24 01:03:12 1993 +0000 +++ b/lisp/isearch.el Wed Nov 24 01:22:40 1993 +0000 @@ -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 (> (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,