/[emacs]/emacs/lisp/pcvs-util.el
ViewVC logotype

Diff of /emacs/lisp/pcvs-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by rms, Sat Oct 16 15:35:11 2004 UTC revision 1.24 by monnier, Mon Mar 14 01:12:42 2005 UTC
# Line 1  Line 1 
1  ;;; pcvs-util.el --- utility functions for PCL-CVS  -*- byte-compile-dynamic: t -*-  ;;; pcvs-util.el --- utility functions for PCL-CVS  -*- byte-compile-dynamic: t -*-
2    
3  ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,  ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4  ;;   2000, 2001, 2004  Free Software Foundation, Inc.  ;;   2000, 2001, 2004, 2005  Free Software Foundation, Inc.
5    
6  ;; Author: Stefan Monnier <monnier@cs.yale.edu>  ;; Author: Stefan Monnier <monnier@cs.yale.edu>
7  ;; Keywords: pcl-cvs  ;; Keywords: pcl-cvs
# Line 205  It understands elisp style quoting withi Line 205  It understands elisp style quoting withi
205  The SEPARATOR regexp defaults to \"\\s-+\"."  The SEPARATOR regexp defaults to \"\\s-+\"."
206    (let ((sep (or separator "\\s-+"))    (let ((sep (or separator "\\s-+"))
207          (i (string-match "[\"]" string)))          (i (string-match "[\"]" string)))
208      (if (null i) (split-string string sep)      ; no quoting:  easy      (if (null i) (split-string string sep t)    ; no quoting:  easy
209        (append (unless (eq i 0) (split-string (substring string 0 i) sep))        (append (unless (eq i 0) (split-string (substring string 0 i) sep t))
210                (let ((rfs (read-from-string string i)))                (let ((rfs (read-from-string string i)))
211                  (cons (car rfs)                  (cons (car rfs)
212                        (cvs-string->strings (substring string (cdr rfs))                        (cvs-string->strings (substring string (cdr rfs))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26