andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cvs-string->strings): Strip trailing whitespace.

Browse source
This commit is contained in:
Stefan Monnier 2005-03-14 01:13:33 +00:00
parent 295f661640
commit b70d9316bb
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -5,6 +5,10 @@
(line-move): Don't perform auto-window-vscroll when defining or
executing keyboard macro to ensure consistent behaviour.
2005-03-13 Stefan Monnier <monnier@iro.umontreal.ca>
* pcvs-util.el (cvs-string->strings): Strip trailing whitespace.
2005-03-13 Lute Kamstra <lute@gnu.org>
* emacs-lisp/debug.el (debug): Set debug-on-exit before calling

6
lisp/pcvs-util.el
View file

@ -1,7 +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.
;; 2000, 2001, 2004, 2005 Free Software Foundation, Inc.
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs
@ -205,8 +205,8 @@ It understands elisp style quoting within STRING such that
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))
(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))