From: ueno <ueno>
Date: Sat, 27 Aug 2005 02:40:50 +0000 (+0000)
Subject: * riece-url.el (riece-url-uninstall): Call easy-menu-remove-item.
X-Git-Tag: channel-coding-branchpoint~39
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a8d52fb537790086451f43cc0fffa8d17455179d;p=elisp%2Friece.git

* riece-url.el (riece-url-uninstall): Call easy-menu-remove-item.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9fbd336..247ed02 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2005-08-27  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-url.el (riece-url-uninstall): Call easy-menu-remove-item.
+
 	* riece-addon.el (riece-addon-list-mode-map): Bind
 	riece-command-unload-addon.
 	(riece-insinuate-addon-1): New function; renamed from
diff --git a/lisp/riece-url.el b/lisp/riece-url.el
index 6b27fcf..ae96aae 100644
--- a/lisp/riece-url.el
+++ b/lisp/riece-url.el
@@ -135,6 +135,9 @@ This maps a string \"Bug#12345\" to a URL
 		t)))
 
 (defun riece-url-uninstall ()
+  (easy-menu-remove-item
+   nil (list (car riece-menu-items))
+   "Open URL...")
   (remove-hook 'riece-after-insert-functions 'riece-url-scan-region)
   (remove-hook 'riece-command-mode-hook
 	       'riece-url-command-mode-hook))