From 7f779379f6cbef2513f74813130b8da8e0d38c28 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 24 Oct 2000 12:27:45 +0000 Subject: (widget-field-keymap, widget-text-keymap): Define the tool-bar map as nil, as for the menu-bar. Otherwise, we'll get duplicate tool-bar entries because we'll see the global ones on more than one path through keymaps. --- lisp/wid-edit.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/wid-edit.el') diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index a17d6b83e5..debbf510f4 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -781,6 +781,7 @@ Recommended as a parent keymap for modes using widgets.") (defvar widget-field-keymap (let ((map (copy-keymap widget-keymap))) (define-key map [menu-bar] nil) + (define-key map [tool-bar] nil) (define-key map "\C-k" 'widget-kill-line) (define-key map "\M-\t" 'widget-complete) (define-key map "\C-m" 'widget-field-activate) @@ -792,7 +793,8 @@ Recommended as a parent keymap for modes using widgets.") (defvar widget-text-keymap (let ((map (copy-keymap widget-keymap))) - (define-key map [menu-bar] 'nil) + (define-key map [menu-bar] nil) + (define-key map [tool-bar] nil) (define-key map "\C-a" 'widget-beginning-of-line) (define-key map "\C-e" 'widget-end-of-line) (set-keymap-parent map global-map) -- cgit v1.2.3