Andrew Heybey <[EMAIL PROTECTED]> writes:
> "/home/ath/proj/bin/foo/./{arch}/++pristine-trees/...". It should be
> trying to open /home/ath/proj/{arch}/++pristine-trees/...".
First, I'd advise you to use a greedy and sparse revision library to
get rid of pristine-trees.
> --- orig/xtla.el
> +++ mod/xtla.el
> @@ -1712,6 +1712,7 @@
> (concat (file-name-nondirectory file)
> "<" (or revision
> "original") ">"))))
> + (setq original (concat (tla-tree-root) "/" original))
> (with-current-buffer buffer-orig
> (erase-buffer)
> (insert-file-contents original)
Nice try, but it doesn't work if you use a revision library because
then, `original' is an absolute path.
Try this instead:
--- orig/xtla.el
+++ mod/xtla.el
@@ -1389,7 +1389,8 @@
"original") ">"))))
(with-current-buffer buffer-orig
(erase-buffer)
- (insert-file-contents original)
+ (let ((default-directory (tla-tree-root)))
+ (insert-file-contents original))
(when original-to-be-removed
(delete-file original))
(when (string= (with-current-buffer modified-buf
Thanks for the report !
(Applied in my archive)
--
Matthieu
