2011-03-08から1日間の記事一覧
(setq eshell-prompt-function (lambda () (with-temp-buffer (let (p1 p2 p3 p4) (insert " [") (setq p1 (point)) (insert (abbreviate-file-name default-directory)) (setq p2 (point)) (insert "]\n") (setq p3 (point)) (insert user-login-name "@" (…