Mercurial > emacs
comparison lisp/vc-bzr.el @ 106819:328951014a28
Fix comment for bug#5345.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Wed, 13 Jan 2010 17:28:32 +0100 |
parents | 1d1d5d9bd884 |
children | 38312121c181 |
comparison
equal
deleted
inserted
replaced
106818:a3da62473e24 | 106819:328951014a28 |
---|---|
361 ;; look there for the version information. | 361 ;; look there for the version information. |
362 (when (re-search-forward "file://\\(.+\\)" nil t) | 362 (when (re-search-forward "file://\\(.+\\)" nil t) |
363 (let ((l-c-parent-dir (match-string 1))) | 363 (let ((l-c-parent-dir (match-string 1))) |
364 (when (and (memq system-type '(ms-dos windows-nt)) | 364 (when (and (memq system-type '(ms-dos windows-nt)) |
365 (string-match-p "^/[[:alpha:]]:" l-c-parent-dir)) | 365 (string-match-p "^/[[:alpha:]]:" l-c-parent-dir)) |
366 ;;; On Windows, file:// URLs often have three slashes, | 366 ;;; The non-Windows code takes a shortcut by using the host/path |
367 ;;; so we must remove the remaining one (bug#5345) | 367 ;;; separator slash as the start of the absolute path. That |
368 ;;; does not work on Windows, so we must remove it (bug#5345) | |
368 (setq l-c-parent-dir (substring l-c-parent-dir 1))) | 369 (setq l-c-parent-dir (substring l-c-parent-dir 1))) |
369 (setq branch-format-file | 370 (setq branch-format-file |
370 (expand-file-name vc-bzr-admin-branch-format-file | 371 (expand-file-name vc-bzr-admin-branch-format-file |
371 l-c-parent-dir)) | 372 l-c-parent-dir)) |
372 (setq lastrev-file | 373 (setq lastrev-file |