[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master e3b51b0: Extract eldoc--supported-p
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] master e3b51b0: Extract eldoc--supported-p |
Date: |
Tue, 30 May 2017 18:30:24 -0400 (EDT) |
branch: master
commit e3b51b080fab02f579b7c6a91b609a2c0aca8339
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Extract eldoc--supported-p
* lisp/emacs-lisp/eldoc.el (eldoc--supported-p): New function.
(turn-on-eldoc-mode, eldoc-mode): Use it.
(http://lists.gnu.org/archive/html/emacs-devel/2017-05/msg00865.html)
---
lisp/emacs-lisp/eldoc.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index b0f6ea4..40f5e2e 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -186,7 +186,7 @@ expression point is on."
:group 'eldoc :lighter eldoc-minor-mode-string
(setq eldoc-last-message nil)
(cond
- ((memq eldoc-documentation-function '(nil ignore))
+ ((not (eldoc--supported-p))
(when (called-interactively-p 'any)
(message "There is no ElDoc support in this buffer"))
(setq eldoc-mode nil))
@@ -213,9 +213,12 @@ expression point is on."
(defun turn-on-eldoc-mode ()
"Turn on `eldoc-mode' if the buffer has eldoc support enabled.
See `eldoc-documentation-function' for more detail."
- (unless (memq eldoc-documentation-function '(nil ignore))
+ (when (eldoc--supported-p)
(eldoc-mode 1)))
+(defun eldoc--supported-p ()
+ (not (memq eldoc-documentation-function '(nil ignore))))
+
(defun eldoc-schedule-timer ()
(or (and eldoc-timer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master e3b51b0: Extract eldoc--supported-p,
Dmitry Gutov <=