From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 13 Sep 2023 16:22:51 +0000 (+0200)
Subject: ; Fix bootstrap
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32ded573cc4a58546ad60b44f454ba86c80a929d;p=emacs.git

; Fix bootstrap

* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Don't use void variable.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index ef00f9e4fe4..7c207d372fc 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3199,7 +3199,10 @@ To see the documentation for a defined struct type, use
                            ;; can't have a perfect result here, and
                            ;; choose to avoid the byte-compiler
                            ;; warnings.
-                           (if (>= (length long-docstring) byte-compile-docstring-max-column)
+                           (if (>= (length long-docstring)
+                                   (or (and (boundp 'byte-compile-docstring-max-column)
+                                            byte-compile-docstring-max-column)
+                                       80))
                                (concat
                                 (internal--format-docstring-line
                                  "Access slot \"%s\" of CL-X." slot)