branch: externals/eldoc-eval
commit 7e6bc8656287cab08010bea12cb48648edc9e9d3
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
* 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)
