From f37cac8ebefdb0f517cbb344fe62c1e5287b2255 Mon Sep 17 00:00:00 2001 From: Mario Rodas Date: Sun, 26 Jan 2025 04:20:00 +0000 Subject: Fix compatibility with Emacs 31 Emacs 31 removed the deprecated variable display-comint-buffer-action. Copyright-paperwork-exempt: yes --- drepl.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/drepl.el b/drepl.el index 4ba545a..05d9b4e 100644 --- a/drepl.el +++ b/drepl.el @@ -76,6 +76,11 @@ buffers, this is a dREPL buffer or nil.") (defvar drepl--log-buffer nil "Name of the event log buffer, or nil to disable logging.") +(defvar drepl--display-buffer-action + (if (boundp 'display-comint-buffer-action) ; Emacs >= 29, <= 30 + display-comint-buffer-action + (append display-buffer--same-window-action '((category . comint))))) + ;;; Basic definitions (cl-defstruct (drepl-base @@ -122,7 +127,7 @@ addition to those of `drepl-base'." (format "Start the %s interpreter." display-name)) (interactive) (pop-to-buffer (drepl--get-buffer-create ',name t) - display-comint-buffer-action)) + drepl--display-buffer-action)) (cl-defstruct (,name (:include drepl-base (history-variable ',hist-var)) (:copier nil) @@ -324,7 +329,7 @@ interactively." (if ask (drepl--read-buffer "Pop to REPL: ") (drepl--buffer (drepl--get-repl nil t))) - display-comint-buffer-action)) + drepl--display-buffer-action)) ;;; Complete operation -- cgit v1.0