iwata.git-now/etc/git-now.el
2011-09-03 21:24:52 +09:00

11 lines
220 B
EmacsLisp

;;; git-now.el - Call "git now" command
(provide 'git-now)
(defun now ()
(interactive)
(call-process "git" nil "*git now*" nil "now")
(pop-to-buffer "*git now*" t nil)
(other-window -1)
(message "git now!"))