瀏覽代碼

update git-command

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

+ 3
- 1
emacs.el 查看文件

@@ -1605,12 +1605,14 @@ when SEC is nil, stop auto save if enabled."
(abbreviate-file-name default-directory))
nil
'git-command-history)))
(let ((dir default-directory) (bf (get-buffer-create "*Git Output*"))
(let ((dir default-directory)
(bf (get-buffer-create "*Git Output*"))
;; (process-environment `(,@process-environment))
;; (comint-preoutput-filter-functions '(ansi-color-apply . nil))
;; (comint-output-filter-functions (cons 'ansi-color-process-output
;; comint-output-filter-functions))
)
(delete-windows-on bf t)
(shell-command (concat "git "
cmd)
bf)


Loading…
取消
儲存