diff options
| author | Andreas Schwab <schwab@suse.de> | 2008-10-20 17:29:29 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2008-10-20 17:29:29 +0000 |
| commit | d551d20ddab310e177d694c825c2ac1a0e4df639 (patch) | |
| tree | dd7d95f3bb9a0f16ff0a68c6e6b1c0ddcab31808 /lisp | |
| parent | 713c75b00d394581a7a74ab2a545ad01c3823ca5 (diff) | |
| download | emacs-d551d20ddab310e177d694c825c2ac1a0e4df639.tar.gz | |
(split-string-and-unquote): Simplify regexp.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/subr.el | 2 |
2 files changed, 5 insertions, 1 deletions
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)) |