diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-08-19 10:29:05 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-08-30 20:07:39 -0400 |
| commit | 160295867de98241a16f2ede93da7e825ed4406b (patch) | |
| tree | baaa7f79de77709485e799b2aa1067a44f17dc71 /lisp/emacs-lisp | |
| parent | bc5d96a0b2a1dccf7eeeec459e40d21b54c977f4 (diff) | |
| download | emacs-160295867de98241a16f2ede93da7e825ed4406b.tar.gz emacs-160295867de98241a16f2ede93da7e825ed4406b.tar.bz2 emacs-160295867de98241a16f2ede93da7e825ed4406b.zip | |
Support lazy loading for autogenerated usage docstrings too (Bug#27748)
* lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-defmumble):
Consider any documentation that ended up in code as a docstring (e.g.,
autogenerated (fn ARG1 ARG2) type things), not just what the user
passed.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index dc8839e6f99..c3bb7776411 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2569,7 +2569,7 @@ not to take responsibility for the actual compilation of the code." (let ((index ;; If there's no doc string, provide -1 as the "doc string ;; index" so that no element will be treated as a doc string. - (if (not (stringp (car body))) -1 4))) + (if (not (stringp (documentation code t))) -1 4))) ;; Output the form by hand, that's much simpler than having ;; b-c-output-file-form analyze the defalias. (byte-compile-output-docform |