[elpa] master b8697fd 62/76: Added force parameter to `enwc-load-backend'.

[Ian Dunn]

branch: master
commit b8697fd825cb9a1dde03dbaaac9cf9f8a761f93f
Author: Ian Dunn <address@hidden>
Commit: Ian Dunn <address@hidden>

    Added force parameter to `enwc-load-backend'.
    
    * enwc-backend.el (enwc-load-backend): Added parameter to force loading of 
backend.
      (enwc-load-default-backend): Accepts parameter to pass to 
`enwc-load-backend'.
---
 lisp/enwc-backend.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/lisp/enwc-backend.el b/lisp/enwc-backend.el
index 61e78a2..fa4083f 100644
--- a/lisp/enwc-backend.el
+++ b/lisp/enwc-backend.el
@@ -115,11 +115,12 @@ Signals an error if a backend with KEY already exists and 
FORCEP is nil."
 
 ;; Handle loading/unloading
 
-(defun enwc-load-backend (backend)
+(defun enwc-load-backend (backend &optional force)
   "Load BACKEND, which is a symbol denoting the backend to use."
   (interactive
    (list
-    (intern (completing-read "Backend: " enwc-registered-backend-alist nil 
t))))
+    (intern (completing-read "Backend: " enwc-registered-backend-alist nil t))
+    current-prefix-arg))
   (when (and enwc--current-backend
              (not (eq (enwc-backend-key enwc--current-backend) backend)))
     (enwc-unload-current-backend))
@@ -128,14 +129,13 @@ Signals an error if a backend with KEY already exists and 
FORCEP is nil."
     (unless new-backend
       (error "No registered backend %s" backend))
 
-    (unless (enwc--can-load-p new-backend)
-      (error "Backend %s is not usable." backend))
-
+    (if (not (or force (enwc--can-load-p new-backend)))
+      (warn "Backend %s is not usable." backend)
     (enwc--load new-backend)
-    (setq enwc--current-backend new-backend)))
+    (setq enwc--current-backend new-backend))))
 
-(defun enwc-load-default-backend ()
-  (enwc-load-backend enwc-default-backend))
+(defun enwc-load-default-backend (&optional force)
+  (enwc-load-backend enwc-default-backend force))
 
 (defun enwc-unload-current-backend ()
   "Unload the current backend."