* lisp/pcmpl-cvs.el (pcomplete/cvs): Add "status" handler.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a5ca53e9f4a25af431e2612c20a52fac1c29e176..c8db50ac3bd57a54b66bbf7aa93c6551d2c30aba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-29  Glenn Morris  <rgm@gnu.org>
+
+       * pcmpl-cvs.el (pcomplete/cvs): Add "status" handler.
+
 2011-09-29  Juanma Barranquero  <lekktu@gmail.com>
 
        * descr-text.el (describe-char-categories): Accept category

diff --git a/lisp/pcmpl-cvs.el b/lisp/pcmpl-cvs.el
index 3ff07bca20e07226f748c32a1648457ddfe4f574..9c9b72ab701c7dadb3a5fb29365f4a9f0bd09fb1 100644 (file)
--- a/lisp/pcmpl-cvs.el
+++ b/lisp/pcmpl-cvs.el
@@ -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)))))))