(mime-add-url-buttons): Put `widget-keymap' as an overlay property `local-map'

in the URL buttons under FSF Emacsen.
(TopLevel): Require `static'.

diff --git a/semi-def.el b/semi-def.el
index 606567d..d72ce17 100644 (file)
--- a/semi-def.el
+++ b/semi-def.el
@@ -32,6 +32,8 @@
 
 (require 'widget)
 
+(eval-when-compile (require 'static))
+
 (defconst mime-user-interface-product ["WEMI" (1 13 6) "Rokugò"]
   "Product name, version number and code name of MIME-kernel package.")
 
@@ -144,6 +146,8 @@
          (end (match-end 0)))
       (widget-convert-button 'mime-url-link beg end
                             (buffer-substring beg end))
+      (static-unless (featurep 'xemacs)
+       (overlay-put (make-overlay beg end) 'local-map widget-keymap))
       )))
 
 (define-widget 'mime-url-link 'link