branch: elpa/popup
commit e208b136de9551d77904c1de8e8a3184b557a6fb
Author: yuuki arisawa <yuuki....@gmail.com>
Commit: yuuki arisawa <yuuki....@gmail.com>
Setup for batch mode
---
tests/popup-test.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/tests/popup-test.el b/tests/popup-test.el
index 98c6fee..48271d3 100644
--- a/tests/popup-test.el
+++ b/tests/popup-test.el
@@ -6,6 +6,9 @@
(set-default 'truncate-lines t)
+(when (< (frame-width) (length "long long long long line"))
+ (set-frame-size (selected-frame) 80 35))
+
(defmacro popup-test-with-create-popup (&rest body)
(declare (indent 0) (debug t))
`(let ((popup (popup-create (point) 10 10)))
@@ -20,6 +23,7 @@
`(save-excursion
(with-temp-buffer
(switch-to-buffer (current-buffer))
+ (delete-other-windows)
(erase-buffer)
,@body
)))
