unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* completing-read in pcvs.el
@ 2008-07-24 15:12 kimitto
  2008-09-05 15:09 ` bug#894: " Stefan Monnier
  0 siblings, 1 reply; 5+ messages in thread
From: kimitto @ 2008-07-24 15:12 UTC (permalink / raw)
  To: bug-gnu-emacs


(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)))




^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2008-09-09 14:46 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-07-24 15:12 completing-read in pcvs.el kimitto
2008-09-05 15:09 ` bug#894: " Stefan Monnier
2008-09-09  3:55   ` bug#939: " kimito yada
2008-09-09 13:32     ` bug#945: " Stefan Monnier
2008-09-09 14:46       ` bug#948: " kimito yada

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).