From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 17 Jan 2002 02:07:54 +0000 (+0000)
Subject: (mouse-drag-region-1): Renamed from mouse-drag-region.
X-Git-Tag: ttn-vms-21-2-B4~17099
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6454615cfaca7d23dcff56bf1af326a1decdbc06;p=emacs.git

(mouse-drag-region-1): Renamed from mouse-drag-region.
(mouse-drag-region): New function.  For a click in the echo area,
show *Messages*.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index ba60c7b8a92..9ac786a5cb7 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -697,8 +697,23 @@ Upon exit, point is at the far edge of the newly visible text."
 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."
+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))