CVS update by scop packages/xemacs-packages/tramp/lisp ...

[xemacs-cvs at xemacs.org]

  User: scop    
  Date: 07/09/06 22:48:41

  Modified:    packages/xemacs-packages/tramp/lisp tramp-vc.el
Log:
Fix test whether vc-user-login-name needs defadvice <200709062347.49318.scop at xemacs.org>

Revision  Changes    Path
1.71      +6 -0      XEmacs/packages/xemacs-packages/tramp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/ChangeLog,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -p -r1.70 -r1.71
--- ChangeLog	2007/06/11 09:12:00	1.70
+++ ChangeLog	2007/09/06 20:48:34	1.71
@@ -1,3 +1,9 @@
+2007-09-06  Ville Skyttä  <scop at xemacs.org>
+
+	* lisp/tramp-vc.el (vc-user-login-name): Use `vc-find-version'
+	instead of `process-file' to check whether we have a new enough
+	vc that doesn't need the defadvice.
+
 2007-06-11  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.38 released.



1.19      +4 -1      XEmacs/packages/xemacs-packages/tramp/lisp/tramp-vc.el

Index: tramp-vc.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/lisp/tramp-vc.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -p -r1.18 -r1.19
--- tramp-vc.el	2007/05/28 10:53:37	1.18
+++ tramp-vc.el	2007/09/06 20:48:39	1.19
@@ -437,7 +437,10 @@ filename we are thinking about..."
 ;; The following defadvice is no longer necessary after changes in VC
 ;; on 2006-01-25, Andre.
 
-(unless (fboundp 'process-file)
+;; That means either GNU Emacs >= 22 or the "new vc" package from XEmacs
+;; packages collection; as of 2007-09-06, test for availability of
+;; `vc-find-version' works for both of those cases.
+(unless (fboundp 'vc-find-version)
   (defadvice vc-user-login-name
     (around tramp-vc-user-login-name activate)
     "Support for files on remote machines accessed by TRAMP."