From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.help Subject: Re: Need an enabler for a bad habit. Date: Thu, 02 Nov 2006 15:00:47 +0100 Message-ID: <4549FA0F.6080406@gmx.at> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1162476069 26163 80.91.229.2 (2 Nov 2006 14:01:09 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 2 Nov 2006 14:01:09 +0000 (UTC) Cc: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Nov 02 15:01:07 2006 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Gfd7J-0000YD-Ur for geh-help-gnu-emacs@m.gmane.org; Thu, 02 Nov 2006 15:00:26 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Gfd7J-0000t6-AP for geh-help-gnu-emacs@m.gmane.org; Thu, 02 Nov 2006 09:00:25 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Gfd6C-0007ni-Mw for help-gnu-emacs@gnu.org; Thu, 02 Nov 2006 08:59:16 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Gfd67-0007fM-Ca for help-gnu-emacs@gnu.org; Thu, 02 Nov 2006 08:59:15 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Gfd67-0007en-2Q for help-gnu-emacs@gnu.org; Thu, 02 Nov 2006 08:59:11 -0500 Original-Received: from [213.165.64.20] (helo=mail.gmx.net) by monty-python.gnu.org with smtp (Exim 4.52) id 1Gfd66-0003OB-Vh for help-gnu-emacs@gnu.org; Thu, 02 Nov 2006 08:59:11 -0500 Original-Received: (qmail invoked by alias); 02 Nov 2006 13:59:09 -0000 Original-Received: from N911P009.adsl.highway.telekom.at (EHLO [62.47.57.201]) [62.47.57.201] by mail.gmx.net (mp032) with SMTP; 02 Nov 2006 14:59:09 +0100 X-Authenticated: #14592706 User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206) X-Accept-Language: de-DE, de, en-us, en Original-To: brakjoller@gmail.com X-Y-GMX-Trusted: 0 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:38496 Archived-At: > The only drawback I can see with it > is that it removes the "pop up the message buffer" function. (defun mouse-drag-region (start-event) "Set the region to the text that the mouse is dragged over. 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, pop up the messages buffer and run a command." (interactive "e") (let ((w (posn-window (event-start start-event)))) (if (and (window-minibuffer-p w) (not (minibuffer-window-active-p w))) (save-excursion ;; Swallow the up-event. (read-event) (set-buffer (get-buffer-create "*Messages*")) (goto-char (point-max)) (display-buffer (current-buffer)) (call-interactively 'execute-extended-command)) ;; Give temporary modes such as isearch a chance to turn off. (run-hooks 'mouse-leave-buffer-hook) (mouse-drag-track start-event t))))