procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Extract eldoc--supported-p

Browse source 
* 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)
This commit is contained in:
Dmitry Gutov 2017-05-31 01:29:34 +03:00
parent dd5b1c0d68
commit e3b51b080f
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/eldoc.el
View file

@ -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