diff options
| author | Tianxiang Xiong <tianxiang.xiong@fundingcircle.com> | 2017-02-28 13:44:50 -0800 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2017-03-01 08:02:31 +0200 |
| commit | 5d32b960739162b75c044be0175b9564e7b8293e (patch) | |
| tree | 6dc9c34552f6a1a13e3bf5b99ddf3b85e6ccbe91 /cider-browse-ns.el | |
| parent | 386a7c4b98b701a5ca11fce4b223f72984998454 (diff) | |
Don't use `list` where backquoting would be clearer
Diffstat (limited to 'cider-browse-ns.el')
| -rw-r--r-- | cider-browse-ns.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/cider-browse-ns.el b/cider-browse-ns.el index b142ecfe..f44216fa 100644 --- a/cider-browse-ns.el +++ b/cider-browse-ns.el @@ -174,11 +174,11 @@ Each item consists of a ns-var and the first line of its docstring." Return a list of the type ('ns or 'var) and the value." (let ((line (car (split-string (string-trim (thing-at-point 'line)) " ")))) (if (string-match "\\." line) - (list 'ns line) - (list 'var (format "%s/%s" - (or (get-text-property (point) 'cider-browse-ns-current-ns) - cider-browse-ns-current-ns) - line))))) + `(ns ,line) + `(var ,(format "%s/%s" + (or (get-text-property (point) 'cider-browse-ns-current-ns) + cider-browse-ns-current-ns) + line))))) (defun cider-browse-ns-doc-at-point () "Show the documentation for the thing at current point." |