[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 34/117: Use abbreviated file name for shell here
From: |
Matthew Fidler |
Subject: |
[elpa] 34/117: Use abbreviated file name for shell here |
Date: |
Fri, 25 Jul 2014 13:24:03 +0000 |
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)))
- [elpa] 29/117: Cleanup byte compile, (continued)
- [elpa] 29/117: Cleanup byte compile, Matthew Fidler, 2014/07/25
- [elpa] 31/117: More emcompassing shell prompt regexp, Matthew Fidler, 2014/07/25
- [elpa] 26/117: Fix load dependence, See Issue #232, Matthew Fidler, 2014/07/25
- [elpa] 33/117: Added space as separtor for PS1 prompt, Matthew Fidler, 2014/07/25
- [elpa] 35/117: Remap shell to ergoemacs-shell-here, Matthew Fidler, 2014/07/25
- [elpa] 28/117: Add unix shell support, Matthew Fidler, 2014/07/25
- [elpa] 36/117: Add eshell here and powershell key, Matthew Fidler, 2014/07/25
- [elpa] 37/117: Make C-u show ergoemacs-keys when unspecified, Matthew Fidler, 2014/07/25
- [elpa] 38/117: Make ergoemacs-track use lexical scoping, Matthew Fidler, 2014/07/25
- [elpa] 39/117: Make ergoemacs-unbind lexically scoped, Matthew Fidler, 2014/07/25
- [elpa] 34/117: Use abbreviated file name for shell here,
Matthew Fidler <=
- [elpa] 32/117: Took out space requirement for dirtrack-list, Matthew Fidler, 2014/07/25
- [elpa] 41/117: Remove remnants of original local-set-key advice., Matthew Fidler, 2014/07/25
- [elpa] 42/117: Possibly address Issue #276, Matthew Fidler, 2014/07/25
- [elpa] 40/117: Make ergoemacs-shortcuts lexically scoped, Matthew Fidler, 2014/07/25
- [elpa] 45/117: Merge pull request #277 from pdg137/patch-1, Matthew Fidler, 2014/07/25
- [elpa] 44/117: Use M-h instead of M-H for comint-bol., Matthew Fidler, 2014/07/25
- [elpa] 48/117: Add support for dired+ prefixes, Matthew Fidler, 2014/07/25
- [elpa] 47/117: theme component support for if/dolist/mapc/mapcar/when, Matthew Fidler, 2014/07/25
- [elpa] 49/117: Merge branch 'master' of github.com:ergoemacs/ergoemacs-mode, Matthew Fidler, 2014/07/25
- [elpa] 43/117: Setup local overrides outside of minibuffers and overriding keymaps, Matthew Fidler, 2014/07/25