Переглянути джерело

modify git-command

pull/1/head
10sr 12 роки тому
джерело
коміт
54c25e5eee
1 змінених файлів з 15 додано та 23 видалено
  1. +15
    -23
      emacs.el

+ 15
- 23
emacs.el Переглянути файл

@@ -853,8 +853,6 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
;; (require 'vc)

(setq vc-handled-backends '())
(and (executable-find "git")
(add-to-list 'vc-handled-backends 'GIT))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; gauche-mode
@@ -1555,28 +1553,22 @@ when SEC is nil, stop auto save if enabled."

(defvar git-command-history nil
"History list for git command.")
(defun my-git-branch-name (str)
""
(with-temp-buffer
(shell-command "git branch --no-color" t)
(if (search-forward "*" nil t)
(progn (forward-char 1)
(format str
(buffer-substring-no-properties (point)
(point-at-eol))))
"")))
(defun my-git-ps1 (str)
(with-temp-buffer
(insert ". /etc/bash_completion.d/git; __git_ps1 "
(shell-quote-argument str)
";")
(shell-command-on-region (point-min)
(point-max)
"bash -s"
nil
t)
(buffer-substring-no-properties (point-min)
(point-max))))
(let ((gcmpl "/etc/bash_completion.d/git"))
(if (file-readable-p gcmpl)
(with-temp-buffer
(insert ". " gcmpl
"; __git_ps1 "
(shell-quote-argument str)
";")
(shell-command-on-region (point-min)
(point-max)
"bash -s"
nil
t)
(buffer-substring-no-properties (point-min)
(point-max)))
"")))
(defun my-git-shell-command (cmd)
""
(interactive (list (read-shell-command (format "[%s]%s $ git : "


Завантаження…
Відмінити
Зберегти