From ae0d4c6d6866e1a3d3902e6b7bf784980e2b2443 Mon Sep 17 00:00:00 2001 From: James Nguyen Date: Fri, 30 Mar 2018 19:11:11 -0700 Subject: [PATCH] Helm: Fix another warning I think with-helm-buffer is a macro so this might be the best way to cover the warning. --- evil-collection-helm.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/evil-collection-helm.el b/evil-collection-helm.el index 1cd5cb4..3328ea6 100644 --- a/evil-collection-helm.el +++ b/evil-collection-helm.el @@ -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)