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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4798d2cc96a8e599553b48de7ab199a3eacd9ec6..da6ed5796a95feaaab52e482f50e7d7eedf6808a 100644 (file)
--- 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 38239cac94ee68ec1bd00c403153369726c13101..350b6b1a25d5fc83b514ca3d25dae2225d5132f0 100644 (file)
--- 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))