comparison lisp/vc-svn.el @ 87450:71fc7b1db920

* vc-hooks.el (vc-state): Document new 'ignored and 'unregistered states. and the new return-value convention. These are not actually used yet, just set. * vc-svn.el (vc-svn-parse-status): Set 'ignored and 'unregistered states when appropriate. * vc-hg.el (vc-hg-state,vc-hg-dir-state): Set 'ignored and 'unregistered' when appropriate. * vc-git.el: Document that we don't set the new states yet. * vc.el (vc-dired-state-info): Display 'unregistered and 'ignored states. * vc-cvs.el (vc-cvs-parse-status): Set the 'ignored state when appropriate. * vc-bzr.el (vc-bzr-dir-state): Set 'ignored and 'unregistered' when appropriate.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Fri, 28 Dec 2007 18:16:55 +0000
parents 7477a697d7e1
children b5060e79eb98 56a72e2bd635
comparison
equal deleted inserted replaced
87449:7477a697d7e1 87450:71fc7b1db920
576 'edited) 576 'edited)
577 ((memq status '(?M ?C)) 577 ((memq status '(?M ?C))
578 (if (eq (char-after (match-beginning 1)) ?*) 578 (if (eq (char-after (match-beginning 1)) ?*)
579 'needs-merge 579 'needs-merge
580 'edited)) 580 'edited))
581 ((eq status ?I)
582 (vc-file-setprop file 'vc-state 'ignored))
583 ((eq status ??)
584 (vc-file-setprop file 'vc-state 'unregistered))
581 (t 'edited))))) 585 (t 'edited)))))
582 (if filename (vc-file-getprop filename 'vc-state)))) 586 (if filename (vc-file-getprop filename 'vc-state))))
583 587
584 (defun vc-svn-dir-state-heuristic (dir) 588 (defun vc-svn-dir-state-heuristic (dir)
585 "Find the SVN state of all files in DIR, using only local information." 589 "Find the SVN state of all files in DIR, using only local information."