From: Daiki Ueno <ueno@unixuser.org>
Date: Fri, 26 Aug 2005 06:40:24 +0000 (+0000)
Subject: Throw an error if add-on is not insinuated when enabling/disabling.
X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=aae09513f6f743f61e951b782f68d61d0f33282b

Throw an error if add-on is not insinuated when enabling/disabling.
---

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index a46fcb3..c1cdb78 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -234,6 +234,8 @@
 	  (message "Add-on %S is uninstalled" addon)))))
 
 (defun riece-enable-addon (addon &optional verbose)
+  (unless (get addon 'riece-addon-insinuated)
+    (error "Add-on %S is not insinuated" addon))
   (let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
     (if (null enabled)
 	(if verbose
@@ -246,6 +248,8 @@
 	    (message "Add-on %S enabled" addon))))))
 
 (defun riece-disable-addon (addon &optional verbose)
+  (unless (get addon 'riece-addon-insinuated)
+    (error "Add-on %S is not insinuated" addon))
   (let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
     (if (null enabled)
 	(if verbose