emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Helm: Fix another warning 

I think with-helm-buffer is a macro so this might be the best way to
cover the warning.
This commit is contained in:
James Nguyen 2018-03-30 19:11:11 -07:00
parent fcc4a4d246
commit ae0d4c6d68
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
evil-collection-helm.el
View File

@ -62,14 +62,15 @@
;; TODO: With Evil, the cursor type is not right in the header line and the evil
;; cursor remains in the minibuffer. Visual selections also reveal overlayed
;; text.
(defun evil-collection-helm-hide-minibuffer-maybe ()
"Hide text in minibuffer when `helm-echo-input-in-header-line' is non-nil."
(when (with-helm-buffer helm-echo-input-in-header-line)
(let ((ov (make-overlay (point-min) (point-max) nil nil t)))
(overlay-put ov 'window (selected-window))
(overlay-put ov 'face (let ((bg-color (face-background 'default nil)))
`(:background ,bg-color :foreground ,bg-color)))
(setq-local cursor-type nil))))
(with-no-warnings
(defun evil-collection-helm-hide-minibuffer-maybe ()
"Hide text in minibuffer when `helm-echo-input-in-header-line' is non-nil."
(when (with-helm-buffer helm-echo-input-in-header-line)
(let ((ov (make-overlay (point-min) (point-max) nil nil t)))
(overlay-put ov 'window (selected-window))
(overlay-put ov 'face (let ((bg-color (face-background 'default nil)))
`(:background ,bg-color :foreground ,bg-color)))
(setq-local cursor-type nil)))))
(defun evil-collection-helm--set-prompt-display (pos)
(let (beg state region-active m)