From 7d043d590d4fa7d702a7a12d437e90ec3b4fb069 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 5 Dec 2014 21:36:47 +0100 Subject: [PATCH] Fix minor bugs in vc. * vc/vc-mtn.el (vc-mtn-root): * vc/vc-svn.el (vc-svn-registered): Make FILE absolute. --- lisp/ChangeLog | 6 +++++- lisp/vc/vc-mtn.el | 3 ++- lisp/vc/vc-svn.el | 1 + 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 79ee9d75906..7cbacecd16f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,10 +1,14 @@ +2014-12-05 Michael Albinus + + * vc/vc-mtn.el (vc-mtn-root): + * vc/vc-svn.el (vc-svn-registered): Make FILE absolute. + 2014-12-05 Stefan Monnier * progmodes/sh-script.el (sh-smie-sh-rules): Go back to the beginning of the whole pipe when indenting an opening keyword after a |. Generalize this treatment to opening keywords like "while" (bug#18031). -2014-12-05 Stefan Monnier 2014-12-05 Stefan Monnier * simple.el (newline): Place the hook buffer-locally, diff --git a/lisp/vc/vc-mtn.el b/lisp/vc/vc-mtn.el index f35e87e2e2e..57225f5f9ef 100644 --- a/lisp/vc/vc-mtn.el +++ b/lisp/vc/vc-mtn.el @@ -79,7 +79,8 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." (defun vc-mtn-checkout-model (_files) 'implicit) (defun vc-mtn-root (file) - (setq file (if (file-directory-p file) + (setq file (expand-file-name file) + file (if (file-directory-p file) (file-name-as-directory file) (file-name-directory file))) (or (vc-file-getprop file 'vc-mtn-root) diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el index e29dae4d47c..c36e90b9fdf 100644 --- a/lisp/vc/vc-svn.el +++ b/lisp/vc/vc-svn.el @@ -135,6 +135,7 @@ If you want to force an empty list of arguments, use t." (defun vc-svn-registered (file) "Check if FILE is SVN registered." + (setq file (expand-file-name file)) (when (vc-svn-root file) (with-temp-buffer (cd (file-name-directory file)) -- 2.39.2