[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Need an enabler for a bad habit.
From: |
martin rudalics |
Subject: |
Re: Need an enabler for a bad habit. |
Date: |
Thu, 02 Nov 2006 15:00:47 +0100 |
User-agent: |
Mozilla Thunderbird 1.0 (Windows/20041206) |
> 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))))
Re: Need an enabler for a bad habit., martin rudalics, 2006/11/02
Re: Need an enabler for a bad habit., Mathias Dahl, 2006/11/02
Re: Need an enabler for a bad habit.,
martin rudalics <=
Re: Need an enabler for a bad habit., Mathias Dahl, 2006/11/02
Re: Need an enabler for a bad habit., William Case, 2006/11/03