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 (file)
--- 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)
          (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
   (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)
            (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
   (let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
     (if (null enabled)
        (if verbose