Commit ca3afb79 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

lisp/emacs-lisp/pcase.el (pcase, pcase--u1, pcase--q1): Fix typos in docstrings.

parent 2cf429d0
2011-02-28 Juanma Barranquero <lekktu@gmail.com>
* emacs-lisp/pcase.el (pcase, pcase--u1, pcase--q1):
Fix typos in docstrings.
2011-02-28 Stephen Berman <stephen.berman@gmx.net> 2011-02-28 Stephen Berman <stephen.berman@gmx.net>
   
* dired-aux.el (dired-update-file-line): * dired-aux.el (dired-update-file-line):
......
...@@ -439,7 +439,7 @@ MATCH is the pattern that needs to be matched, of the form: ...@@ -439,7 +439,7 @@ MATCH is the pattern that needs to be matched, of the form:
;; bootstrapping problems. ;; bootstrapping problems.
(defun pcase--u1 (matches code vars rest) (defun pcase--u1 (matches code vars rest)
"Return code that runs CODE (with VARS) if MATCHES match. "Return code that runs CODE (with VARS) if MATCHES match.
and otherwise defers to REST which is a list of branches of the form Otherwise, it defers to REST which is a list of branches of the form
\(ELSE-MATCH ELSE-CODE . ELSE-VARS)." \(ELSE-MATCH ELSE-CODE . ELSE-VARS)."
;; Depending on the order in which we choose to check each of the MATCHES, ;; Depending on the order in which we choose to check each of the MATCHES,
;; the resulting tree may be smaller or bigger. So in general, we'd want ;; the resulting tree may be smaller or bigger. So in general, we'd want
...@@ -591,7 +591,7 @@ and otherwise defers to REST which is a list of branches of the form ...@@ -591,7 +591,7 @@ and otherwise defers to REST which is a list of branches of the form
(defun pcase--q1 (sym qpat matches code vars rest) (defun pcase--q1 (sym qpat matches code vars rest)
"Return code that runs CODE if SYM matches QPAT and if MATCHES match. "Return code that runs CODE if SYM matches QPAT and if MATCHES match.
and if not, defers to REST which is a list of branches of the form Otherwise, it defers to REST which is a list of branches of the form
\(OTHER_MATCH OTHER-CODE . OTHER-VARS)." \(OTHER_MATCH OTHER-CODE . OTHER-VARS)."
(cond (cond
((eq (car-safe qpat) '\,) (error "Can't use `,UPATTERN")) ((eq (car-safe qpat) '\,) (error "Can't use `,UPATTERN"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment