Fix wrong-type-argument: commandp error when opening some REPLs
This commit is contained in:
parent
c31bb6a744
commit
53df5178a3
1 changed files with 5 additions and 1 deletions
|
@ -18,7 +18,11 @@
|
||||||
(funcall (if same-window-p #'switch-to-buffer #'pop-to-buffer)
|
(funcall (if same-window-p #'switch-to-buffer #'pop-to-buffer)
|
||||||
(if (buffer-live-p buffer)
|
(if (buffer-live-p buffer)
|
||||||
buffer
|
buffer
|
||||||
(setq buffer (save-window-excursion (call-interactively command)))
|
(setq buffer
|
||||||
|
(save-window-excursion
|
||||||
|
(if (commandp command)
|
||||||
|
(call-interactively command)
|
||||||
|
(funcall command))))
|
||||||
(unless (bufferp buffer)
|
(unless (bufferp buffer)
|
||||||
(error "REPL command didn't return a buffer"))
|
(error "REPL command didn't return a buffer"))
|
||||||
(with-current-buffer buffer (+eval-repl-mode +1))
|
(with-current-buffer buffer (+eval-repl-mode +1))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue