diff options
author | Michael Heerdegen <michael_heerdegen@web.de> | 2015-07-01 06:00:13 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-07-01 06:00:13 +0200 |
commit | 957f819d5a5629a7fb20d2dc396fb22c47501a9d (patch) | |
tree | 0dde5920fcabade181ec1e7874efeed308bc345f | |
parent | 30762fc421ffe8bad4342d49b6f14bef98948c17 (diff) |
Add the function to hide minibuffer when header-line is in use.
* helm.el (helm-hide-minibuffer-maybe): New.
-rw-r--r-- | helm.el | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -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 |