From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 17 Aug 2019 23:56:13 +0000 (-0700)
Subject: Make `describe-function' say that disabled functions are disabled
X-Git-Tag: emacs-27.0.90~1576
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f38a16ee89a03b838fc29c298e36f9b93a1ebfd2;p=emacs.git

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

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 7c059c25b79..90a35715204 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.