[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103692: * emacs-lisp/ert.el (ert-run
From: |
Christian Ohler |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103692: * emacs-lisp/ert.el (ert-run-tests-batch): Remove unused variable. |
Date: |
Sun, 20 Mar 2011 21:17:10 +1100 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 103692
committer: Christian Ohler <address@hidden>
branch nick: trunk
timestamp: Sun 2011-03-20 21:17:10 +1100
message:
* emacs-lisp/ert.el (ert-run-tests-batch): Remove unused variable.
(ert-delete-all-tests): Use `called-interactively-p' rather than
`interactive-p'.
(ert--make-xrefs-region): Respect END.
modified:
lisp/ChangeLog
lisp/emacs-lisp/ert.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-03-19 22:07:41 +0000
+++ b/lisp/ChangeLog 2011-03-20 10:17:10 +0000
@@ -1,3 +1,10 @@
+2011-03-20 Christian Ohler <address@hidden>
+
+ * emacs-lisp/ert.el (ert-run-tests-batch): Remove unused variable.
+ (ert-delete-all-tests): Use `called-interactively-p' rather than
+ `interactive-p'.
+ (ert--make-xrefs-region): Respect END.
+
2011-03-19 Chong Yidong <address@hidden>
* dired-aux.el (dired-create-directory): Signal an error if the
=== modified file 'lisp/emacs-lisp/ert.el'
--- a/lisp/emacs-lisp/ert.el 2011-03-03 09:01:51 +0000
+++ b/lisp/emacs-lisp/ert.el 2011-03-20 10:17:10 +0000
@@ -1482,9 +1482,8 @@
(let ((print-escape-newlines t)
(print-level 5)
(print-length 10))
- (let ((begin (point)))
- (ert--pp-with-indentation-and-newline
- (ert-test-result-with-condition-condition result))))
+ (ert--pp-with-indentation-and-newline
+ (ert-test-result-with-condition-condition result)))
(goto-char (1- (point-max)))
(assert (looking-at "\n"))
(delete-char 1)
@@ -1603,7 +1602,7 @@
(defun ert-delete-all-tests ()
"Make all symbols in `obarray' name no test."
(interactive)
- (when (interactive-p)
+ (when (called-interactively-p 'any)
(unless (y-or-n-p "Delete all tests? ")
(error "Aborted")))
;; We can't use `ert-select-tests' here since that gives us only
@@ -1793,7 +1792,7 @@
BEGIN and END specify a region in the current buffer."
(save-excursion
(save-restriction
- (narrow-to-region begin (point))
+ (narrow-to-region begin end)
;; Inhibit optimization in `debugger-make-xrefs' that would
;; sometimes insert unrelated backtrace info into our buffer.
(let ((debugger-previous-backtrace nil))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103692: * emacs-lisp/ert.el (ert-run-tests-batch): Remove unused variable.,
Christian Ohler <=