[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112246: * lisp/emacs-lisp/ert.el (sh
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112246: * lisp/emacs-lisp/ert.el (should, should-not, should-error): Add edebug |
Date: |
Sun, 07 Apr 2013 14:56:28 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 112246
author: Nic Ferrier <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2013-04-07 14:56:28 -0400
message:
* lisp/emacs-lisp/ert.el (should, should-not, should-error): Add edebug
declaration.
modified:
lisp/ChangeLog
lisp/emacs-lisp/ert.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-04-07 07:14:00 +0000
+++ b/lisp/ChangeLog 2013-04-07 18:56:28 +0000
@@ -1,3 +1,8 @@
+2013-04-07 Nic Ferrier <address@hidden>
+
+ * emacs-lisp/ert.el (should, should-not, should-error): Add edebug
+ declaration.
+
2013-04-07 Leo Liu <address@hidden>
* pcmpl-x.el: New file.
@@ -31,8 +36,8 @@
2013-04-05 Dmitry Gutov <address@hidden>
- * whitespace.el (whitespace-color-on, whitespace-color-off): Only
- call `font-lock-fontify-buffer' when `font-lock-mode' is on.
+ * whitespace.el (whitespace-color-on, whitespace-color-off):
+ Only call `font-lock-fontify-buffer' when `font-lock-mode' is on.
2013-04-05 Jacek ChrzÄ…szcz <address@hidden> (tiny change)
=== modified file 'lisp/emacs-lisp/ert.el'
--- a/lisp/emacs-lisp/ert.el 2013-02-04 07:46:22 +0000
+++ b/lisp/emacs-lisp/ert.el 2013-04-07 18:56:28 +0000
@@ -464,6 +464,7 @@
"Evaluate FORM. If it returns nil, abort the current test as failed.
Returns the value of FORM."
+ (declare (debug t)))
(ert--expand-should `(should ,form) form
(lambda (inner-form form-description-form _value-var)
`(unless ,inner-form
@@ -473,6 +474,7 @@
"Evaluate FORM. If it returns non-nil, abort the current test as failed.
Returns nil."
+ (declare (debug t)))
(ert--expand-should `(should-not ,form) form
(lambda (inner-form form-description-form _value-var)
`(unless (not ,inner-form)
@@ -520,6 +522,7 @@
If the error matches, returns (ERROR-SYMBOL . DATA) from the
error. If not, or if no error was signaled, abort the test as
failed."
+ (declare (debug t))
(unless type (setq type ''error))
(ert--expand-should
`(should-error ,form ,@keys)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112246: * lisp/emacs-lisp/ert.el (should, should-not, should-error): Add edebug,
Stefan Monnier <=