Merge pull request kyagi#35 from lululau/master

Add shell-quotes around the string of cwd, in case of that it has whi…
emacsmirror · Jul 25, 2015 · 9dd6874 · 9dd6874
2 parents a70940d + 72c3600
commit 9dd6874
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/shell-pop.el b/shell-pop.el
@@ -205,13 +205,13 @@ The input format is the same as that of `kbd'."
 
 (defun shell-pop--cd-to-cwd-shell (cwd)
   (comint-kill-input)
-  (insert (concat "cd " cwd))
+  (insert (concat "cd " (shell-quote-argument cwd)))
   (let ((comint-process-echoes t))
     (comint-send-input))
   (recenter 0))
 
 (defun shell-pop--cd-to-cwd-term (cwd)
-  (term-send-raw-string (concat "cd " cwd "\n"))
+  (term-send-raw-string (concat "cd " (shell-quote-argument cwd) "\n"))
   (term-send-raw-string "\C-l"))
 
 (defun shell-pop--cd-to-cwd (cwd)