[elpa] externals/eldoc-eval 7e6bc86562 04/28: * eldoc-eval.el (eldoc-in-minibuffer-mode-lighter): New user var.

[Stefan Monnier]

branch: externals/eldoc-eval
commit 7e6bc8656287cab08010bea12cb48648edc9e9d3
Author: Thierry Volpiatto <thierry.volpiatto@gmail.com>
Commit: Thierry Volpiatto <thierry.volpiatto@gmail.com>

    * eldoc-eval.el (eldoc-in-minibuffer-mode-lighter): New user var.
    (eldoc-in-minibuffer-mode): Use it.
---
 eldoc-eval.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/eldoc-eval.el b/eldoc-eval.el
index 9036e4076a..df766e5144 100644
--- a/eldoc-eval.el
+++ b/eldoc-eval.el
@@ -77,6 +77,10 @@ Should take one arg: the string to display"
   "Whether minibuffer has its own frame or not."
   :type 'boolean)
 
+(defcustom eldoc-in-minibuffer-mode-lighter " Eldoc-eval"
+  "String displayed in mode-line when `eldoc-in-minibuffer-mode' is enabled."
+  :type 'string)
+
 ;;; Compatibility with Emacs-24.4
 ;; New implementation of eldoc in minibuffer that come
 ;; with Emacs-24.4 show the eldoc info of current-buffer while
@@ -187,7 +191,7 @@ See `with-eldoc-in-minibuffer'."
                      'eldoc-post-insert-mode))
         (define-key minibuffer-local-map (kbd "C-@")
           'eldoc-mode-line-toggle-rolling)
-        (setq eldoc-minor-mode-string " Eldoc-eval"))
+        (setq eldoc-minor-mode-string eldoc-in-minibuffer-mode-lighter))
       (setq eldoc-minor-mode-string " Eldoc")
       (when (boundp 'eldoc-message-function)
         (setq eldoc-message-function eldoc-eval--old-message-function)