754 |
|
|
755 |
If the click is in the echo area, display the `*Messages*' buffer." |
If the click is in the echo area, display the `*Messages*' buffer." |
756 |
(interactive "e") |
(interactive "e") |
757 |
(let ((w (posn-window (event-start start-event)))) |
(let ((w (posn-window (event-start start-event))) |
758 |
|
(mouse-autoselect-window nil)) |
759 |
(if (not (or (not (window-minibuffer-p w)) |
(if (not (or (not (window-minibuffer-p w)) |
760 |
(minibuffer-window-active-p w))) |
(minibuffer-window-active-p w))) |
761 |
(save-excursion |
(save-excursion |