procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/pcase.el (get-edebug-spec, edebug-match)

Browse source 
(help-fns--signature): Declare.
This commit is contained in:
Glenn Morris 2015-05-01 13:40:31 -04:00
parent d6b91bf5d4
commit a73af96549
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -91,6 +91,10 @@
(def-edebug-spec pcase-MACRO pcase--edebug-match-macro)
;; Only called from edebug.
(declare-function get-edebug-spec "edebug" (symbol))
(declare-function edebug-match "edebug" (cursor specs))
(defun pcase--edebug-match-macro (cursor)
(let (specs)
(mapatoms
@ -158,6 +162,9 @@ Currently, the following patterns are provided this way:"
;; (puthash (car cases) `(,exp ,cases ,@expansion) pcase--memoize-2)
expansion))))
(declare-function help-fns--signature "help-fns"
(function doc real-def real-function))
;; FIXME: Obviously, this will collide with nadvice's use of
;; function-documentation if we happen to advise `pcase'.
(put 'pcase 'function-documentation '(pcase--make-docstring))