On 2007/11/06, at 1:58, Dave Peck wrote:
>
> (defun dave-shift-mouse-select (event)
> "Set the mark and then move point to the position clicked on with
> the mouse.
> This should be bound to a mouse click event type."
> (interactive "e")
> (mouse-minibuffer-check event)
> (if mark-active (exchange-point-and-mark))
> (set-mark-command nil)
> ;; Use event-end in case called from mouse-drag-region.
> ;; If EVENT is a click, event-end and event-start give same value.
> (posn-set-point (event-end event)))
>
> -Dave
>
Very useful. Can I integrate the above code to my mac-key-mode
("Help > Carbon Emacs package > Mac-Style Key Bindings" in the menu
bar)?
Seiji
--~--~---------~--~----~------------~-------~--~----~
"Carbon Emacs" group mailing list.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/carbon-emacs?hl=en
-~----------~----~----~----~------~----~------~--~---
