[Emacs-diffs] Changes to emacs/lisp/mouse.el

[Richard M. Stallman]

Index: emacs/lisp/mouse.el
diff -c emacs/lisp/mouse.el:1.235 emacs/lisp/mouse.el:1.236
*** emacs/lisp/mouse.el:1.235   Fri Dec 28 23:21:15 2001
--- emacs/lisp/mouse.el Wed Jan 16 21:07:54 2002
***************
*** 697,704 ****
  Highlight the drag area as you move the mouse.
  This must be bound to a button-down mouse event.
  In Transient Mark mode, the highlighting remains as long as the mark
! remains active.  Otherwise, it remains until the next input event."
    (interactive "e")
    (mouse-minibuffer-check start-event)
    (let* ((echo-keystrokes 0)
         (start-posn (event-start start-event))
--- 697,719 ----
  Highlight the drag area as you move the mouse.
  This must be bound to a button-down mouse event.
  In Transient Mark mode, the highlighting remains as long as the mark
! remains active.  Otherwise, it remains until the next input event.
! 
! If the click is in the echo area, display the `*Messages*' buffer."
    (interactive "e")
+   (let ((w (posn-window (event-start start-event))))
+     (if (not (or (not (window-minibuffer-p w))
+                (minibuffer-window-active-p w)))
+       (save-excursion
+         (read-event)
+         (set-buffer "*Messages*")
+         (goto-char (point-max))
+         (display-buffer (current-buffer)))
+       ;; Give temporary modes such as isearch a chance to turn off.
+       (run-hooks 'mouse-leave-buffer-hook)
+       (mouse-drag-region-1 start-event))))
+ 
+ (defun mouse-drag-region-1 (start-event)
    (mouse-minibuffer-check start-event)
    (let* ((echo-keystrokes 0)
         (start-posn (event-start start-event))