From: Andreas Schwab <schwab@suse.de>
Date: Mon, 20 Oct 2008 17:29:29 +0000 (+0000)
Subject: (split-string-and-unquote): Simplify regexp.
X-Git-Tag: emacs-pretest-23.0.90~2328
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d551d20ddab310e177d694c825c2ac1a0e4df639;p=emacs.git

(split-string-and-unquote): Simplify regexp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4798d2cc96a..da6ed5796a9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-10-20  Andreas Schwab  <schwab@suse.de>
+
+	* subr.el (split-string-and-unquote): Simplify regexp.
+
 2008-10-20  Eli Zaretskii  <eliz@gnu.org>
 
 	* subr.el (top-level): Require `cl' when compiling.
diff --git a/lisp/subr.el b/lisp/subr.el
index 38239cac94e..350b6b1a25d 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2922,7 +2922,7 @@ It understands Emacs Lisp quoting within STRING, such that
   (split-string-and-unquote (combine-and-quote-strings strs)) == strs
 The SEPARATOR regexp defaults to \"\\s-+\"."
   (let ((sep (or separator "\\s-+"))
-	(i (string-match "[\"]" string)))
+	(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))