[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2c0f6c3: Suppress interactive-only warnings in undo
From: |
Noam Postavsky |
Subject: |
[Emacs-diffs] master 2c0f6c3: Suppress interactive-only warnings in undo-tests.el (Bug#36565) |
Date: |
Thu, 8 Aug 2019 08:29:37 -0400 (EDT) |
branch: master
commit 2c0f6c3540ccad4b5832e9e00ece483a6a456bbb
Author: Stefan Kangas <address@hidden>
Commit: Noam Postavsky <address@hidden>
Suppress interactive-only warnings in undo-tests.el (Bug#36565)
* test/src/undo-tests.el (undo-test-region-deletion)
(undo-test-region-example, undo-test-marker-adjustment-nominal)
(undo-test-region-t-marker, undo-test-marker-adjustment-moved)
(undo-test-region-mark-adjustment): Suppress interactive-only warnings
by using funcall-interactively.
---
test/src/undo-tests.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/test/src/undo-tests.el b/test/src/undo-tests.el
index 8395ba9..fc2dfe0 100644
--- a/test/src/undo-tests.el
+++ b/test/src/undo-tests.el
@@ -255,7 +255,7 @@
(insert "12345")
(search-backward "4")
(undo-boundary)
- (delete-forward-char 1)
+ (funcall-interactively 'delete-forward-char 1)
(search-backward "1")
(undo-boundary)
(insert "xxxx")
@@ -299,7 +299,7 @@ undo-make-selective-list."
(insert "ddd")
(search-backward "ad")
(undo-boundary)
- (delete-forward-char 2)
+ (funcall-interactively 'delete-forward-char 2)
(undo-boundary)
;; Select "dd"
(push-mark (point) t t)
@@ -348,7 +348,7 @@ undo-make-selective-list."
(let ((m (make-marker)))
(set-marker m 2 (current-buffer))
(goto-char (point-min))
- (delete-forward-char 3)
+ (funcall-interactively 'delete-forward-char 3)
(undo-boundary)
(should (= (point-min) (marker-position m)))
(undo)
@@ -369,7 +369,7 @@ undo-make-selective-list."
(push-mark (point) t t)
(setq mark-active t)
(goto-char (point-min))
- (delete-forward-char 1) ;; delete region covering "ab"
+ (funcall-interactively 'delete-forward-char 1) ; delete region covering
"ab"
(undo-boundary)
(should (= (point-min) (marker-position m)))
;; Resurrect "ab". m's insertion type means the reinsertion
@@ -389,7 +389,7 @@ Demonstrates bug 16818."
(let ((m (make-marker)))
(set-marker m 2 (current-buffer)) ; m at b
(goto-char (point-min))
- (delete-forward-char 3) ; m at d
+ (funcall-interactively 'delete-forward-char 3) ; m at d
(undo-boundary)
(set-marker m 4) ; m at g
(undo)
@@ -422,7 +422,7 @@ Demonstrates bug 16818."
(push-mark (point) t t)
(setq mark-active t)
(goto-char (- (point) 3))
- (delete-forward-char 1)
+ (funcall-interactively 'delete-forward-char 1)
(undo-boundary)
(insert "bbb")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2c0f6c3: Suppress interactive-only warnings in undo-tests.el (Bug#36565),
Noam Postavsky <=