File tree 1 file changed +7
-2
lines changed
1 file changed +7
-2
lines changed Original file line number Diff line number Diff line change @@ -76,6 +76,11 @@ buffers, this is a dREPL buffer or nil.")
76
76
(defvar drepl--log-buffer nil
77
77
" Name of the event log buffer, or nil to disable logging." )
78
78
79
+ (defvar drepl--display-buffer-action
80
+ (if (boundp 'display-comint-buffer-action ) ; Emacs >= 29, <= 30
81
+ display-comint-buffer-action
82
+ (append display-buffer--same-window-action '((category . comint)))))
83
+
79
84
; ;; Basic definitions
80
85
81
86
(cl-defstruct (drepl-base
@@ -122,7 +127,7 @@ addition to those of `drepl-base'."
122
127
(format " Start the %s interpreter. " display-name))
123
128
(interactive )
124
129
(pop-to-buffer (drepl--get-buffer-create ', name t )
125
- display-comint -buffer-action))
130
+ drepl--display -buffer-action))
126
131
(cl-defstruct (, name
127
132
(:include drepl-base (history-variable ', hist-var ))
128
133
(:copier nil )
@@ -324,7 +329,7 @@ interactively."
324
329
(if ask
325
330
(drepl--read-buffer " Pop to REPL: " )
326
331
(drepl--buffer (drepl--get-repl nil t )))
327
- display-comint -buffer-action))
332
+ drepl--display -buffer-action))
328
333
329
334
; ;; Complete operation
330
335
You can’t perform that action at this time.
0 commit comments