diff options
| author | Gerd Moellmann | 2001-08-10 12:48:02 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-08-10 12:48:02 +0000 |
| commit | 346f18dcd4bedfc99ca46573df6f57cb01d6dfd7 (patch) | |
| tree | 340af0dedd01d3706d55cec2fddd6177979f8150 /lisp/isearch.el | |
| parent | 4a9bf8a43f4d5589318785c4f3b0f0cdd9f43f1b (diff) | |
| download | emacs-346f18dcd4bedfc99ca46573df6f57cb01d6dfd7.tar.gz emacs-346f18dcd4bedfc99ca46573df6f57cb01d6dfd7.zip | |
(isearch-other-meta-char): Don't switch to the
buffer of a window clicked on, when the current buffer is
in Isearch mode.
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index ef69ff23cb6..1de8fce8e3b 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -1243,10 +1243,25 @@ and the meta character is unread so that it applies to editing the string." | |||
| 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) |