branch: externals/beframe
commit 71d1575a7ea8f41d1eba20a7232bfe6e2204da3f
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make stylistic changes to beframe--read-buffer-p
---
beframe.el | 19 +++++++++----------
1 file changed, 9 insertions(+), 10 deletions(-)
diff --git a/beframe.el b/beframe.el
index df33e42b72..2903c3295f 100644
--- a/beframe.el
+++ b/beframe.el
@@ -251,16 +251,15 @@ more information."
'beframe-buffer-names
"0.2.0")
-(defun beframe--read-buffer-p (buf &optional frame)
- "Return non-nil if BUF belongs to the current FRAME.
-BUF is a string or a cons cell, per `beframe-read-buffer'.
-If optional FRAME is nil, then default to the current one. Else
-it must satisfy `framep'."
- (let ((b buf))
- (when (consp buf)
- (setq b (car buf)))
- (unless (string-prefix-p " " b)
- (seq-contains-p (beframe-buffer-names frame) b))))
+(defun beframe--read-buffer-p (buffer &optional frame)
+ "Return non-nil if BUFFER belongs to the current FRAME.
+BUFFER is a string or a cons cell, per `beframe-read-buffer'. If
+optional FRAME is nil, then default to the current one. Else FRAME is
+an object that satisfies `framep'."
+ (when (consp buffer)
+ (setq buffer (car buffer)))
+ (unless (string-prefix-p " " buffer)
+ (seq-contains-p (beframe-buffer-names frame) buffer)))
(defvar beframe-history nil
"Minibuffer history of frame specific buffers.")
