ryuslash/gitto
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Make gitto.el work with the latest gitto

Browse source
This commit is contained in:
Tom Willemse 2013-10-13 00:42:54 +02:00
parent 87a300c389
commit aab22cbb6e
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/gitto.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: convenience ;; Keywords: convenience
;; Package-Version: 0.2.0 ;; Package-Version: 0.2.1
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by ;; it under the terms of the GNU General Public License as published by
@ -44,7 +44,7 @@
"Check if DIR is a registered repository." "Check if DIR is a registered repository."
(not (string-match-p "not registered" (not (string-match-p "not registered"
(shell-command-to-string (shell-command-to-string
(concat gitto-program " -c " dir))))) (concat gitto-program " check " dir)))))
;;;###autoload ;;;###autoload
(defun gitto-register (dir) (defun gitto-register (dir)
@ -53,7 +53,7 @@
(unless dir (unless dir
(error "Not a git repository")) (error "Not a git repository"))
(shell-command (concat gitto-program " -r " dir))) (shell-command (concat gitto-program " add " dir)))
;;;###autoload ;;;###autoload
(defun gitto-unregister (dir) (defun gitto-unregister (dir)
@ -62,7 +62,7 @@
(unless (and dir (gitto-registered-p dir)) (unless (and dir (gitto-registered-p dir))
(error "Not a registered git repository")) (error "Not a registered git repository"))
(shell-command (concat gitto-program " -R " dir))) (shell-command (concat gitto-program " remove " dir)))
(provide 'gitto) (provide 'gitto)
;;; gitto.el ends here ;;; gitto.el ends here