From 28ac46f87d7254fa03072625609b65cadd9e09b5 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 30 Jan 2006 19:55:29 +0000 Subject: [PATCH] (toplevel): Define `cl-assertion-failed' condition here because the `assert' macro from the cl package signals it at runtime. --- lisp/subr.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/subr.el b/lisp/subr.el index d335a1d4e0f..94d667bb5f2 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1831,6 +1831,12 @@ mode.") This variable is meaningful on MS-DOG and Windows NT. On those systems, it is automatically local in every buffer. On other systems, this variable is normally always nil.") + +;; The `assert' macro from the cl package signals +;; `cl-assertion-failed' at runtime so always define it. +(put 'cl-assertion-failed 'error-conditions '(error)) +(put 'cl-assertion-failed 'error-message "Assertion failed") + ;;;; Misc. useful functions. -- 2.39.2