THOU SHALT NOT WORSHIP FALSE IDOLS, said the byte compiler
And I obeyed.
This commit is contained in:
parent
d738a8d13a
commit
48b0a468d1
5 changed files with 6 additions and 7 deletions
|
@ -180,6 +180,8 @@ Goes down a list of possible backends:
|
|||
(unless (string-empty-p pattern)
|
||||
(cl-pushnew pattern devdocs-search-history))))
|
||||
|
||||
(defvar counsel-dash-docsets)
|
||||
(defvar helm-dash-docsets)
|
||||
;;;###autoload
|
||||
(defun +lookup/in-docsets (&optional query docsets)
|
||||
"TODO"
|
||||
|
|
|
@ -140,9 +140,9 @@ Used by `+lookup/in-docsets' and `+lookup/documentation'."
|
|||
collect
|
||||
`(defun ,hook-sym ()
|
||||
(make-variable-buffer-local ',var-sym)
|
||||
(cond ((eq (car docsets) :add)
|
||||
(cond ((eq ',(car docsets) :add)
|
||||
`(setq ,var-sym (append ,var-sym (list ,@(cdr docsets)))))
|
||||
((eq (car docsets) :remove)
|
||||
((eq ',(car docsets) :remove)
|
||||
`(setq ,var-sym
|
||||
(cl-loop with to-delete = (list ,@(cdr docsets))
|
||||
for docset in ,var-sym
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue