+2007-10-19 Richard Stallman <rms@gnu.org>
+
+ * doc.c (Fdocumentation): Check for and handle an advised function.
+
2007-10-19 Juanma Barranquero <lekktu@gmail.com>
* process.c (Fset_process_filter): Doc fix.
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);