CVS update by scop MODIFIED: packages/unsupported/scop/vc ...
User: scop
Date: 05/03/06 00:59:11
Modified: packages/unsupported/scop/vc ChangeLog vc.el
Log:
Sync vc.el with upstream.
Revision Changes Path
1.38 +2 -2 XEmacs/packages/unsupported/scop/STATUS
Index: STATUS
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/STATUS,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -r1.37 -r1.38
--- STATUS 2005/02/10 22:34:10 1.37
+++ STATUS 2005/03/05 23:59:06 1.38
＠＠ -13,9 +13,9 ＠＠
- Compiles, I have no idea whether it works or not.
generic-modes: generic.el and generic-x.el from GNU Emacs
-- Up to date with GNU Emacs CVS HEAD as of 2005-02-11.
+- Up to date with GNU Emacs CVS HEAD as of 2005-03-06.
- Compiles, seems to work, auto-mode-alist and autoloads need spanking.
vc: vc*.el from GNU Emacs
-- Up to date with GNU Emacs CVS HEAD as of 2005-02-11.
+- Up to date with GNU Emacs CVS HEAD as of 2005-03-06.
- Compiles, something even works.
1.23 +4 -0 XEmacs/packages/unsupported/scop/vc/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- ChangeLog 2005/02/10 22:34:13 1.22
+++ ChangeLog 2005/03/05 23:59:09 1.23
＠＠ -1,3 +1,7 ＠＠
+2005-03-06 Ville Skyttä <scop(a)xemacs.org>
+
+ * vc.el: Sync with upstream.
+
2005-02-11 Ville Skyttä <scop(a)xemacs.org>
* vc*.el: Sync with upstream.
1.11 +3 -0 XEmacs/packages/unsupported/scop/vc/vc.el
Index: vc.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/vc.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- vc.el 2005/02/10 22:34:14 1.10
+++ vc.el 2005/03/05 23:59:09 1.11
＠＠ -964,6 +964,9 ＠＠
(mapconcat 'identity vc-path path-separator))
process-environment))
(w32-quote-process-args t))
+ (if (and (eq okstatus 'async) (file-remote-p default-directory))
+ ;; start-process does not support remote execution
+ (setq okstatus nil))
(if (eq okstatus 'async)
(let ((proc (apply 'start-process command (current-buffer) command
squeezed)))