awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-15 13:23:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

THOU SHALT NOT WORSHIP FALSE IDOLS, said the byte compiler

Browse Source 
And I obeyed.
This commit is contained in:
Henrik Lissner
2018-01-06 04:24:37 -05:00
parent d738a8d13a
commit 48b0a468d1
5 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
modules/feature/lookup/autoload/lookup.el
View File

@@ -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"

4
modules/feature/lookup/config.el
View File

@@ -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