Re: [mouse-1 in Customize should respect mouse-1-click-follows-link]

[Bastien <bzg@altern.org>]

[-- Attachment #1: Type: text/plain, Size: 936 bytes --]

"Drew Adams" <drew.adams@oracle.com> writes:

> These are links. They should be controlled by
> `mouse-1-click-follows-link'.

They behave like links but they are really widget buttons.
I doubt there is a simple fix for this.

,----[ `C-u C-x =' on such a "link" ]
| This is an active area of a documentation-link (widget)Top.
| 
| There are 2 overlays here:
|  From 3145 to 3885
|   evaporate            t
|   face                 custom-documentation
|   widget-doc           documentation-string (widget)Top
|  From 3372 to 3384
|   button               documentation-link (widget)Top
|   evaporate            t
|   face                 custom-documentation
|   follow-link          mouse-face
|   help-echo            "Describe this symbol"
|   keymap               nil
|   mouse-face           (highlight)
|   pointer              hand
`----

Anyway, the `follow-link' property was set to "^m".
The following patch corrects this.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: wid-edit.el.patch --]
[-- Type: text/x-diff, Size: 510 bytes --]

Index: wid-edit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/wid-edit.el,v
retrieving revision 1.188
diff -u -r1.188 wid-edit.el
--- wid-edit.el	9 Feb 2008 22:48:05 -0000	1.188
+++ wid-edit.el	12 Mar 2008 10:57:02 -0000
@@ -1773,7 +1773,7 @@
   "An embedded link."
   :button-prefix 'widget-link-prefix
   :button-suffix 'widget-link-suffix
-  :follow-link "\C-m"
+  :follow-link 'mouse-face
   :help-echo "Follow the link."
   :format "%[%t%]")
 

[-- Attachment #3: Type: text/plain, Size: 13 bytes --]


-- 
Bastien