Enable add-on if it is not disabled by default.
authorDaiki Ueno <ueno@unixuser.org>
Fri, 26 Aug 2005 08:41:04 +0000 (08:41 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Fri, 26 Aug 2005 08:41:04 +0000 (08:41 +0000)
lisp/riece-addon.el

index 34796f1..a773032 100644 (file)
     (funcall (intern (concat (symbol-name addon) "-insinuate")))
     (put addon 'riece-addon-insinuated t)
     (if verbose
     (funcall (intern (concat (symbol-name addon) "-insinuate")))
     (put addon 'riece-addon-insinuated t)
     (if verbose
-       (message "Add-on %S is insinuated" addon))))
+       (message "Add-on %S is insinuated" addon))
+    (unless (get addon 'riece-addon-default-disabled)
+      (riece-enable-addon addon t))))
 
 (defun riece-uninstall-addon (addon &optional verbose)
   (if (not (get addon 'riece-addon-insinuated))
 
 (defun riece-uninstall-addon (addon &optional verbose)
   (if (not (get addon 'riece-addon-insinuated))