From 0c9d84ed62f9683f96e8d0868270e812421c7d38 Mon Sep 17 00:00:00 2001 From: Gracjan Polak Date: Thu, 19 Mar 2015 02:46:16 +0100 Subject: [PATCH] Keep test messages together. --- tests/compat/el-mock.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/tests/compat/el-mock.el b/tests/compat/el-mock.el index f4485686b..4d419c2ba 100644 --- a/tests/compat/el-mock.el +++ b/tests/compat/el-mock.el @@ -184,9 +184,8 @@ When you adapt Emacs Lisp Mock to a testing framework, wrap test method around t ;;;; message hack (defun mock-suppress-redefinition-message (func) "Erase \"ad-handle-definition: `%s' got redefined\" message." - (prog1 - (funcall func) - (message ""))) + (funcall func)) + (put 'mock-syntax-error 'error-conditions '(mock-syntax-error error)) (put 'mock-syntax-error 'error-message "Mock syntax error")