; 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 7c207d372fcc19fe657199e4b8f6bf130088de6d..8025a64f1bf36200485318302e8ca77060f13c09 100644 (file)
--- 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