[elpa] externals/beframe accb1e9ece 2/4: Simplify beframe-create-scratch-buffer

[ELPA Syncer]

branch: externals/beframe
commit accb1e9ecef14f149360bde419c72a9e82d96a54
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Simplify beframe-create-scratch-buffer
---
 beframe.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/beframe.el b/beframe.el
index 4c77fa496e..4b33d3fe1c 100644
--- a/beframe.el
+++ b/beframe.el
@@ -389,10 +389,9 @@ its placement and other parameters."
     (remove-hook 'after-make-frame-functions #'beframe-create-scratch-buffer)
     (beframe--functions-in-frames :disable)))
 
-(defun beframe-create-scratch-buffer (name)
-  "Create scratch buffer in `initial-major-mode' for frame with NAME.
-NAME is either a string or a frame object (per `framep')."
-  (let* ((name (if (framep name) (frame-parameter name 'name) name))
+(defun beframe-create-scratch-buffer (frame)
+  "Create scratch buffer in `initial-major-mode' for FRAME."
+  (let* ((name (frame-parameter frame 'name))
          (buf (get-buffer-create (format "*scratch for %s*" name))))
     (with-current-buffer buf
       (funcall initial-major-mode)