* 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 (file)
--- 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.
 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 (file)
--- 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.")
 
     ("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")
 
 (defconst riece-menu-description
   "Setup command menus on menubar")
 


@@ -100,25 +98,15 @@
          riece-server-alist))
 
 (defvar riece-command-mode-map)
          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"
 (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)
 
 
 (provide 'riece-menu)