From 97294c1f72dee1c54801a7c71480f89692d81fb1 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 31 Aug 1999 11:21:24 +0000 Subject: [PATCH] (mime-add-url-buttons): Put `widget-keymap' as an overlay property `local-map' in the URL buttons under FSF Emacsen. (TopLevel): Require `static'. --- semi-def.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/semi-def.el b/semi-def.el index 606567d..d72ce17 100644 --- 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 -- 1.7.10.4