From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 12 Aug 2007 18:00:34 +0000 (+0000)
Subject: (cvs-qtypedesc-strings): Use new names
X-Git-Tag: emacs-pretest-22.1.90~1017
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=517e7169e13fcbbd44a0fc6819699b49f732e1da;p=emacs.git

(cvs-qtypedesc-strings): Use new names
combine-and-quote-strings and split-string-and-unquote.
---

diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el
index 6991f796526..e5ab1638c60 100644
--- a/lisp/pcvs-util.el
+++ b/lisp/pcvs-util.el
@@ -211,7 +211,8 @@ arguments.  If ARGS is not a list, no argument will be passed."
 (defconst cvs-qtypedesc-string1 (cvs-qtypedesc-create 'identity 'identity t))
 (defconst cvs-qtypedesc-string (cvs-qtypedesc-create 'identity 'identity))
 (defconst cvs-qtypedesc-strings
-  (cvs-qtypedesc-create 'string->strings 'strings->string nil))
+  (cvs-qtypedesc-create 'split-string-and-unquote
+			'combine-and-quote-strings nil))
 
 (defun cvs-query-read (default prompt qtypedesc &optional hist-sym)
   (let* ((qtypedesc (or qtypedesc cvs-qtypedesc-strings))