Commit 888e51f2 authored by Glenn Morris's avatar Glenn Morris

Update describe-function for recent Fdocumentation change

* lisp/help-fns.el (describe-function-1):
Handle Fdocumentation returning either void or invalid.
parent 75bb4827
......@@ -698,7 +698,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
;; for invalid functions i.s.o. signaling an error.
(documentation function t)
;; E.g. an alias for a not yet defined function.
(invalid-function nil)))
((invalid-function void-function) nil)))
(key-bindings-buffer (current-buffer)))
;; If the function is autoloaded, and its docstring has
......@@ -718,7 +718,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
(if (subrp def) (indirect-function real-def) real-def)
real-function key-bindings-buffer)
;; E.g. an alias for a not yet defined function.
(invalid-function doc-raw))))
((invalid-function void-function) doc-raw))))
(run-hook-with-args 'help-fns-describe-function-functions function)
(insert "\n" (or doc "Not documented.")))
;; Avoid asking the user annoying questions if she decides
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment