Mercurial > emacs
comparison lisp/isearch.el @ 38778:cdd382cc0e92
(isearch-other-meta-char): Don't switch to the
buffer of a window clicked on, when the current buffer is
in Isearch mode.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 10 Aug 2001 12:47:39 +0000 |
parents | 35109e6bdb7d |
children | d177c68813c0 |
comparison
equal
deleted
inserted
replaced
38777:a83fdca83ae3 | 38778:cdd382cc0e92 |
---|---|
1241 (not (numberp (posn-point | 1241 (not (numberp (posn-point |
1242 (event-start (aref key 1)))))) | 1242 (event-start (aref key 1)))))) |
1243 (pop unread-command-events) | 1243 (pop unread-command-events) |
1244 (setq main-event (car unread-command-events))) | 1244 (setq main-event (car unread-command-events))) |
1245 | 1245 |
1246 ;; If we got a mouse click, maybe it was read with the buffer | 1246 ;; If we got a mouse click event, that event contains the |
1247 ;; window clicked on. maybe it was read with the buffer | |
1247 ;; it was clicked on. If so, that buffer, not the current one, | 1248 ;; it was clicked on. If so, that buffer, not the current one, |
1248 ;; is in isearch mode. So end the search in that buffer. | 1249 ;; is in isearch mode. So end the search in that buffer. |
1249 (if (and (listp main-event) | 1250 |
1251 ;; ??? I have no idea what this if checks for, but it's | |
1252 ;; obviously wrong for the case that a down-mouse event | |
1253 ;; on another window invokes this function. The event | |
1254 ;; will contain the window clicked on and that window's | |
1255 ;; buffer is certainaly not always in Isearch mode. | |
1256 ;; | |
1257 ;; Leave the code in, but check for current buffer not | |
1258 ;; being in Isearch mode for now, until someone tells | |
1259 ;; what it's really supposed to do. | |
1260 ;; | |
1261 ;; --gerd 2001-08-10. | |
1262 | |
1263 (if (and (not isearch-mode) | |
1264 (listp main-event) | |
1250 (setq window (posn-window (event-start main-event))) | 1265 (setq window (posn-window (event-start main-event))) |
1251 (windowp window) | 1266 (windowp window) |
1252 (or (> (minibuffer-depth) 0) | 1267 (or (> (minibuffer-depth) 0) |
1253 (not (window-minibuffer-p window)))) | 1268 (not (window-minibuffer-p window)))) |
1254 (save-excursion | 1269 (save-excursion |