diff options
author | Richard M. Stallman <[email protected]> | 2007-10-19 17:23:38 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2007-10-19 17:23:38 +0000 |
commit | 2a1534d3c320e010e61d133de005450463dd8091 (patch) | |
tree | e0718b3f9b8a7f22087fec10ae69e45f05713e1c /src/doc.c | |
parent | 8872469d6c8d1feec637629c2527825d0a2f35f6 (diff) |
(Fdocumentation): Check for and handle an advised function.
Diffstat (limited to 'src/doc.c')
-rw-r--r-- | src/doc.c | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -434,6 +434,18 @@ string is passed through `substitute-command-keys'. */) doc = tem; else return Qnil; + + /* Check for an advised function. Its doc string + has an `ad-advice-info' text property. */ + if (STRINGP (doc)) + { + Lisp_Object innerfunc; + innerfunc = Fget_text_property (make_number (0), + intern ("ad-advice-info"), + doc); + if (! NILP (innerfunc)) + doc = call1 (intern ("ad-make-advised-docstring"), innerfunc); + } } else if (EQ (funcar, Qmacro)) return Fdocumentation (Fcdr (fun), raw); |