[Emacs-diffs] /srv/bzr/emacs/trunk r103449: lisp/emacs-lisp/pcase.el (pcase, pcase--u1, pcase--q1): Fix typos in docstrings.

[Juanma Barranquero]

------------------------------------------------------------
revno: 103449
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Mon 2011-02-28 05:24:40 +0100
message:
  lisp/emacs-lisp/pcase.el (pcase, pcase--u1, pcase--q1): Fix typos in 
docstrings.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/pcase.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-28 01:35:59 +0000
+++ b/lisp/ChangeLog    2011-02-28 04:24:40 +0000
@@ -1,3 +1,8 @@
+2011-02-28  Juanma Barranquero  <address@hidden>
+
+       * emacs-lisp/pcase.el (pcase, pcase--u1, pcase--q1):
+       Fix typos in docstrings.
+
 2011-02-28  Stephen Berman  <address@hidden>
 
        * dired-aux.el (dired-update-file-line):

=== modified file 'lisp/emacs-lisp/pcase.el'
--- a/lisp/emacs-lisp/pcase.el  2011-02-27 02:50:38 +0000
+++ b/lisp/emacs-lisp/pcase.el  2011-02-28 04:24:40 +0000
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2010-2011  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier <address@hidden>
-;; Keywords: 
+;; Keywords:
 
 ;; This file is part of GNU Emacs.
 
@@ -75,12 +75,12 @@
 QPatterns can take the following forms:
   (QPAT1 . QPAT2)      matches if QPAT1 matches the car and QPAT2 the cdr.
   ,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.
 QPatterns for vectors are not implemented yet.
 
 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.
 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.
@@ -439,7 +439,7 @@
 ;; bootstrapping problems.
 (defun pcase--u1 (matches code vars rest)
   "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)."
   ;; 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
@@ -591,7 +591,7 @@
 
 (defun pcase--q1 (sym qpat matches code vars rest)
   "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)."
   (cond
    ((eq (car-safe qpat) '\,) (error "Can't use `,UPATTERN"))