[elpa] externals/beframe 636c6f9f42 1/5: Insert initial-scratch-message only if it is a string

[ELPA Syncer]

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

    Insert initial-scratch-message only if it is a string
    
    Thanks to Karan Ahlawat for reporting the issue on the mailing list:
    
https://lists.sr.ht/~protesilaos/general-issues/%3CCAASJSc%2BamVKhneRbrg%2B9SXSUnTo0PhgfeHB32RGSFA_L_usFRA%40mail.gmail.com%3E#%3C87o7pccmxo.fsf@gmail.com%3E
---
 beframe.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/beframe.el b/beframe.el
index 80a220f74e..5ec6eb8c04 100644
--- a/beframe.el
+++ b/beframe.el
@@ -394,7 +394,8 @@ its placement and other parameters."
          (buf (get-buffer-create (format "*scratch for %s*" name))))
     (with-current-buffer buf
       (funcall initial-major-mode)
-      (when (zerop (buffer-size))
+      (when (and (zerop (buffer-size))
+                 (stringp initial-scratch-message))
         (insert initial-scratch-message))
       (add-hook 'delete-frame-functions
                 (lambda (frame)