Browse Source

Merge branch 'gitcommand/viewcommand'

Conflicts:
	emacs.el
pull/1/head
10sr 9 years ago
parent
commit
e63d322e6e
1 changed files with 4 additions and 2 deletions
  1. +4
    -2
      emacs.el

+ 4
- 2
emacs.el View File

@@ -938,7 +938,8 @@ found, otherwise returns nil."
t) t)
(lazy-load-eval 'git-command (lazy-load-eval 'git-command
nil nil
;; old git-command

;; for git-command old version
(when (boundp 'git-command-major-mode-alist) (when (boundp 'git-command-major-mode-alist)
(add-to-list 'git-command-major-mode-alist (add-to-list 'git-command-major-mode-alist
'("di" . diff-mode)) '("di" . diff-mode))
@@ -947,11 +948,12 @@ found, otherwise returns nil."
(add-to-list 'git-command-major-mode-alist (add-to-list 'git-command-major-mode-alist
'("log" . fundamental-mode))) '("log" . fundamental-mode)))


;; new git-command
;; for git-command new version
(when (boundp 'git-command-view-command-list) (when (boundp 'git-command-view-command-list)
(add-to-list 'git-command-view-command-list (add-to-list 'git-command-view-command-list
"graph")) "graph"))
(when (boundp 'git-command-aliases-alist) (when (boundp 'git-command-aliases-alist)
;; (message "new version of git-command!")
(add-to-list 'git-command-aliases-alist (add-to-list 'git-command-aliases-alist
'("di" . (lambda (options cmd args) '("di" . (lambda (options cmd args)
(git-command-exec options (git-command-exec options


Loading…
Cancel
Save