From 4a6c7bb8744bbbadf3b3b0be8660a2100ae3e7aa Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 7 Feb 2012 00:53:51 +0800 Subject: [PATCH] * doc.c (store_function_docstring): Fix last change. --- src/doc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/doc.c b/src/doc.c index ad2c667e771..02db4dde072 100644 --- 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. */ -- 2.39.2