fix(common-lisp): recognize multi-argument inferior-lisp-program (#5515)

For example: 'ros -Q run'

Co-authored-by: liyang <7325560@qq.com>
This commit is contained in:
Li Yang 2021-09-24 18:42:45 +08:00 committed by GitHub
parent 2a0aa3d15b
commit 4c3ea13818
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -73,7 +73,7 @@
"Attempt to auto-start sly when opening a lisp buffer."
(cond ((or (doom-temp-buffer-p (current-buffer))
(sly-connected-p)))
((executable-find inferior-lisp-program)
((executable-find (car (split-string inferior-lisp-program)))
(let ((sly-auto-start 'always))
(sly-auto-start)
(add-hook 'kill-buffer-hook #'+common-lisp--cleanup-sly-maybe-h nil t)))