[Emacs-diffs] Changes to emacs/lisp/pcvs.el,v [EMACS_22_BASE]

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Richard M. Stallman <rms>       07/08/12 18:07:07

Index: pcvs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/pcvs.el,v
retrieving revision 1.98.2.6
retrieving revision 1.98.2.7
diff -u -b -r1.98.2.6 -r1.98.2.7
--- pcvs.el     25 Jul 2007 04:50:33 -0000      1.98.2.6
+++ pcvs.el     12 Aug 2007 18:07:07 -0000      1.98.2.7
@@ -182,7 +182,7 @@
          (when (re-search-forward
                 (concat "^" cmd "\\(\\s-+\\(.*\\)\\)?$") nil t)
            (let* ((sym (intern (concat "cvs-" cmd "-flags")))
-                  (val (string->strings (or (match-string 2) ""))))
+                  (val (split-string-and-unquote (or (match-string 2) ""))))
              (cvs-flags-set sym 0 val))))
        ;; ensure that cvs doesn't have -q or -Q
        (cvs-flags-set 'cvs-cvs-flags 0
@@ -612,7 +612,7 @@
                          (t arg)))
                       args)))
     (concat cvs-program " "
-           (strings->string
+           (combine-and-quote-strings
             (append (cvs-flags-query 'cvs-cvs-flags nil 'noquery)
                     (if cvs-cvsroot (list "-d" cvs-cvsroot))
                     args
@@ -941,7 +941,8 @@
    (let ((root (cvs-get-cvsroot)))
      (if (or (null root) current-prefix-arg)
         (setq root (read-string "CVS Root: ")))
-     (list (string->strings (read-string "Module(s): " (cvs-get-module)))
+     (list (split-string-and-unquote
+           (read-string "Module(s): " (cvs-get-module)))
           (read-directory-name "CVS Checkout Directory: "
                                nil default-directory nil)
           (cvs-add-branch-prefix
@@ -964,7 +965,7 @@
                         (if branch (format " (branch: %s)" branch)
                           ""))))
      (list (read-directory-name prompt nil default-directory nil))))
-  (let ((modules (string->strings (cvs-get-module)))
+  (let ((modules (split-string-and-unquote (cvs-get-module)))
        (flags (cvs-add-branch-prefix
                (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags")))
        (cvs-cvsroot (cvs-get-cvsroot)))
@@ -2253,7 +2254,7 @@
       (let* ((args (append constant-args arg-list)))
 
        (insert (format "=== %s %s\n\n"
-                       program (strings->string args)))
+                       program (split-string-and-unquote args)))
 
        ;; FIXME: return the exit status?
        (apply 'call-process program nil t t args)