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

Spelling fixes.

Browse source
This commit is contained in:
Paul Eggert 2011-12-14 23:24:10 -08:00
parent 100d5755ed
commit bbd240ceee
24 changed files with 47 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -363,12 +363,12 @@ MATCH is the pattern that needs to be matched, of the form:
(dolist (branch rest)
(let* ((match (car branch))
(code&vars (cdr branch))
(splitted
(split
(pcase--split-match sym splitter match)))
(unless (eq (car splitted) :pcase--fail)
(push (cons (car splitted) code&vars) then-rest))
(unless (eq (cdr splitted) :pcase--fail)
(push (cons (cdr splitted) code&vars) else-rest))))
(unless (eq (car split) :pcase--fail)
(push (cons (car split) code&vars) then-rest))
(unless (eq (cdr split) :pcase--fail)
(push (cons (cdr split) code&vars) else-rest))))
(cons (nreverse then-rest) (nreverse else-rest))))
(defun pcase--split-consp (syma symd pat)