From 6016b6e4dc30a334ab130f21f5400d178ce863d3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 16 Feb 1999 23:09:54 +0000 Subject: [PATCH] (describe-function-1): Accept non-symbols. --- lisp/help.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/help.el b/lisp/help.el index 2120a2ce9f6..833239825e1 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -600,7 +600,9 @@ It can also be nil, if the definition is not associated with any file." (message "You didn't specify a function"))) (defun describe-function-1 (function parens) - (let* ((def (symbol-function function)) + (let* ((def (if (symbolp function) + (symbol-function function) + function)) file-name string need-close (beg (if (commandp def) "an interactive " "a "))) (setq string -- 2.39.2