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):
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;; Copyright (C) 2010-2011 Free Software Foundation, Inc. ;; Copyright (C) 2010-2011 Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@iro.umontreal.ca> ;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
;; Keywords: ;; Keywords:
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -75,12 +75,12 @@ If a SYMBOL is used twice in the same pattern (i.e. the pattern is ...@@ -75,12 +75,12 @@ If a SYMBOL is used twice in the same pattern (i.e. the pattern is
QPatterns can take the following forms: QPatterns can take the following forms:
(QPAT1 . QPAT2) matches if QPAT1 matches the car and QPAT2 the cdr. (QPAT1 . QPAT2) matches if QPAT1 matches the car and QPAT2 the cdr.
,UPAT matches if the UPattern UPAT matches. ,UPAT matches if the UPattern UPAT matches.
STRING matches if the object is `equal' to STRING. STRING matches if the object is `equal' to STRING.
ATOM matches if the object is `eq' to ATOM. ATOM matches if the object is `eq' to ATOM.
QPatterns for vectors are not implemented yet. QPatterns for vectors are not implemented yet.
PRED can take the form PRED can take the form
FUNCTION in which case it gets called with one argument. FUNCTION in which case it gets called with one argument.
(FUN ARG1 .. ARGN) in which case it gets called with N+1 arguments. (FUN ARG1 .. ARGN) in which case it gets called with N+1 arguments.
A PRED of the form FUNCTION is equivalent to one of the form (FUNCTION). A PRED of the form FUNCTION is equivalent to one of the form (FUNCTION).
PRED patterns can refer to variables bound earlier in the pattern. PRED patterns can refer to variables bound earlier in the pattern.
...@@ -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