emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Dear byte-compiler, you drive me to drink,

Browse source 
About Emacs Lisp that I have to rethink.
The world could end,
And humanity transcend,
But you'd still be here raising a stink.
This commit is contained in:
Henrik Lissner 2019-04-05 23:52:29 -04:00
parent 45c9fb982d
commit 337c16cb68
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 13 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

15
core/core-ui.el
View file

@ -95,14 +95,13 @@ behavior). Do not set this directly, this is let-bound in `doom|init-theme'.")
(setq doom--last-window (selected-window))))) (setq doom--last-window (selected-window)))))
(defun doom|run-switch-frame-hooks (&rest _) (defun doom|run-switch-frame-hooks (&rest _)
(let ((selected-frame (selected-frame))) (unless (or doom-inhibit-switch-frame-hooks
(unless (or doom-inhibit-switch-frame-hooks (eq doom--last-frame (selected-frame))
(eq doom--last-frame (selected-frame)) (frame-parameter nil 'parent-frame))
(frame-parameter nil 'parent-frame)) (let ((doom-inhibit-switch-frame-hooks t))
(let ((doom-inhibit-switch-frame-hooks t)) (run-hooks 'doom-switch-frame-hook)
(run-hooks 'doom-switch-frame-hook) (doom-log "Frame switched to %s" (selected-frame))
(doom-log "Frame switched to %s" (selected-frame)) (setq doom--last-frame (selected-frame)))))
(setq doom--last-frame (selected-frame))))))
(defun doom*run-switch-buffer-hooks (orig-fn buffer-or-name &rest args) (defun doom*run-switch-buffer-hooks (orig-fn buffer-or-name &rest args)
(if (or doom-inhibit-switch-buffer-hooks (if (or doom-inhibit-switch-buffer-hooks

4
modules/completion/ivy/autoload/ivy.el
View file

@ -303,8 +303,8 @@ order.
(projectile-project-name)) (projectile-project-name))
((file-relative-name directory project-root)))))) ((file-relative-name directory project-root))))))
(require 'counsel) (require 'counsel)
(let ((counsel-more-chars-alist (let ((ivy-more-chars-alist
(if query '((t . 1)) counsel-more-chars-alist))) (if query '((t . 1)) ivy-more-chars-alist)))
(pcase engine (pcase engine
('grep ('grep
(let ((args (if recursive " -R")) (let ((args (if recursive " -R"))

2
modules/completion/ivy/config.el
View file

@ -89,7 +89,7 @@ immediately runs it on the current candidate (ending the ivy session)."
counsel-projectile-switch-to-buffer)) counsel-projectile-switch-to-buffer))
(ivy-set-display-transformer cmd 'ivy-rich--ivy-switch-buffer-transformer)) (ivy-set-display-transformer cmd 'ivy-rich--ivy-switch-buffer-transformer))
;; Use `+ivy-rich-buffer-name' to display buffer names ;; Use `+ivy-rich-buffer-name' to display buffer names
(let* ((plist (plist-get ivy-rich--display-transformers-list 'ivy-switch-buffer)) (let* ((plist (plist-get ivy-rich-display-transformers-list 'ivy-switch-buffer))
(colplist (plist-get plist :columns)) (colplist (plist-get plist :columns))
(switch-buffer-alist (assq 'ivy-rich-candidate colplist))) (switch-buffer-alist (assq 'ivy-rich-candidate colplist)))
(when switch-buffer-alist (when switch-buffer-alist

6
modules/feature/lookup/autoload/lookup.el
View file

@ -135,7 +135,7 @@ Otherwise, these properties are available to be set:
(defun +lookup--jump-to (prop identifier &optional other-window) (defun +lookup--jump-to (prop identifier &optional other-window)
(let ((ret (let ((ret
(condition-case e (condition-case _
(run-hook-wrapped (run-hook-wrapped
(plist-get (list :definition '+lookup-definition-functions (plist-get (list :definition '+lookup-definition-functions
:references '+lookup-references-functions :references '+lookup-references-functions
@ -198,7 +198,7 @@ falling back to git-grep)."
(+helm-file-search nil :query query) (+helm-file-search nil :query query)
t)))))) t))))))
(defun +lookup-evil-goto-definition-backend (identifier) (defun +lookup-evil-goto-definition-backend (_identifier)
"Uses `evil-goto-definition' to conduct a text search for IDENTIFIER in the "Uses `evil-goto-definition' to conduct a text search for IDENTIFIER in the
current buffer." current buffer."
(and (fboundp 'evil-goto-definition) (and (fboundp 'evil-goto-definition)
@ -272,7 +272,7 @@ search otherwise."
((error "Couldn't find references of '%s'" identifier)))) ((error "Couldn't find references of '%s'" identifier))))
;;;###autoload ;;;###autoload
(defun +lookup/documentation (identifier &optional arg) (defun +lookup/documentation (identifier &optional _arg)
"Show documentation for IDENTIFIER (defaults to symbol at point or selection. "Show documentation for IDENTIFIER (defaults to symbol at point or selection.
First attempts the :documentation handler specified with `set-lookup-handlers!' First attempts the :documentation handler specified with `set-lookup-handlers!'