Mercurial > emacs

comparison lisp/vc-svn.el @ 87513:2af4faa10fab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-svn.el (vc-svn-parse-status): Set the 'unregisted property correctly.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Tue, 01 Jan 2008 16:39:59 +0000
parents 4146f1cc135e
children 5c7eec3035ec
comparison
equal deleted inserted replaced
87512:4146f1cc135e 87513:2af4faa10fab
546 information about FILENAME and return its status." 546 information about FILENAME and return its status."
547 (let (file status) 547 (let (file status)
548 (goto-char (point-min)) 548 (goto-char (point-min))
549 (while (re-search-forward 549 (while (re-search-forward
550 ;; Ignore the files with status X. 550 ;; Ignore the files with status X.
551 "^\\? +|^[ ACDGIMR!~][ MC][ L][ +][ S]..\\([ *]\\) +\\([-0-9]+\\) +\\([0-9?]+\\) +\\([^ ]+\\) +" nil t) 551 "^\\(\\?\\|[ ACDGIMR!~][ MC][ L][ +][ S]..\\([ *]\\) +\\([-0-9]+\\) +\\([0-9?]+\\) +\\([^ ]+\\)\\) +" nil t)
552 ;; If the username contains spaces, the output format is ambiguous, 552 ;; If the username contains spaces, the output format is ambiguous,
553 ;; so don't trust the output's filename unless we have to. 553 ;; so don't trust the output's filename unless we have to.
554 (setq file (or filename 554 (setq file (or filename
555 (expand-file-name 555 (expand-file-name
556 (buffer-substring (point) (line-end-position))))) 556 (buffer-substring (point) (line-end-position)))))