diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-02-14 16:09:58 +0000 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-02-14 16:14:27 +0000 |
commit | 70b5d7cac9eab16cec1cfe032426e4e2d747bee1 (patch) | |
tree | b3578a3bcc6b4f18315ce25a6c8fcc39aeb31ea4 /cider-apropos.el | |
parent | 93e80f057f768788213e4a9192ea39cb620c2450 (diff) |
Clarify all apropos inputs
Diffstat (limited to 'cider-apropos.el')
-rw-r--r-- | cider-apropos.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/cider-apropos.el b/cider-apropos.el index 328096f1..f63b1213 100644 --- a/cider-apropos.el +++ b/cider-apropos.el @@ -106,14 +106,13 @@ The search may be limited to the namespace NS, and may optionally search doc strings, include private vars, and be case sensitive." (interactive - (if current-prefix-arg - (list (read-string "Clojure Apropos (a regular expression): ") - (let ((ns (read-string "Namespace: "))) - (if (string= ns "") nil ns)) - (y-or-n-p "Search doc strings? ") - (y-or-n-p "Include private symbols? ") - (y-or-n-p "Case-sensitive? ")) - (list (read-string "Clojure Apropos: ")))) + (cons (read-string "Clojure Apropos (a regular expression): ") + (when current-prefix-arg + (list (let ((ns (read-string "Namespace: "))) + (if (string= ns "") nil ns)) + (y-or-n-p "Search doc strings? ") + (y-or-n-p "Include private symbols? ") + (y-or-n-p "Case-sensitive? "))))) (cider-ensure-op-supported "apropos") (if-let ((summary (cider-apropos-summary query ns docs-p privates-p case-sensitive-p)) @@ -125,6 +124,6 @@ strings, include private vars, and be case sensitive." (defun cider-apropos-documentation () "Shortcut for (cider-apropos <query> nil t)." (interactive) - (cider-apropos (read-string "Clojure documentation Apropos: ") nil t)) + (cider-apropos (read-string "Clojure documentation Apropos (a regular expression): ") nil t)) (provide 'cider-apropos) |