diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-01-11 11:24:38 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-01-11 11:24:38 -0500 |
| commit | 1f7f03742de79b143efdbc8c005c31adfe0600db (patch) | |
| tree | 46c654ea4ba251521716c36873a616ea8795976b | |
| parent | dbb4aac212833035203efb969339b71aff86f2ea (diff) | |
| download | emacs-1f7f03742de79b143efdbc8c005c31adfe0600db.tar.gz emacs-1f7f03742de79b143efdbc8c005c31adfe0600db.tar.bz2 emacs-1f7f03742de79b143efdbc8c005c31adfe0600db.zip | |
* lisp/emacs-lisp/generator.el (iter-defun): Add 'doc-string' prop.
| -rw-r--r-- | lisp/emacs-lisp/generator.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/generator.el b/lisp/emacs-lisp/generator.el index b19f6fab722..506df59d8e2 100644 --- a/lisp/emacs-lisp/generator.el +++ b/lisp/emacs-lisp/generator.el @@ -681,7 +681,8 @@ When called as a function, NAME returns an iterator value that encapsulates the state of a computation that produces a sequence of values. Callers can retrieve each value using `iter-next'." (declare (indent defun) - (debug (&define name lambda-list lambda-doc def-body))) + (debug (&define name lambda-list lambda-doc def-body)) + (doc-string 3)) (cl-assert lexical-binding) (let* ((parsed-body (macroexp-parse-body body)) (declarations (car parsed-body)) |