[Emacs-diffs] /srv/bzr/emacs/trunk r105954: * lisp/pcmpl-cvs.el (pcomplete/cvs): Add "status" handler.

[Glenn Morris]

------------------------------------------------------------
revno: 105954
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2011-09-29 00:21:06 -0700
message:
  * lisp/pcmpl-cvs.el (pcomplete/cvs): Add "status" handler.
modified:
  lisp/ChangeLog
  lisp/pcmpl-cvs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-29 00:12:44 +0000
+++ b/lisp/ChangeLog    2011-09-29 07:21:06 +0000
@@ -1,3 +1,7 @@
+2011-09-29  Glenn Morris  <address@hidden>
+
+       * pcmpl-cvs.el (pcomplete/cvs): Add "status" handler.
+
 2011-09-29  Juanma Barranquero  <address@hidden>
 
        * descr-text.el (describe-char-categories): Accept category

=== modified file 'lisp/pcmpl-cvs.el'
--- a/lisp/pcmpl-cvs.el 2011-09-27 18:09:43 +0000
+++ b/lisp/pcmpl-cvs.el 2011-09-29 07:21:06 +0000
@@ -107,6 +107,10 @@
                    "j(pcmpl-cvs-tags '(?U ?P))"
                    "I(pcmpl-cvs-entries '(??))W?"))
           (while (pcomplete-here (pcmpl-cvs-entries '(?U ?P)))))
+         ((pcomplete-test "status")
+          (setq pcomplete-help "(cvs)File status")
+          (pcomplete-opt "vlR")
+          (while (pcomplete-here (pcmpl-cvs-entries))))
          (t
           (while (pcomplete-here (pcmpl-cvs-entries)))))))