diff options
Diffstat (limited to 'accounts/gkleen@sif/emacs.el')
| -rw-r--r-- | accounts/gkleen@sif/emacs.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/accounts/gkleen@sif/emacs.el b/accounts/gkleen@sif/emacs.el index ad04c9ea..fbbd1ec9 100644 --- a/accounts/gkleen@sif/emacs.el +++ b/accounts/gkleen@sif/emacs.el | |||
| @@ -84,9 +84,8 @@ | |||
| 84 | (dir (cadr tilde:dir))) | 84 | (dir (cadr tilde:dir))) |
| 85 | (push (cons tilde dir) expand-file-name-custom-tilde-alist))) | 85 | (push (cons tilde dir) expand-file-name-custom-tilde-alist))) |
| 86 | (mapc #'my/add-to-tilde-alist | 86 | (mapc #'my/add-to-tilde-alist |
| 87 | (split-string (with-output-to-string | 87 | (split-string (let ((process-environment (cl-copy-list process-environment))) (setenv "TERM" nil) (with-output-to-string (call-process "script" nil standard-output nil "-qec" "zsh -ic \"hash -d\"" "/dev/null"))) |
| 88 | (call-process "zsh" nil standard-output nil "-ic" "hash -d")) | 88 | "\r\n" t)) |
| 89 | "\n" t)) | ||
| 90 | 89 | ||
| 91 | (defadvice expand-file-name (before expand-file-name-custom-tilde | 90 | (defadvice expand-file-name (before expand-file-name-custom-tilde |
| 92 | (name &optional default-directory) | 91 | (name &optional default-directory) |