From 9564fc33f5f0bcad2cb775ed8f597512ef6c0f1d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 27 Feb 2019 11:01:15 -0500 Subject: [PATCH] * lisp/emacs-lisp/pcase.el (pcase--make-docstring): Autoload --- lisp/emacs-lisp/pcase.el | 2 ++ 1 file changed, 2 insertions(+) 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." ;; FIXME: Obviously, this will collide with nadvice's use of ;; function-documentation if we happen to advise `pcase'. +;;;###autoload (put 'pcase 'function-documentation '(pcase--make-docstring)) +;;;###autoload (defun pcase--make-docstring () (let* ((main (documentation (symbol-function 'pcase) 'raw)) (ud (help-split-fundoc main 'pcase))) -- 2.39.2