diff options
| author | Lars Ingebrigtsen | 2022-06-17 16:48:02 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-06-17 16:48:02 +0200 |
| commit | d671cd57c488ec792997fd4051440187dec3434f (patch) | |
| tree | 2385abc10ae53ff739694f2076cfe57cdc01f53a | |
| parent | 017bdb161141c0b5f3981a124bdeadc17a20a558 (diff) | |
| download | emacs-d671cd57c488ec792997fd4051440187dec3434f.tar.gz emacs-d671cd57c488ec792997fd4051440187dec3434f.zip | |
Update cl-struct-sequence-type doc string
* lisp/emacs-lisp/cl-macs.el (cl-struct-sequence-type): Fix doc
string to reflect what it does (bug#46523).
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index c27a43f3baf..85ebcaade71 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -3288,8 +3288,9 @@ the form NAME which is a shorthand for (NAME NAME)." | |||
| 3288 | 3288 | ||
| 3289 | (defun cl-struct-sequence-type (struct-type) | 3289 | (defun cl-struct-sequence-type (struct-type) |
| 3290 | "Return the sequence used to build STRUCT-TYPE. | 3290 | "Return the sequence used to build STRUCT-TYPE. |
| 3291 | STRUCT-TYPE is a symbol naming a struct type. Return `record', | 3291 | STRUCT-TYPE is a symbol naming a struct type. Return values are |
| 3292 | `vector', or `list' if STRUCT-TYPE is a struct type, nil otherwise." | 3292 | either `vector', `list' or nil (and the latter indicates a |
| 3293 | `record' struct type." | ||
| 3293 | (declare (side-effect-free t) (pure t)) | 3294 | (declare (side-effect-free t) (pure t)) |
| 3294 | (cl--struct-class-type (cl--struct-get-class struct-type))) | 3295 | (cl--struct-class-type (cl--struct-get-class struct-type))) |
| 3295 | 3296 | ||