[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

completing-read in pcvs.el

From: kimitto
Subject: completing-read in pcvs.el
Date: Thu, 24 Jul 2008 08:12:52 -0700 (PDT)
User-agent: G2/1.0

"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,
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 @@
    (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)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]