*** no comment ***

1 files changed, 4 insertions, 1 deletions

diff --git a/lispdoc.el b/lispdoc.el
index ba5fdfd..31da3b9 100644
--- a/lispdoc.el
+++ b/lispdoc.el
@@ -15,7 +15,10 @@
 	    (delete-region begin end))
 	(let* ((sym (or (intern-soft name)
 			(error "'%s' is not a function!" name)))
-	       (data (symbol-function sym))
+	       (data (let ((func (symbol-function sym)))
+		       (while (symbolp func)
+			 (setq func (symbol-function func)))
+		       func))
 	       (args (pp-to-string (if (listp data)
 				       (cadr data)
 				     (aref data 0))))