[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/shell-command+ 6c7a95b 08/13: Fix quoted shell expansio
From: |
Stefan Monnier |
Subject: |
[elpa] externals/shell-command+ 6c7a95b 08/13: Fix quoted shell expansion |
Date: |
Sun, 23 May 2021 13:41:27 -0400 (EDT) |
branch: externals/shell-command+
commit 6c7a95ba93ceef646e2623c5437390ae672600da
Author: Philip K <philipk@posteo.net>
Commit: Philip K <philipk@posteo.net>
Fix quoted shell expansion
---
shell-command+.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/shell-command+.el b/shell-command+.el
index 43fd286..6d9a3aa 100644
--- a/shell-command+.el
+++ b/shell-command+.el
@@ -143,17 +143,19 @@ If EXPAND is non-nil, expand wildcards."
(or (: ?\" (group (* (not ?\"))) ?\")
(: (group (+ (not (any ?\" space)))))))
(substring command pos))
- (push (if (and expand (match-data 2))
- (let ((tok (match-string 2 (substring command pos))))
- (or (file-expand-wildcards tok) (list tok)))
- (list (or (match-string 2 (substring command pos))
- (match-string 1 (substring command pos)))))
+ (push (let ((tok (match-string 2 (substring command pos))))
+ (if (and expand tok)
+ (or (file-expand-wildcards tok) (list tok))
+ (list (or (match-string 2 (substring command pos))
+ (match-string 1 (substring command pos))))))
tokens)
(setq pos (+ pos (match-end 0))))
(unless (= pos (length command))
(error "Tokenization error at %s" (substring command pos)))
(apply #'append (nreverse tokens))))
+(shell-command+-tokenize "a \"*\" *.el c" t)
+
(defun shell-command+-cmd-grep (command)
"Convert COMMAND into a `grep' call."
(grep (mapconcat #'identity (shell-command+-tokenize command t) " ")))
- [elpa] externals/shell-command+ 1b29abe 03/13: Remove hard dependency on eshell, (continued)
- [elpa] externals/shell-command+ 1b29abe 03/13: Remove hard dependency on eshell, Stefan Monnier, 2021/05/23
- [elpa] externals/shell-command+ ca82436 12/13: Update documentation to reflect eshell deprecation, Stefan Monnier, 2021/05/23
- [elpa] externals/shell-command+ a891756 04/13: Detect errors during tokenization, Stefan Monnier, 2021/05/23
- [elpa] externals/shell-command+ f65aca2 13/13: Bump version to 2.2.0, Stefan Monnier, 2021/05/23
- [elpa] externals/shell-command+ d0004fa 05/13: Add EXPAND parameter to shell-command+-tokenize, Stefan Monnier, 2021/05/23
- [elpa] externals/shell-command+ 13980c6 11/13: Fix copyright header in shell-command+-tests.el, Stefan Monnier, 2021/05/23
- [elpa] externals/shell-command+ e76acf5 10/13: Remove test code from main file, Stefan Monnier, 2021/05/23
- [elpa] externals/shell-command+ 9aaa4cb 07/13: Accept only one argument in locate, Stefan Monnier, 2021/05/23
- [elpa] externals/shell-command+ 86caf3d 09/13: Add tests for shell-command+-tokenize, Stefan Monnier, 2021/05/23
- [elpa] externals/shell-command+ 9b1d98e 06/13: Fix shell-command+-cmd-grep invocation, Stefan Monnier, 2021/05/23
- [elpa] externals/shell-command+ 6c7a95b 08/13: Fix quoted shell expansion,
Stefan Monnier <=