[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs.el,v [EMACS_22_BASE]
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs.el,v [EMACS_22_BASE] |
Date: |
Sun, 08 Jul 2007 06:51:48 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Nick Roberts <nickrob> 07/07/08 06:51:48
Index: pcvs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/pcvs.el,v
retrieving revision 1.98.2.1
retrieving revision 1.98.2.2
diff -u -b -r1.98.2.1 -r1.98.2.2
--- pcvs.el 16 May 2007 11:25:46 -0000 1.98.2.1
+++ pcvs.el 8 Jul 2007 06:51:48 -0000 1.98.2.2
@@ -182,7 +182,7 @@
(when (re-search-forward
(concat "^" cmd "\\(\\s-+\\(.*\\)\\)?$") nil t)
(let* ((sym (intern (concat "cvs-" cmd "-flags")))
- (val (cvs-string->strings (or (match-string 2) ""))))
+ (val (string->strings (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
@@ -607,7 +607,7 @@
(t arg)))
args)))
(concat cvs-program " "
- (cvs-strings->string
+ (strings->string
(append (cvs-flags-query 'cvs-cvs-flags nil 'noquery)
(if cvs-cvsroot (list "-d" cvs-cvsroot))
args
@@ -936,7 +936,7 @@
(let ((root (cvs-get-cvsroot)))
(if (or (null root) current-prefix-arg)
(setq root (read-string "CVS Root: ")))
- (list (cvs-string->strings (read-string "Module(s): " (cvs-get-module)))
+ (list (string->strings (read-string "Module(s): " (cvs-get-module)))
(read-directory-name "CVS Checkout Directory: "
nil default-directory nil)
(cvs-add-branch-prefix
@@ -959,7 +959,7 @@
(if branch (format " (branch: %s)" branch)
""))))
(list (read-directory-name prompt nil default-directory nil))))
- (let ((modules (cvs-string->strings (cvs-get-module)))
+ (let ((modules (string->strings (cvs-get-module)))
(flags (cvs-add-branch-prefix
(cvs-flags-query 'cvs-checkout-flags "cvs checkout flags")))
(cvs-cvsroot (cvs-get-cvsroot)))
@@ -2244,7 +2244,7 @@
(let* ((args (append constant-args arg-list)))
(insert (format "=== %s %s\n\n"
- program (cvs-strings->string args)))
+ program (strings->string args)))
;; FIXME: return the exit status?
(apply 'call-process program nil t t args)
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el,v [EMACS_22_BASE],
Nick Roberts <=
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el,v [EMACS_22_BASE], Stefan Monnier, 2007/07/23
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el,v [EMACS_22_BASE], Stefan Monnier, 2007/07/23
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el,v [EMACS_22_BASE], Glenn Morris, 2007/07/25
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el,v [EMACS_22_BASE], Stefan Monnier, 2007/07/25