branch: master commit b8697fd825cb9a1dde03dbaaac9cf9f8a761f93f Author: Ian Dunn <du...@gnu.org> Commit: Ian Dunn <du...@gnu.org>
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."