# HG changeset patch # User Gerd Moellmann # Date 996069724 0 # Node ID 4e1d2c941d8699efc10a064607c1a849fbee1d49 # Parent 6319e783bf00b63ef1e016ce0b041a44fe201516 (isearch-other-meta-char): Don't modify mode-line and similar events for which fake prefix keys are generated. It's no longer necessary since read_key_sequence doesn't modify these events for internal purposes anymore. diff -r 6319e783bf00 -r 4e1d2c941d86 lisp/isearch.el --- a/lisp/isearch.el Wed Jul 25 13:00:42 2001 +0000 +++ b/lisp/isearch.el Wed Jul 25 14:02:04 2001 +0000 @@ -1229,20 +1229,19 @@ (let (window) (cancel-kbd-macro-events) (apply 'isearch-unread keylist) - ;; Properly handle scroll-bar and mode-line clicks - ;; for which a dummy prefix event was generated as (aref key 0). - (and (> (length key) 1) - (symbolp (aref key 0)) - (listp (aref key 1)) - (not (numberp (posn-point (event-start (aref key 1))))) - ;; Convert the event back into its raw form, - ;; with the dummy prefix implicit in the mouse event, - ;; so it will get split up once again. - (progn (setq unread-command-events - (cdr unread-command-events)) - (setq main-event (car unread-command-events)) - (setcar (cdr (event-start main-event)) - (car (nth 1 (event-start main-event)))))) + + ;; Properly handle scroll-bar and mode-line clicks for + ;; which a dummy prefix event was generated as (aref key + ;; 0). Note that we don't have to modify the event + ;; anymore in 21 because read_key_sequence no longer modifies + ;; events to produce fake prefix keys. + (when (and (> (length key) 1) + (symbolp (aref key 0)) + (listp (aref key 1)) + (not (numberp (posn-point + (event-start (aref key 1)))))) + (setq main-event (pop unread-command-events))) + ;; 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, ;; is in isearch mode. So end the search in that buffer.