From: Stefan Monnier Date: Mon, 14 Mar 2005 01:13:33 +0000 (+0000) Subject: (cvs-string->strings): Strip trailing whitespace. X-Git-Tag: ttn-vms-21-2-B4~1815 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b70d9316bbf3e2482c1345d8135ddd1ee7e25ba7;p=emacs.git (cvs-string->strings): Strip trailing whitespace. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 98410285828..fc9baa42987 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 + + * pcvs-util.el (cvs-string->strings): Strip trailing whitespace. + 2005-03-13 Lute Kamstra * emacs-lisp/debug.el (debug): Set debug-on-exit before calling diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el index a4eda95e23e..2cbb00b324c 100644 --- a/lisp/pcvs-util.el +++ b/lisp/pcvs-util.el @@ -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 ;; 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))