Source

pcl-cvs / pcl-cvs-util.el

Diff from to

File pcl-cvs-util.el

 ;;; pcl-cvs-util.el
 
-(defconst rcsid-pcl-cvs-util "$Id")
+(defconst rcsid-pcl-cvs-util "@(#)$Name$:$Id$")
 
 ;; Copyright (C) 1998-1999  Stefan Monnier <monnier@cs.yale.edu>
 ;;
 	 (initval (funcall (cvs-qtypedesc->obj2str qtypedesc)
 			   (symbol-value sym))))
     (funcall (cvs-qtypedesc->str2obj qtypedesc)
-	     (completing-read prompt completions nil nil initval hist-sym))))
+	     (if (not complete)
+		 (read-string prompt initval hist-sym)
+	       (completing-read prompt completions nil nil initval hist-sym)))))
 
 (defun cvs-query-flags (sym desc &optional qtypedesc hist-sym query)
   (if (or current-prefix-arg query)