diff options
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 978c3f0dd30..b4bf6404bef 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el | |||
| @@ -164,6 +164,9 @@ Currently, the following patterns are provided this way:" | |||
| 164 | (defun pcase--make-docstring () | 164 | (defun pcase--make-docstring () |
| 165 | (let* ((main (documentation (symbol-function 'pcase) 'raw)) | 165 | (let* ((main (documentation (symbol-function 'pcase) 'raw)) |
| 166 | (ud (help-split-fundoc main 'pcase))) | 166 | (ud (help-split-fundoc main 'pcase))) |
| 167 | ;; So that eg emacs -Q -l cl-lib --eval "(documentation 'pcase)" works, | ||
| 168 | ;; where cl-lib is anything using pcase-defmacro. | ||
| 169 | (require 'help-fns) | ||
| 167 | (with-temp-buffer | 170 | (with-temp-buffer |
| 168 | (insert (or (cdr ud) main)) | 171 | (insert (or (cdr ud) main)) |
| 169 | (mapatoms | 172 | (mapatoms |