Mercurial > emacs
changeset 68492:f4d24a8eaed1
(toplevel): Define `cl-assertion-failed' condition here because the
`assert' macro from the cl package signals it at runtime.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 30 Jan 2006 19:55:29 +0000 |
| parents | b58a494227b0 |
| children | c120fbe75b72 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Mon Jan 30 16:15:20 2006 +0000 +++ b/lisp/subr.el Mon Jan 30 19:55:29 2006 +0000 @@ -1831,6 +1831,12 @@ 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.