From 3df581972ffcd25ac8c8aaa4c0984843efc6aee1 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 1 Oct 2023 18:34:41 +0200 Subject: [PATCH] ; Simplify recent change in cl-defstruct * lisp/emacs-lisp/cl-macs.el (cl-defstruct): Use bound-and-true-p. Suggested by Robert Pluim . --- lisp/emacs-lisp/cl-macs.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.5