[Emacs-diffs] Changes to emacs/lisp/pcvs-util.el

[Stefan Monnier]

Index: emacs/lisp/pcvs-util.el
diff -c emacs/lisp/pcvs-util.el:1.23 emacs/lisp/pcvs-util.el:1.24
*** emacs/lisp/pcvs-util.el:1.23        Sat Oct 16 15:35:11 2004
--- emacs/lisp/pcvs-util.el     Mon Mar 14 01:12:42 2005
***************
*** 1,7 ****
  ;;; pcvs-util.el --- utility functions for PCL-CVS  -*- byte-compile-dynamic: 
t -*-
  
  ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
! ;;   2000, 2001, 2004  Free Software Foundation, Inc.
  
  ;; Author: Stefan Monnier <address@hidden>
  ;; Keywords: pcl-cvs
--- 1,7 ----
  ;;; pcvs-util.el --- utility functions for PCL-CVS  -*- byte-compile-dynamic: 
t -*-
  
  ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
! ;;   2000, 2001, 2004, 2005  Free Software Foundation, Inc.
  
  ;; Author: Stefan Monnier <address@hidden>
  ;; Keywords: pcl-cvs
***************
*** 205,212 ****
  The SEPARATOR regexp defaults to \"\\s-+\"."
    (let ((sep (or separator "\\s-+"))
        (i (string-match "[\"]" string)))
!     (if (null i) (split-string string sep)    ; no quoting:  easy
!       (append (unless (eq i 0) (split-string (substring string 0 i) sep))
              (let ((rfs (read-from-string string i)))
                (cons (car rfs)
                      (cvs-string->strings (substring string (cdr rfs))
--- 205,212 ----
  The SEPARATOR regexp defaults to \"\\s-+\"."
    (let ((sep (or separator "\\s-+"))
        (i (string-match "[\"]" string)))
!     (if (null i) (split-string string sep t)  ; no quoting:  easy
!       (append (unless (eq i 0) (split-string (substring string 0 i) sep t))
              (let ((rfs (read-from-string string i)))
                (cons (car rfs)
                      (cvs-string->strings (substring string (cdr rfs))