mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 23:10:47 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Glenn Morris 2015-05-01 13:39:23 -04:00
parent 85eb934e96
commit d6b91bf5d4
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/pcase.el
View file

@ -164,6 +164,9 @@ Currently, the following patterns are provided this way:"
(defun pcase--make-docstring () (defun pcase--make-docstring ()
(let* ((main (documentation (symbol-function 'pcase) 'raw)) (let* ((main (documentation (symbol-function 'pcase) 'raw))
(ud (help-split-fundoc main 'pcase))) (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 (with-temp-buffer
(insert (or (cdr ud) main)) (insert (or (cdr ud) main))
(mapatoms (mapatoms