]> git.eshelyaron.com Git - emacs.git/commitdiff
EUDC: Handle nil BOB button label
authorThomas Fitzsimmons <fitzsim@fitzsim.org>
Thu, 21 Apr 2022 21:24:29 +0000 (17:24 -0400)
committerThomas Fitzsimmons <fitzsim@fitzsim.org>
Thu, 21 Apr 2022 21:24:29 +0000 (17:24 -0400)
* lisp/net/eudc-bob.el (eudc-bob-make-button): Do not throw error
when label is nil.

lisp/net/eudc-bob.el

index 6a2cd13dd03c1b7cac7ea044adbcb9e790ed22d8..f543678fa2d5677cba12b3e09be5b022ecc76964 100644 (file)
@@ -124,7 +124,7 @@ LABEL."
   (let (overlay
        (p (point))
        prop val)
-    (insert label)
+    (insert (or label ""))
     (put-text-property p (point) 'face 'bold)
     (setq overlay (make-overlay p (point)))
     (overlay-put overlay 'mouse-face 'highlight)