From 3334640016e221caad2303a2116bfd306caea777 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 2 Oct 2001 04:43:50 +0000 Subject: [PATCH] * wl-xmas.el (wl-message-define-keymap): Return a keymap. * wl-mule.el (wl-message-define-keymap): Fixed parenthesis; return a keymap. --- wl/ChangeLog | 6 ++++++ wl/wl-mule.el | 3 ++- wl/wl-xmas.el | 3 ++- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 124e76e..9f9eabc 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2001-10-02 Katsumi Yamaoka + + * wl-xmas.el (wl-message-define-keymap): Return a keymap. + * wl-mule.el (wl-message-define-keymap): Fixed parenthesis; return + a keymap. + 2001-10-02 Yuuichi Teranishi * wl-e21.el (wl-message-define-keymap): Don't set widget-keymap as diff --git a/wl/wl-mule.el b/wl/wl-mule.el index 4ee73df..b934b1a 100644 --- a/wl/wl-mule.el +++ b/wl/wl-mule.el @@ -108,7 +108,8 @@ Special commands: (define-key keymap [S-mouse-5] 'wl-message-wheel-up) (set-keymap-parent wl-message-button-map keymap) (define-key wl-message-button-map [mouse-2] - 'wl-message-button-dispatcher)) + 'wl-message-button-dispatcher) + keymap)) (defun wl-message-wheel-up (event) (interactive "e") diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el index 079940c..e31bff5 100644 --- a/wl/wl-xmas.el +++ b/wl/wl-xmas.el @@ -451,7 +451,8 @@ (define-key keymap [(shift button5)] 'wl-message-wheel-up) (set-keymap-parent wl-message-button-map keymap) (define-key wl-message-button-map 'button2 - 'wl-message-button-dispatcher))) + 'wl-message-button-dispatcher) + keymap)) (defun wl-message-wheel-up (event) (interactive "e") -- 1.7.10.4