From bb40ff8eb9b9549d42584b5db8f02a7ae4720873 Mon Sep 17 00:00:00 2001 From: 10sr Date: Thu, 8 Dec 2011 10:20:40 +0900 Subject: [PATCH] small changes for windows --- .bashrc | 1 + .emacs.el | 8 +++++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/.bashrc b/.bashrc index 73488ec..5e08989 100755 --- a/.bashrc +++ b/.bashrc @@ -325,6 +325,7 @@ if iscygwin; then alias cygsu="cygstart /cygwinsetup.exe" alias emacs="CYGWIN=tty emacs" echo "cygwin bash" + export PS1=" [\[\e[33m\]\w\[\e[0m\]]\n\[\e[32m\]\u@\H\[\e[0m\] \d \t \s.\v\nhist:\# jobs:\j \$ " fi ####################### diff --git a/.emacs.el b/.emacs.el index 4afb0df..1cdfb53 100755 --- a/.emacs.el +++ b/.emacs.el @@ -1680,8 +1680,10 @@ when SEC is nil, stop auto save if enabled." (defun my-execute-terminal () "" (interactive) - (if (and window-system - (not (eq window-system 'w32))) + (if (and (or (eq system-type 'windows-nt) + window-system) + my-desktop-terminal + ) (let ((process-environment (cons "TERM=xterm" process-environment))) (start-process "terminal" nil @@ -1691,7 +1693,7 @@ when SEC is nil, stop auto save if enabled." (defun my-term () "" (interactive) - (if (eq window-system 'w32) + (if (eq system-type 'windows-nt) (eshell t) (if (featurep 'multi-term) (multi-term)