From: ueno <ueno>
Date: Thu, 29 Jul 2004 06:39:14 +0000 (+0000)
Subject: * riece-menu.el: Do not support enable/disable addon since
X-Git-Tag: riece-1_0_2~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8f41ee4d1fe1d5fc85f388af420c4ba2abc1e7a7;p=elisp%2Friece.git

* riece-menu.el: Do not support enable/disable addon since
easy-menu-remove is not working.
---

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  <ueno@unixuser.org>
+
+	* riece-menu.el: Do not support enable/disable addon since
+	easy-menu-remove is not working.
+
 2004-07-19  Daiki Ueno  <ueno@unixuser.org>
 
 	* 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)