Pārlūkot izejas kodu

update git-command

pull/1/head
10sr pirms 12 gadiem
vecāks
revīzija
61631c9d36
1 mainītis faili ar 3 papildinājumiem un 1 dzēšanām
  1. +3
    -1
      emacs.el

+ 3
- 1
emacs.el Parādīt failu

@@ -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)


Notiek ielāde…
Atcelt
Saglabāt