branch: externals/eldoc-eval
commit 6514b3377f683cec49986f53ef11a7a8e1b281e8
Author: lattfein <[email protected]>
Commit: lattfein <[email protected]>
Silence the warning
---
eldoc-eval.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/eldoc-eval.el b/eldoc-eval.el
index 541e3b9d43..34995f29eb 100644
--- a/eldoc-eval.el
+++ b/eldoc-eval.el
@@ -91,6 +91,14 @@ Should take one arg: the string to display"
"When rolling mode-line is enabled, stop rolling on input when non--nil."
:type 'boolean)
+;;; 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
+;; minibuffer is in use, disable this and inline old Emacs behavior.
+;;
+(defconst eldoc-eval--old-message-function
+ (and (boundp 'eldoc-message-function) eldoc-message-function))
+
;; Internal.
(defvar eldoc-active-minibuffers-list nil
"List of active minibuffers with eldoc enabled.")
@@ -120,14 +128,6 @@ Should take one arg: the string to display"
'eldoc-post-insert-mode))
(define-key minibuffer-local-map (kbd "C-@") 'set-mark-command)))
-;;; 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
-;; minibuffer is in use, disable this and inline old Emacs behavior.
-;;
-(defconst eldoc-eval--old-message-function
- (and (boundp 'eldoc-message-function) eldoc-message-function))
-
(defadvice eldoc-display-message-no-interference-p
(after eldoc-eval activate)
(when eldoc-in-minibuffer-mode
