summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Heerdegen <michael_heerdegen@web.de>2015-07-01 06:00:13 +0200
committerThierry Volpiatto <thierry.volpiatto@gmail.com>2015-07-01 06:00:13 +0200
commit957f819d5a5629a7fb20d2dc396fb22c47501a9d (patch)
tree0dde5920fcabade181ec1e7874efeed308bc345f
parent30762fc421ffe8bad4342d49b6f14bef98948c17 (diff)
Add the function to hide minibuffer when header-line is in use.
* helm.el (helm-hide-minibuffer-maybe): New.
-rw-r--r--helm.el11
1 files changed, 11 insertions, 0 deletions
diff --git a/helm.el b/helm.el
index e6222311..d3071242 100644
--- a/helm.el
+++ b/helm.el
@@ -3881,6 +3881,17 @@ Possible value of DIRECTION are 'next or 'previous."
(when (with-helm-buffer helm-echo-input-in-header-line)
(helm--set-header-line t)))
+(defun helm-hide-minibuffer-maybe ()
+ "Hide minibuffer contents in a Helm session.
+This function should normally go to `helm-minibuffer-set-up-hook'.
+It has no effect if `helm-echo-input-in-header-line' is 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 cursor-type nil))))
+
(defun helm-show-candidate-number (&optional name)
"Used to display candidate number in mode-line.
You can specify NAME of candidates e.g \"Buffers\" otherwise