Mercurial > emacs
comparison lisp/vc-svn.el @ 81617:0a2fb180b0a5
(vc-svn-repository-hostname): Adjust to non-XML format of newer .svn/entries.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 26 Jun 2007 16:39:58 +0000 |
| parents | 114ec88248f4 |
| children | 1b5dfd1b9ca0 988f1edc9674 |
comparison
equal
deleted
inserted
replaced
| 81616:bd1a205d2b3b | 81617:0a2fb180b0a5 |
|---|---|
| 490 (goto-char (point-min)) | 490 (goto-char (point-min)) |
| 491 (when (re-search-forward | 491 (when (re-search-forward |
| 492 ;; Old `svn' used name="svn:this_dir", newer use just name="". | 492 ;; Old `svn' used name="svn:this_dir", newer use just name="". |
| 493 (concat "name=\"\\(?:svn:this_dir\\)?\"[\n\t ]*" | 493 (concat "name=\"\\(?:svn:this_dir\\)?\"[\n\t ]*" |
| 494 "\\(?:[-a-z]+=\"[^\"]*\"[\n\t ]*\\)*?" | 494 "\\(?:[-a-z]+=\"[^\"]*\"[\n\t ]*\\)*?" |
| 495 "url=\"\\([^\"]+\\)\"") nil t) | 495 "url=\"\\(?1:[^\"]+\\)\"" |
| 496 ;; Yet newer ones don't use XML any more. | |
| 497 "\\|^\ndir\n[0-9]+\n\\(?1:.*\\)") nil t) | |
| 496 ;; This is not a hostname but a URL. This may actually be considered | 498 ;; This is not a hostname but a URL. This may actually be considered |
| 497 ;; as a feature since it allows vc-svn-stay-local to specify different | 499 ;; as a feature since it allows vc-svn-stay-local to specify different |
| 498 ;; behavior for different modules on the same server. | 500 ;; behavior for different modules on the same server. |
| 499 (match-string 1)))) | 501 (match-string 1)))) |
| 500 | 502 |