Throw an error if add-on is not insinuated when enabling/disabling.
authorueno <ueno>
Fri, 26 Aug 2005 06:40:24 +0000 (06:40 +0000)
committerueno <ueno>
Fri, 26 Aug 2005 06:40:24 +0000 (06:40 +0000)
lisp/riece-addon.el

index a46fcb3..c1cdb78 100644 (file)
          (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
            (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