Re: finger-pointer curser as default for mouse-face text

[Kim F. Storm]

"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