[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: finger-pointer curser as default for mouse-face text
From: |
Kim F. Storm |
Subject: |
Re: finger-pointer curser as default for mouse-face text |
Date: |
Mon, 18 Oct 2004 13:19:40 +0200 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux) |
"Drew Adams" <address@hidden> writes:
> I know, I must be nuts, but I still fall for this subliminal suggestion, and
> I try to click with mouse-1! Brain dead, I guess - time for a vacation.
Try this patch (just proof of concept -- it should at least be
user customizable).
*** mouse.el 17 Oct 2004 00:11:15 +0200 1.250
--- mouse.el 18 Oct 2004 13:16:54 +0200
***************
*** 864,869 ****
--- 864,874 ----
(or end-point
(= (window-start start-window)
start-window-start)))
+ (if (and (eq fun 'mouse-set-point)
+ (not end-point)
+ (consp event)
+ (get-char-property start-point 'mouse-face))
+ (setcar event 'mouse-2))
(setq unread-command-events
(cons event unread-command-events)))))
(delete-overlay mouse-drag-overlay)))))
--
Kim F. Storm <address@hidden> http://www.cua.dk
- finger-pointer curser as default for mouse-face text, Drew Adams, 2004/10/17
- Re: finger-pointer curser as default for mouse-face text, Kim F. Storm, 2004/10/19
- Re: finger-pointer curser as default for mouse-face text, Lennart Borgman, 2004/10/19
- RE: finger-pointer curser as default for mouse-face text, Drew Adams, 2004/10/19
- Re: finger-pointer curser as default for mouse-face text, Richard Stallman, 2004/10/21
- Re: finger-pointer curser as default for mouse-face text, Kim F. Storm, 2004/10/21
- Re: finger-pointer curser as default for mouse-face text, Lennart Borgman, 2004/10/21
- Re: finger-pointer curser as default for mouse-face text, Richard Stallman, 2004/10/23
- Re: finger-pointer curser as default for mouse-face text, Kim F. Storm, 2004/10/24
- Re: finger-pointer curser as default for mouse-face text, Lennart Borgman, 2004/10/24