From f38a16ee89a03b838fc29c298e36f9b93a1ebfd2 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 17 Aug 2019 16:56:13 -0700 Subject: [PATCH] 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 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. -- 2.39.2