diff options
| author | Richard M. Stallman <[email protected]> | 1993-11-24 01:22:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1993-11-24 01:22:40 +0000 |
| commit | 4b43d418f3cd39f662b907f166eed41639ac3226 (patch) | |
| tree | 5ed654178232790d7b3a1215d1e008e3d8965b14 /lisp | |
| parent | ec9d0f508c29c7771a963a79b93a7a0cbc9d22c1 (diff) | |
(isearch-other-meta-char): Correct the test for a split-up
mode line or scroll bar mouse event.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/isearch.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 4330848b6b..c7e84b7f9b 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <[email protected]> -;; |$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, |