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:
parent
2a0aa3d15b
commit
4c3ea13818
1 changed files with 1 additions and 1 deletions
|
@ -73,7 +73,7 @@
|
||||||
"Attempt to auto-start sly when opening a lisp buffer."
|
"Attempt to auto-start sly when opening a lisp buffer."
|
||||||
(cond ((or (doom-temp-buffer-p (current-buffer))
|
(cond ((or (doom-temp-buffer-p (current-buffer))
|
||||||
(sly-connected-p)))
|
(sly-connected-p)))
|
||||||
((executable-find inferior-lisp-program)
|
((executable-find (car (split-string inferior-lisp-program)))
|
||||||
(let ((sly-auto-start 'always))
|
(let ((sly-auto-start 'always))
|
||||||
(sly-auto-start)
|
(sly-auto-start)
|
||||||
(add-hook 'kill-buffer-hook #'+common-lisp--cleanup-sly-maybe-h nil t)))
|
(add-hook 'kill-buffer-hook #'+common-lisp--cleanup-sly-maybe-h nil t)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue