diff options
| author | Stefan Monnier | 2019-02-27 11:01:15 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2019-02-27 11:01:15 -0500 |
| commit | 9564fc33f5f0bcad2cb775ed8f597512ef6c0f1d (patch) | |
| tree | cfcaf8d3f32685b0631d2abb2ce302b1cc756cdd | |
| parent | 52cd63d52810cc6463c0876d83d688fcb9593192 (diff) | |
| download | emacs-9564fc33f5f0bcad2cb775ed8f597512ef6c0f1d.tar.gz emacs-9564fc33f5f0bcad2cb775ed8f597512ef6c0f1d.zip | |
* lisp/emacs-lisp/pcase.el (pcase--make-docstring): Autoload
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 40e9ba1c14a..9de24015494 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el | |||
| @@ -176,7 +176,9 @@ Emacs Lisp manual for more information and examples." | |||
| 176 | 176 | ||
| 177 | ;; FIXME: Obviously, this will collide with nadvice's use of | 177 | ;; FIXME: Obviously, this will collide with nadvice's use of |
| 178 | ;; function-documentation if we happen to advise `pcase'. | 178 | ;; function-documentation if we happen to advise `pcase'. |
| 179 | ;;;###autoload | ||
| 179 | (put 'pcase 'function-documentation '(pcase--make-docstring)) | 180 | (put 'pcase 'function-documentation '(pcase--make-docstring)) |
| 181 | ;;;###autoload | ||
| 180 | (defun pcase--make-docstring () | 182 | (defun pcase--make-docstring () |
| 181 | (let* ((main (documentation (symbol-function 'pcase) 'raw)) | 183 | (let* ((main (documentation (symbol-function 'pcase) 'raw)) |
| 182 | (ud (help-split-fundoc main 'pcase))) | 184 | (ud (help-split-fundoc main 'pcase))) |