diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/simple-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index 276df795fca..8c477165a4f 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el @@ -724,7 +724,7 @@ See Bug#21722." (,output-buf (if ,output-buffer-is-current ,caller-buf (generate-new-buffer "output-buf"))) (emacs (expand-file-name invocation-name invocation-directory)) - (,command (format "%s -Q --batch --eval '(princ \"%s\")'" + (,command (format "%s -Q --batch --eval \"(princ \\\"%s\\\")\"" emacs ,str)) (inhibit-message t)) (unwind-protect @@ -761,7 +761,7 @@ See Bug#21722." (expected-point `((beg-last-out . ,(1+ (length str))) (end-last-out . ,(1+ (* 2 (length str)))) (save-point . 1)))) - (dolist (output-buffer-is-current '(t ni)) + (dolist (output-buffer-is-current '(nil)) (with-shell-command-dont-erase-buffer str output-buffer-is-current (when (memq shell-command-dont-erase-buffer '(beg-last-out end-last-out save-point)) (should (= (point) (alist-get shell-command-dont-erase-buffer expected-point)))))))) |