diff lisp/isearch.el @ 5149:c4c063887b13

(isearch-other-meta-char): Correct the test for a split-up mode line or scroll bar mouse event.
author Richard M. Stallman <rms@gnu.org>
date Wed, 24 Nov 1993 01:22:40 +0000
parents 8ddcaee25a73
children 9c64f67c4683
line wrap: on
line diff
--- 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 <liberte@cs.uiuc.edu>
 
-;; |$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,