Use a more specific signal rather than `error'.

1 files changed, 2 insertions, 1 deletions

diff --git a/lispdoc.el b/lispdoc.el
index 31da3b9..bbeb778 100644
--- a/lispdoc.el
+++ b/lispdoc.el
@@ -14,7 +14,8 @@
 	(if (and begin end)
 	    (delete-region begin end))
 	(let* ((sym (or (intern-soft name)
-			(error "'%s' is not a function!" name)))
+			(signal 'wrong-type-argument
+				(list 'functionp name))))
 	       (data (let ((func (symbol-function sym)))
 		       (while (symbolp func)
 			 (setq func (symbol-function func)))