[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/workroom a00e8561cb 2/2: Use 'get-scratch-buffer-create' i
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/workroom a00e8561cb 2/2: Use 'get-scratch-buffer-create' if defined |
Date: |
Mon, 12 Dec 2022 05:59:55 -0500 (EST) |
branch: elpa/workroom
commit a00e8561cb2c06416346b455298bd9f6620b7d8c
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>
Use 'get-scratch-buffer-create' if defined
---
workroom.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/workroom.el b/workroom.el
index abf7944013..65ebd7635c 100644
--- a/workroom.el
+++ b/workroom.el
@@ -1249,9 +1249,9 @@ ACTION and ARGS are also described there."
(pcase (cons action args)
('(:initialize)
(setf (workroom-buffer-manager-data room)
- (list (if (< emacs-major-version 29)
- (get-buffer-create "*scratch*")
- (get-scratch-buffer-create)))))
+ (list (if (fboundp 'get-scratch-buffer-create)
+ (get-scratch-buffer-create)
+ (get-buffer-create "*scratch*")))))
('(:list-buffers)
(workroom-buffer-manager-data room))
(`(:add-buffer ,buffer)