2009-04-29 ターミナル経由でもモードラインにsvnステータスをカラー表示 emacs psvn (require 'psvn) (unless window-system (defun svn-status-state-mark-modeline-dot (color) (propertize " svn" 'help-echo 'svn-status-state-mark-tooltip 'face (list (if (equal (getenv "TERM") "xterm-256color") :background :foreground) color))))