From d551d20ddab310e177d694c825c2ac1a0e4df639 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 20 Oct 2008 17:29:29 +0000 Subject: [PATCH] (split-string-and-unquote): Simplify regexp. --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * subr.el (split-string-and-unquote): Simplify regexp. + 2008-10-20 Eli Zaretskii * 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)) -- 2.39.5