completing-read in pcvs.el

[kimitto]

(emacs-version)
"GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600)
 of 2007-07-08 on CUBE"

completing-read()'s second arg requires alist (or hash-table,
obarray),
but in pcvs.el uses a list.

Calling cvs-mode-set-flags() makes error
if uning a tiny original completion elisp.

Fix it, please.


Best regards,
Kimito Yada


diff -u c\:/meadow/lisp/pcvs.el c\:/meadow/lisp/pcvs.mod.el
--- c:/meadow/lisp/pcvs.el      2007-07-08 14:28:00.001000000 +0900
+++ c:/meadow/lisp/pcvs.mod.el  2008-07-24 23:52:23.020236800 +0900
@@ -2217,8 +2217,8 @@
   (interactive
    (list (completing-read
          "Which flag: "
-         '("cvs" "diff" "update" "status" "log" "tag" ;"rtag"
-           "commit" "remove" "undo" "checkout")
+         '(("cvs") ("diff") ("update") ("status") ("log") ("tag") ;("rtag")
+           ("commit") ("remove") ("undo") ("checkout"))
          nil t)))
   (let* ((sym (intern (concat "cvs-" flag "-flags"))))
     (let ((current-prefix-arg '(16)))