From ce9b7cc22c19da07f3cdc686797cfbc5e92961ee Mon Sep 17 00:00:00 2001 From: BT Templeton Date: Thu, 11 Aug 2011 23:56:55 -0400 Subject: [PATCH] standard error symbols * module/language/elisp/boot.el (error, wrong-type-argument, no-catch, invalid-function): Define `error-conditions' properties for these standard error symbols. --- module/language/elisp/boot.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el index a5346d577..cf22265e2 100644 --- a/module/language/elisp/boot.el +++ b/module/language/elisp/boot.el @@ -470,3 +470,9 @@ '())) (cond ,@(mapcar #'handler->cond-clause handlers) (t (signal ,error-symbol ,data))))))))) + +(put 'error 'error-conditions '(error)) +(put 'wrong-type-argument 'error-conditions '(wrong-type-argument error)) +(put 'invalid-function 'error-conditions '(invalid-function error)) +(put 'no-catch 'error-conditions '(no-catch error)) +