瀏覽代碼

fix eshell prompt

pull/1/head
10sr 10 年之前
父節點
當前提交
eb0a008598
共有 1 個檔案被更改,包括 8 行新增5 行删除
  1. +8
    -5
      emacs.el

+ 8
- 5
emacs.el 查看文件

@@ -1799,12 +1799,15 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
(insert (abbreviate-file-name default-directory))
(setq p4 (point))
(insert "]")
(insert "\n:: "
(number-to-string eshell-last-command-status)
(if (= (user-uid)
(insert "\n:: ")
(unless (eq 0
eshell-last-command-status)
(insert (format "[STATUS:%d] "
eshell-last-command-status)))
(insert (if (= (user-uid)
0)
" # "
" $ "))
"# "
"$ "))
(add-text-properties p1
p2
'(face ((underline . t))))


Loading…
取消
儲存