New jump command: +jump/online-select

2017-10-07 01:19:24 +02:00 · 2017-10-07 01:19:24 +02:00 · c3398e6afc
commit c3398e6afc
parent 4a1865c450
2 changed files with 9 additions and 1 deletions
--- a/modules/feature/jump/autoload/jump.el
+++ b/modules/feature/jump/autoload/jump.el
@ -132,3 +132,10 @@ for the provider."
        (setq +jump--online-last provider)
        (funcall +jump-search-browser-fn (format url (url-encode-url search))))
    ('error (setq +jump--online-last nil))))
+
+;;;###autoload
+(defun +jump/online-select ()
+  "Runs `+jump/online', but always prompts for the provider to use."
+  (interactive)
+  (let ((current-prefix-arg t))
+    (call-interactively #'+jump/online)))