procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* test/lisp/simple-tests.el (simple-tests-async-shell-command-30280):

Browse source 
Use the correct emacs executable, not first in PATH.
This commit is contained in:
Glenn Morris 2018-06-17 10:22:28 -07:00
parent 45ee24efed
commit 2d1b774dbc
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/lisp/simple-tests.el
View file

@ -533,7 +533,9 @@ See Bug#21722."
(second (generate-new-buffer-name base))
;; `save-window-excursion' doesn't restore frame configurations.
(pop-up-frames nil)
(inhibit-message t))
(inhibit-message t)
(emacs (expand-file-name invocation-name invocation-directory)))
(skip-unless (file-executable-p emacs))
;; Let `shell-command' create the buffer as needed.
(kill-buffer first)
(unwind-protect
@ -544,7 +546,7 @@ See Bug#21722."
;; `accept-process-output' is called on the second command.
(dolist (form '("(sleep-for 8)" "(message \"\")"))
(async-shell-command (format "%s -Q -batch -eval '%s'"
invocation-name form)
emacs form)
first))
;; First command should neither have nor display output.
(let* ((buffer (get-buffer first))