Dear byte-compiler, you drive me to drink,

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

View file

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

View file

@ -89,7 +89,7 @@ immediately runs it on the current candidate (ending the ivy session)."
counsel-projectile-switch-to-buffer))
(ivy-set-display-transformer cmd 'ivy-rich--ivy-switch-buffer-transformer))
;; 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))
(switch-buffer-alist (assq 'ivy-rich-candidate colplist)))
(when switch-buffer-alist