[elpa] externals/shell-command+ 9350393 19/36: fixed critical bug when no path was specified

[Stefan Monnier]

branch: externals/shell-command+
commit 93503930c1b73b270b924314d88ddc1fba2c605e
Author: Philip K <philip@warpmail.net>
Commit: Philip K <philip@warpmail.net>

    fixed critical bug when no path was specified
---
 bang.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bang.el b/bang.el
index 57cfe4d..9160823 100644
--- a/bang.el
+++ b/bang.el
@@ -91,7 +91,7 @@ between BEG and END. Otherwise the whole buffer is processed."
                      (match-string-no-properties 5 command)
                      nil nil 1)
                   (error (match-string-no-properties 5 command)))))
-      (let ((default-directory (bang-expand-path path)))
+      (let ((default-directory (bang-expand-path (or path "."))))
         (cond (has-< (delete-region beg end)
                      (shell-command rest t shell-command-default-error-buffer)
                      (exchange-point-and-mark))