* doc.c (store_function_docstring): Fix last change.

[bpt/emacs.git] / src / doc.c

diff --git a/src/doc.c b/src/doc.c
index ad2c667..02db4dd 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -502,12 +502,12 @@ aren't strings.  */)
 /* Scanning the DOC files and placing docstring offsets into functions.  */
 
 static void
-store_function_docstring (Lisp_Object sym, EMACS_INT offset)
+store_function_docstring (Lisp_Object obj, EMACS_INT offset)
 /* Use EMACS_INT because we get offset from pointer subtraction.  */
 {
   /* Don't use indirect_function here, or defaliases will apply their
      docstrings to the base functions (Bug#2603).  */
-  Lisp_Object fun = XSYMBOL (sym)->function;
+  Lisp_Object fun = SYMBOLP (obj) ? XSYMBOL (obj)->function : obj;
 
   /* The type determines where the docstring is stored.  */