mirror/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-10-01 03:42:35 +02:00
Code

git.el: Update a file status in the git buffer upon save.

Browse Source 
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
Alexandre Julliard 2007-09-29 11:59:07 +02:00 committed by Junio C Hamano
parent 9f5599b982
commit 0365d885ad
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
contrib/emacs/git.el
View File

@ -36,7 +36,6 @@
;; TODO
;; - portability to XEmacs
;; - better handling of subprocess errors
;; - hook into file save (after-save-hook)
;; - diff against other branch
;; - renaming files from the status buffer
;; - creating tags
@ -1352,9 +1351,24 @@ Commands:
(cd dir)
(git-status-mode)
(git-refresh-status)
(goto-char (point-min)))
(goto-char (point-min))
(add-hook 'after-save-hook 'git-update-saved-file))
(message "%s is not a git working tree." dir)))
(defun git-update-saved-file ()
"Update the corresponding git-status buffer when a file is saved.
Meant to be used in `after-save-hook'."
(let* ((file (expand-file-name buffer-file-name))
(dir (condition-case nil (git-get-top-dir (file-name-directory file))))
(buffer (and dir (git-find-status-buffer dir))))
(when buffer
(with-current-buffer buffer
(let ((filename (file-relative-name file dir)))
; skip files located inside the .git directory
(unless (string-match "^\\.git/" filename)
(git-call-process-env nil nil "add" "--refresh" "--" filename)
(git-update-status-files (list filename) 'uptodate)))))))
(defun git-help ()
"Display help for Git mode."
(interactive)