From: Stefan Kangas <stefankangas@gmail.com>
Date: Sun, 1 Oct 2023 16:34:41 +0000 (+0200)
Subject: ; Simplify recent change in cl-defstruct
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3df581972ffcd25ac8c8aaa4c0984843efc6aee1;p=emacs.git

; Simplify recent change in cl-defstruct

* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Use bound-and-true-p.
Suggested by Robert Pluim <rpluim@gmail.com>.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 7c207d372fc..8025a64f1bf 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3200,8 +3200,8 @@ To see the documentation for a defined struct type, use
                            ;; choose to avoid the byte-compiler
                            ;; warnings.
                            (if (>= (length long-docstring)
-                                   (or (and (boundp 'byte-compile-docstring-max-column)
-                                            byte-compile-docstring-max-column)
+                                   (or (bound-and-true-p
+                                        byte-compile-docstring-max-column)
                                        80))
                                (concat
                                 (internal--format-docstring-line