[Emacs-diffs] master f38a16e: Make `describe-function' say that disabled functions are disabled

[Lars Ingebrigtsen]

branch: master
commit f38a16ee89a03b838fc29c298e36f9b93a1ebfd2
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Make `describe-function' say that disabled functions are disabled
    
    * lisp/help-fns.el (help-fns--disabled): New function (bug#10853).
    (help-fns-describe-function-functions): Add it to the list of
    function help functions.
---
 lisp/help-fns.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 7c059c2..90a3571 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -593,6 +593,12 @@ FILE is the file where FUNCTION was probably defined."
     (insert "  This function does not change global state, "
             "including the match data.\n")))
 
+(add-hook 'help-fns-describe-function-functions #'help-fns--disabled)
+(defun help-fns--disabled (function)
+  (when (and (symbolp function)
+             (function-get function 'disabled))
+    (insert "  This function is disabled.\n")))
+
 (defun help-fns--first-release (symbol)
   "Return the likely first release that defined SYMBOL, or nil."
   ;; Code below relies on the etc/NEWS* files.