mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(vc-git-dir-state): Set the vc-backend property. Do

Browse Source 
not disable undo, with-temp-buffer does it by default.
This commit is contained in:
Dan Nicolaescu 2008-01-01 19:47:21 +00:00
parent 905373c504
commit 21838dc0de
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-01-01 Dan Nicolaescu <dann@ics.uci.edu>
* vc-git.el (vc-git-dir-state): Set the vc-backend property. Do
not disable undo, with-temp-buffer does it by default.
2008-01-01 Eric S. Raymond <esr@snark.thyrsus.com>
* vc-svn.el (vc-svn-parse-status): Set the 'unregisted property

5
lisp/vc-git.el
View File

@ -155,7 +155,6 @@
"Git-specific version of `dir-state'."
;; FIXME: This can't set 'ignored yet
(with-temp-buffer
(buffer-disable-undo) ;; Because these buffers can get huge
(vc-git-command (current-buffer) nil nil "ls-files" "-t" "-c" "-m" "-o")
(goto-char (point-min))
(let ((status-char nil)
@ -172,12 +171,16 @@
;; should not show up in vc-dired, so don't deal with them
;; here.
((eq status-char ?H)
(vc-file-setprop file 'vc-backend 'Git)
(vc-file-setprop file 'vc-state 'up-to-date))
((eq status-char ?R)
(vc-file-setprop file 'vc-backend 'Git)
(vc-file-setprop file 'vc-state 'removed))
((eq status-char ?M)
(vc-file-setprop file 'vc-backend 'Git)
(vc-file-setprop file 'vc-state 'edited))
((eq status-char ?C)
(vc-file-setprop file 'vc-backend 'Git)
(vc-file-setprop file 'vc-state 'edited))
((eq status-char ??)
(vc-file-setprop file 'vc-backend 'none)