From 1d21056c33920730ac304e7358bd56fd9d0c58a3 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 24 Jan 2003 22:15:24 +0000 Subject: Use a more specific signal rather than `error'. --- lispdoc.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lispdoc.el') 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))) -- cgit v1.2.3