From d9bc73aedb4a7235c9e585e4fcc202ec530faa08 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Thu, 29 Jul 2004 06:39:14 +0000 Subject: [PATCH] * riece-menu.el: Do not support enable/disable addon since easy-menu-remove is not working. --- lisp/ChangeLog | 5 +++++ lisp/riece-menu.el | 18 +++--------------- 2 files changed, 8 insertions(+), 15 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5cc1241..dfbdbad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-07-29 Daiki Ueno + + * riece-menu.el: Do not support enable/disable addon since + easy-menu-remove is not working. + 2004-07-19 Daiki Ueno * riece-server.el (riece-open-server): Call protocol interface. diff --git a/lisp/riece-menu.el b/lisp/riece-menu.el index 3e42c8e..1117c03 100644 --- a/lisp/riece-menu.el +++ b/lisp/riece-menu.el @@ -65,8 +65,6 @@ ("Servers" :filter riece-menu-create-servers-menu)) "Menu used in command mode.") -(defvar riece-menu-enabled nil) - (defconst riece-menu-description "Setup command menus on menubar") @@ -100,25 +98,15 @@ riece-server-alist)) (defvar riece-command-mode-map) - +(defvar riece-menu) (defun riece-menu-insinuate () (add-hook 'riece-command-mode-hook (lambda () (easy-menu-define riece-menu riece-command-mode-map "Riece Menu" - riece-menu-items)))) - -(defvar riece-menu) -(defun riece-menu-enable () - (with-current-buffer riece-command-buffer - (easy-menu-add riece-menu)) - (setq riece-menu-enabled t)) - -(defun riece-menu-disable () - (with-current-buffer riece-command-buffer - (easy-menu-remove riece-menu)) - (setq riece-menu-enabled nil)) + riece-menu-items) + (easy-menu-add riece-menu)))) (provide 'riece-menu) -- 2.25.1