diff options
| author | Stefan Kangas | 2023-10-01 18:34:41 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2023-10-01 18:45:36 +0200 |
| commit | 3df581972ffcd25ac8c8aaa4c0984843efc6aee1 (patch) | |
| tree | 87463f22fc93a144168671c9867b70f7f3556857 | |
| parent | 248adb4b770e5c14f50dc8ad21ce9fa44f89a586 (diff) | |
| download | emacs-3df581972ffcd25ac8c8aaa4c0984843efc6aee1.tar.gz emacs-3df581972ffcd25ac8c8aaa4c0984843efc6aee1.zip | |
; 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>.
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
1 files 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 | |||
| 3200 | ;; choose to avoid the byte-compiler | 3200 | ;; choose to avoid the byte-compiler |
| 3201 | ;; warnings. | 3201 | ;; warnings. |
| 3202 | (if (>= (length long-docstring) | 3202 | (if (>= (length long-docstring) |
| 3203 | (or (and (boundp 'byte-compile-docstring-max-column) | 3203 | (or (bound-and-true-p |
| 3204 | byte-compile-docstring-max-column) | 3204 | byte-compile-docstring-max-column) |
| 3205 | 80)) | 3205 | 80)) |
| 3206 | (concat | 3206 | (concat |
| 3207 | (internal--format-docstring-line | 3207 | (internal--format-docstring-line |