From: ueno <ueno>
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-Tag: channel-coding-branchpoint~61
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=092ac7e977ddb6a2bdfc3aa280caab1408924715;p=elisp%2Friece.git

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