[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/workroom 839ed03e48 1/2: Fix #1: Don't use 'get-scratch-bu
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/workroom 839ed03e48 1/2: Fix #1: Don't use 'get-scratch-buffer-create' on Emacs < 29 |
Date: |
Mon, 12 Dec 2022 05:59:55 -0500 (EST) |
branch: elpa/workroom
commit 839ed03e48fe65eea45defe0f14ba2790bcc6a47
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>
Fix #1: Don't use 'get-scratch-buffer-create' on Emacs < 29
---
workroom.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/workroom.el b/workroom.el
index e6d9a579a1..abf7944013 100644
--- a/workroom.el
+++ b/workroom.el
@@ -1249,7 +1249,9 @@ ACTION and ARGS are also described there."
(pcase (cons action args)
('(:initialize)
(setf (workroom-buffer-manager-data room)
- (list (get-scratch-buffer-create))))
+ (list (if (< emacs-major-version 29)
+ (get-buffer-create "*scratch*")
+ (get-scratch-buffer-create)))))
('(:list-buffers)
(workroom-buffer-manager-data room))
(`(:add-buffer ,buffer)