Changed face spec.

[riece] / lisp / riece-addon.el

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index c1cdb78..34796f1 100644 (file)
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -55,7 +55,7 @@
   '((((class color) (background dark))
      (:foreground "PaleTurquoise" :italic t))
     (t
-     (:italic t)))
+     ()))
   "Face used for displaying the disabled addon."
   :group 'riece-addon-list-faces)
 (defvar riece-addon-list-disabled-face 'riece-addon-list-disabled-face)
@@ -71,7 +71,7 @@
 
 (defface riece-addon-list-uninstalled-face
   '((t
-     (:foreground "red")))
+     (:italic t)))
   "Face used for displaying the uninstalled addon."
   :group 'riece-addon-list-faces)
 (defvar riece-addon-list-uninstalled-face 'riece-addon-list-uninstalled-face)
@@ -199,7 +199,8 @@
 (defun riece-insinuate-addon (addon &optional verbose)
   (unless (assq addon riece-addon-dependencies)
     (setq riece-addons (cons addon riece-addons)
-         riece-addon-dependencies (riece-resolve-addons riece-addons)))
+         riece-addon-dependencies (riece-resolve-addons
+                                   (copy-sequence riece-addons))))
   (if (get addon 'riece-addon-insinuated)
       (if verbose
          (message "Add-on %S is already insinuated" addon))
@@ -228,8 +229,10 @@
                         #'ignore))
            (setq riece-addon-dependencies
                  (delq entry riece-addon-dependencies))
-           (put addon 'riece-addon-insinuated nil)
-           (setq riece-addons (delq addon riece-addons))))
+           (remprop addon 'riece-addon-insinuated)
+           (setq riece-addons (delq addon riece-addons)
+                 riece-addon-dependencies (riece-resolve-addons
+                                           (copy-sequence riece-addons)))))
       (if verbose
          (message "Add-on %S is uninstalled" addon)))))