[nongnu] elpa/popon 9579f33f1e: Don't error if line-prefix and wrap-prefix isn't a string

[ELPA Syncer]

branch: elpa/popon
commit 9579f33f1e5a54c472525adaccf736cbb615958a
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Don't error if line-prefix and wrap-prefix isn't a string
---
 popon.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/popon.el b/popon.el
index 50973ef37f..0fb0fe4499 100644
--- a/popon.el
+++ b/popon.el
@@ -364,13 +364,14 @@ order."
                          (or (get-text-property 0 'wrap-prefix
                                                 disp-str)
                              wrap-prefix))))
-                  (setq disp-str
-                        (propertize (concat prefix disp-str)
-                                    ;; Set these to empty strings to
-                                    ;; avoid using the buffer-local
-                                    ;; variables.
-                                    'line-prefix ""
-                                    'wrap-prefix ""))))
+                  (when (stringp prefix)
+                    (setq disp-str
+                          (propertize (concat prefix disp-str)
+                                      ;; Set these to empty strings to
+                                      ;; avoid using the buffer-local
+                                      ;; variables.
+                                      'line-prefix ""
+                                      'wrap-prefix "")))))
               (push (list disp-str nil nil line mark
                           (if (equal str disp-str)
                               (point)