Use a more specific signal rather than `error'.

diff --git a/lispdoc.el b/lispdoc.el
index 31da3b9523f8c11a1465badb2515ffa252da16ee..bbeb778eee506fe9e01c1bbc8638e4946d307d1f 100644 (file)
--- 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)))