From: yoichi <yoichi>
Date: Wed, 15 Dec 2004 15:02:43 +0000 (+0000)
Subject: * riece-addon.el (riece-command-enable-addon): Fixed.
X-Git-Tag: riece-1_0_7~78
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0913e7f64a080117d2ca498d137033916b5ef48d;p=elisp%2Friece.git

* riece-addon.el (riece-command-enable-addon): Fixed.
(riece-command-disable-addon): Ditto.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 74d6b41..e9caaf6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-15  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* riece-addon.el (riece-command-enable-addon): Fixed.
+	(riece-command-disable-addon): Ditto.
+
 2004-12-14  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-alias.el (riece-alias-abbrev-identity-string): Return a
diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index a02d74e..5861006 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -288,18 +288,18 @@ Useful keys:
    (list
     (or (if (eq major-mode 'riece-addon-list-mode)
 	    (get-text-property (point) 'riece-addon))
-	(completing-read "Add-on: "
-			 (mapcar (lambda (addon)
-				   (list (symbol-name addon)))
-				 riece-addons)
-			 (lambda (pointer)
-			   (let ((enabled
-				  (intern-soft (concat (symbol-name
-							(car pointer))
-						       "-enabled"))))
-			     (and enabled
-				  (null (symbol-value enabled)))))
-			 t))))
+	(intern-soft
+	 (completing-read "Add-on: "
+			  (mapcar (lambda (addon)
+				    (list (symbol-name addon)))
+				  riece-addons)
+			  (lambda (pointer)
+			    (let ((enabled
+				   (intern-soft (concat (car pointer)
+							"-enabled"))))
+			      (and enabled
+				   (null (symbol-value enabled)))))
+			  t)))))
   (riece-enable-addon addon t)
   (let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
     (if (and (eq major-mode 'riece-addon-list-mode)
@@ -319,18 +319,18 @@ Useful keys:
    (list
     (or (if (eq major-mode 'riece-addon-list-mode)
 	    (get-text-property (point) 'riece-addon))
-	(completing-read "Add-on: "
-			 (mapcar (lambda (addon)
-				   (list (symbol-name addon)))
-				 riece-addons)
-			 (lambda (pointer)
-			   (let ((enabled
-				  (intern-soft (concat (symbol-name
-							(car pointer))
-						       "-enabled"))))
-			     (and enabled
-				  (symbol-value enabled))))
-			 t))))
+	(intern-soft
+	 (completing-read "Add-on: "
+			  (mapcar (lambda (addon)
+				    (list (symbol-name addon)))
+				  riece-addons)
+			  (lambda (pointer)
+			    (let ((enabled
+				   (intern-soft (concat (car pointer)
+							"-enabled"))))
+			      (and enabled
+				   (symbol-value enabled))))
+			  t)))))
   (riece-disable-addon addon t)
   (let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
     (if (and (eq major-mode 'riece-addon-list-mode)