Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a73af965
Commit
a73af965
authored
May 01, 2015
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* lisp/emacs-lisp/pcase.el (get-edebug-spec, edebug-match)
(help-fns--signature): Declare.
parent
d6b91bf5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
0 deletions
+7
-0
lisp/emacs-lisp/pcase.el
lisp/emacs-lisp/pcase.el
+7
-0
No files found.
lisp/emacs-lisp/pcase.el
View file @
a73af965
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment