From: ueno <ueno>
Date: Sat, 27 Aug 2005 07:14:22 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: channel-coding-branchpoint~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=df4e9996da3a61a0f13a7c4dbf0451801fb387e2;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 9421ff2..fb5022a 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -375,17 +375,20 @@ All normal editing commands are turned off."
     (insert "
 Symbols in the leftmost column:
 
-  +     The add-on is enabled.
-  -     The add-on is disabled.
-  !	The add-on doesn't support enable/disable operation.
-  ?	The add-on is not insinuated.
+   +     The add-on is enabled.
+   -     The add-on is disabled.
+   !	The add-on doesn't support enable/disable operation.
+   ?	The add-on is not insinuated.
   	The add-on is not loaded.
 ")
     (insert (substitute-command-keys "
 Useful keys:
 
-  `\\[riece-command-enable-addon]' to enable the current add-on.
-  `\\[riece-command-disable-addon]' to disable the current add-on.
+   `\\[riece-command-enable-addon]' to enable the current add-on.
+   `\\[riece-command-disable-addon]' to disable the current add-on.
+   `\\[riece-command-insinuate-addon]' to insinuate the add-on.
+   `\\[riece-command-uninstall-addon]' to uninstall the current add-on.
+   `\\[riece-command-unload-addon]' to unload the current add-on.
 "))
     (goto-char (point-min))
     (pop-to-buffer (current-buffer))
diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 2caf85a..0805794 100644
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -140,7 +140,7 @@ If N is nil, all messages will be returned."
     (if (eq (car plist) property)
 	(setplist symbol (cdr (cdr plist)))
       (while (and (nthcdr 2 plist)
-		  (eq (car (nthcdr 2 plist)) property))
+		  (not (eq (car (nthcdr 2 plist)) property)))
 	(setq plist (nthcdr 2 plist)))
       (if (nthcdr 2 plist)
 	  (setcdr (cdr plist) (nthcdr 4 plist))))))
diff --git a/lisp/riece-toolbar.el b/lisp/riece-toolbar.el
index 06d642f..4bcec8a 100644
--- a/lisp/riece-toolbar.el
+++ b/lisp/riece-toolbar.el
@@ -125,7 +125,7 @@
       (with-current-buffer riece-command-buffer
 	(riece-toolbar-command-mode-hook)))
   (add-hook 'riece-command-mode-hook
-	    'riece-toolbar-command-mode-hook))
+	    'riece-toolbar-command-mode-hook t))
 
 (defun riece-toolbar-uninstall ()
   (if riece-command-buffer