697 |
Highlight the drag area as you move the mouse. |
Highlight the drag area as you move the mouse. |
698 |
This must be bound to a button-down mouse event. |
This must be bound to a button-down mouse event. |
699 |
In Transient Mark mode, the highlighting remains as long as the mark |
In Transient Mark mode, the highlighting remains as long as the mark |
700 |
remains active. Otherwise, it remains until the next input event." |
remains active. Otherwise, it remains until the next input event. |
701 |
|
|
702 |
|
If the click is in the echo area, display the `*Messages*' buffer." |
703 |
(interactive "e") |
(interactive "e") |
704 |
|
(let ((w (posn-window (event-start start-event)))) |
705 |
|
(if (not (or (not (window-minibuffer-p w)) |
706 |
|
(minibuffer-window-active-p w))) |
707 |
|
(save-excursion |
708 |
|
(read-event) |
709 |
|
(set-buffer "*Messages*") |
710 |
|
(goto-char (point-max)) |
711 |
|
(display-buffer (current-buffer))) |
712 |
|
;; Give temporary modes such as isearch a chance to turn off. |
713 |
|
(run-hooks 'mouse-leave-buffer-hook) |
714 |
|
(mouse-drag-region-1 start-event)))) |
715 |
|
|
716 |
|
(defun mouse-drag-region-1 (start-event) |
717 |
(mouse-minibuffer-check start-event) |
(mouse-minibuffer-check start-event) |
718 |
(let* ((echo-keystrokes 0) |
(let* ((echo-keystrokes 0) |
719 |
(start-posn (event-start start-event)) |
(start-posn (event-start start-event)) |