[elpa] 31/117: More emcompassing shell prompt regexp

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit c70e340131454f46794c536f699b08b53e164ffb
Author: Matthew L. Fidler <address@hidden>
Date:   Wed Jul 16 11:33:53 2014 -0500

    More emcompassing shell prompt regexp
---
 ergoemacs-functions.el |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index eac8c5e..9d8a40a 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -2160,9 +2160,8 @@ Sends shell prompt string to process, then turns on
         (set (make-local-variable 'dirtrack-list) (list "^PS 
\\([a-zA-Z]:.*\\)>" 1))
         (shell-dirtrack-mode -1)
         (dirtrack-mode 1))
-       (t ;; Assume PS1 compliant shell
-        (setenv "PS1" "address@hidden:\\w\\$ ")
-        (set (make-local-variable 'dirtrack-list) (list 
"address@hidden:\\(.*\\)$" 1))
+       (t ;; Assume basic address@hidden:dir structure
+        (set (make-local-variable 'dirtrack-list) (list 
"^\\(?:address@hidden)?\\(?:.*?:\\)? +\\(.*\\) +\\([$#]\\|\\]\\)" 1))
         (shell-dirtrack-mode -1)
         (dirtrack-mode 1))))))