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 |
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)) |