diff options
| author |  Tom Willemsen | 2012-05-20 14:18:03 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-05-20 14:18:03 +0200 |
| commit | 84b6267ce0032150402cba66c0ae0c4186b9e2d7 (patch) | |
| tree | 5fdf23e9bf8669c472500cc330fc3fc82375eb5f | |
| parent | 18f9fb41e47da304ec2646d7895d0b01de75b743 (diff) | |
| download | git-auto-commit-mode-84b6267ce0032150402cba66c0ae0c4186b9e2d7.tar.gz git-auto-commit-mode-84b6267ce0032150402cba66c0ae0c4186b9e2d7.zip | |
Use gac as prefix for symbol names
I refused to do this before because it reminds me too much of .Net's
Global Assembly Cache. Now I feel I need it, though, since
`git-auto-commit' is too long.
| -rw-r--r-- | git-auto-commit-mode.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/git-auto-commit-mode.el b/git-auto-commit-mode.el index 76cb7ac..0d8b29a 100644 --- a/git-auto-commit-mode.el +++ b/git-auto-commit-mode.el @@ -32,7 +32,7 @@ ;;; Code: -(defun git-auto-commit-relative-file-name (filename) +(defun gac-relative-file-name (filename) "Find the path to the filename relative to the git directory" (let* ((git-dir (replace-regexp-in-string @@ -44,11 +44,11 @@ git-dir "" filename)))) relative-file-name)) -(defun git-auto-commit () +(defun gac-commit () "Commit `buffer-file-name' to git" (let* ((filename (buffer-file-name)) (relative-filename - (git-auto-commit-relative-file-name filename))) + (gac-relative-file-name filename))) (shell-command (concat "git add " filename " && git commit -m '" relative-filename "'")))) @@ -58,7 +58,7 @@ mode turned on" :lighter " ga" (if git-auto-commit-mode - (add-hook 'after-save-hook 'git-auto-commit t t) - (remove-hook 'after-save-hook 'git-auto-commit t))) + (add-hook 'after-save-hook 'gac-commit t t) + (remove-hook 'after-save-hook 'gac-commit t))) ;;; git-auto-commit-mode.el ends here |