Procházet zdrojové kódy

update git-branch-name

pull/1/head
10sr před 12 roky
rodič
revize
36dffd7580
1 změnil soubory, kde provedl 9 přidání a 8 odebrání
  1. +9
    -8
      emacs.el

+ 9
- 8
emacs.el Zobrazit soubor

@@ -1559,20 +1559,21 @@ when SEC is nil, stop auto save if enabled."

(defvar git-command-history nil
"History list for git command.")
(defun my-git-branch-name ()
(defun my-git-branch-name (str)
""
(interactive)
(with-temp-buffer
(shell-command "git branch --no-color" t)
(when (search-forward "*" nil t)
(forward-char 1)
(buffer-substring-no-properties (point)
(point-at-eol)))))
(if (search-forward "*" nil t)
(progn (forward-char 1)
(format str
(buffer-substring-no-properties (point)
(point-at-eol))))
"")))
(defun my-git-shell-command (cmd)
""
(interactive (list (read-shell-command (format "[%s][GIT:%s] $ git : "
(interactive (list (read-shell-command (format "[%s]%s $ git : "
(abbreviate-file-name default-directory)
(my-git-branch-name))
(my-git-branch-name "[GIT:%s]"))
nil
'git-command-history)))
(let ((dir default-directory)


Načítá se…
Zrušit
Uložit