THOU SHALT NOT WORSHIP FALSE IDOLS, said the byte compiler

And I obeyed.
This commit is contained in:
Henrik Lissner 2018-01-06 04:24:37 -05:00
parent d738a8d13a
commit 48b0a468d1
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 6 additions and 7 deletions

View file

@ -180,6 +180,8 @@ Goes down a list of possible backends:
(unless (string-empty-p pattern) (unless (string-empty-p pattern)
(cl-pushnew pattern devdocs-search-history)))) (cl-pushnew pattern devdocs-search-history))))
(defvar counsel-dash-docsets)
(defvar helm-dash-docsets)
;;;###autoload ;;;###autoload
(defun +lookup/in-docsets (&optional query docsets) (defun +lookup/in-docsets (&optional query docsets)
"TODO" "TODO"

View file

@ -140,9 +140,9 @@ Used by `+lookup/in-docsets' and `+lookup/documentation'."
collect collect
`(defun ,hook-sym () `(defun ,hook-sym ()
(make-variable-buffer-local ',var-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))))) `(setq ,var-sym (append ,var-sym (list ,@(cdr docsets)))))
((eq (car docsets) :remove) ((eq ',(car docsets) :remove)
`(setq ,var-sym `(setq ,var-sym
(cl-loop with to-delete = (list ,@(cdr docsets)) (cl-loop with to-delete = (list ,@(cdr docsets))
for docset in ,var-sym for docset in ,var-sym

View file

@ -315,9 +315,6 @@ with the :popup setting."
prevent the popup(s) from messing up the UI (or vice versa)." prevent the popup(s) from messing up the UI (or vice versa)."
`(let* ((in-popup-p (+popup-p)) `(let* ((in-popup-p (+popup-p))
(popups (+popup-windows)) (popups (+popup-windows))
(popup-states
(cl-loop for p in popups
collect (cons (window-buffer p) (window-state-get p))))
+popup--last) +popup--last)
(dolist (p popups) (dolist (p popups)
(+popup/close p 'force)) (+popup/close p 'force))

View file

@ -143,7 +143,7 @@ ALIST supports one custom parameter: `size', which will resolve to
(defun doom*ignore-window-parameters (orig-fn &rest args) (defun doom*ignore-window-parameters (orig-fn &rest args)
"Allow *interactive* window moving commands to traverse popups." "Allow *interactive* window moving commands to traverse popups."
(cl-letf (((symbol-function #'windmove-find-other-window) (cl-letf (((symbol-function #'windmove-find-other-window)
(lambda (direction &optional window ignore sign wrap mini) (lambda (dir &optional arg window)
(window-in-direction (window-in-direction
(pcase dir (`up 'above) (`down 'below) (_ dir)) (pcase dir (`up 'above) (`down 'below) (_ dir))
window (bound-and-true-p +popup-mode) arg windmove-wrap-around t)))) window (bound-and-true-p +popup-mode) arg windmove-wrap-around t))))

View file

@ -507,7 +507,7 @@ the workspace and move to the next."
(+workspace/delete frame-persp))))) (+workspace/delete frame-persp)))))
;;;###autoload ;;;###autoload
(defun +workspaces|per-project (&optional root) (defun +workspaces|per-project ()
"Open a new workspace when switching to another project. "Open a new workspace when switching to another project.
Ensures the scratch (or dashboard) buffers are CDed into the project's root." Ensures the scratch (or dashboard) buffers are CDed into the project's root."