[elpa] 34/117: Use abbreviated file name for shell here

[Matthew Fidler]

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

commit db00ee4a7bbfe06a3b6db934ae068af9e854e7a2
Author: Matthew L. Fidler <address@hidden>
Date:   Wed Jul 16 11:48:07 2014 -0500

    Use abbreviated file name for shell here
---
 ergoemacs-functions.el |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index 6459077..d59f2ee 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -2135,8 +2135,8 @@ Guillemet -> quote, degree -> @, s-zed -> ss, upside-down 
?! -> ?!."
    (generate-new-buffer-name
     (concat (replace-regexp-in-string "\\`\\(address@hidden).*\\'" "\\1" 
(buffer-name) t)
             (if (eq system-type 'windows-nt)
-                (w32-long-file-name default-directory) ;; Fix case issues
-              default-directory) "*"))))
+                (w32-long-file-name (abbreviate-file-name default-directory)) 
;; Fix case issues
+              (abbreviate-file-name default-directory)) "*"))))
 
 (add-hook 'dirtrack-directory-change-hook 
'ergoemacs-shell-here-directory-change-hook)
 
@@ -2172,7 +2172,9 @@ Sends shell prompt string to process, then turns on
   (interactive)
   (let* ((shell (or shell-program 'shell))
          (buf-prefix (or buffer-prefix (symbol-name shell)))
-         (name (concat "*" buf-prefix "@" default-directory "*")))
+         (name (concat "*" buf-prefix "@" (if (eq system-type 'windows-nt)
+                                              (w32-long-file-name 
(abbreviate-file-name default-directory)) ;; Fix case issues
+                                            (abbreviate-file-name 
default-directory)) "*")))
     (set-buffer (get-buffer-create name))
     (funcall shell name)))