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