From: Glenn Morris <rgm@gnu.org>
Date: Fri, 1 May 2015 17:39:23 +0000 (-0400)
Subject: * lisp/emacs-lisp/pcase.el (pcase--make-docstring): Require help-fns.
X-Git-Tag: emacs-25.0.90~2229^2~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6b91bf5d4fe26dc97f967c875881d49c8da88ad;p=emacs.git

* lisp/emacs-lisp/pcase.el (pcase--make-docstring): Require help-fns.
---

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:"
 (defun pcase--make-docstring ()
   (let* ((main (documentation (symbol-function 'pcase) 'raw))
          (ud (help-split-fundoc main 'pcase)))
+    ;; So that eg emacs -Q -l cl-lib --eval "(documentation 'pcase)" works,
+    ;; where cl-lib is anything using pcase-defmacro.
+    (require 'help-fns)
     (with-temp-buffer
       (insert (or (cdr ud) main))
       (mapatoms