(toplevel): Define `cl-assertion-failed' condition here because the

`assert' macro from the cl package signals it at runtime.

diff --git a/lisp/subr.el b/lisp/subr.el
index d335a1d4e0f13978662dd7cedb91ccb3c40ccf1d..94d667bb5f2fdf6c7d23e83db57fed0b096cd9e1 100644 (file)
--- 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")
+
 \f
 ;;;; Misc. useful functions.