[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog net/tramp.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog net/tramp.el |
Date: |
Tue, 06 Oct 2009 02:50:49 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/10/06 02:50:48
Modified files:
lisp : ChangeLog
lisp/net : tramp.el
Log message:
(tramp-handle-start-file-process): Move tramp-error call
inside with-parsed... macro so that `v' is defined.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16371&r2=1.16372
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp.el?cvsroot=emacs&r1=1.258&r2=1.259
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16371
retrieving revision 1.16372
diff -u -b -r1.16371 -r1.16372
--- ChangeLog 6 Oct 2009 02:49:02 -0000 1.16371
+++ ChangeLog 6 Oct 2009 02:50:44 -0000 1.16372
@@ -1,5 +1,8 @@
2009-10-06 Glenn Morris <address@hidden>
+ * net/tramp.el (tramp-handle-start-file-process): Move tramp-error call
+ inside with-parsed... macro so that `v' is defined.
+
* progmodes/f90.el (f90-end-of-block, f90-beginning-of-block):
* progmodes/fortran.el (fortran-end-of-block)
(fortran-beginning-of-block):
Index: net/tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.258
retrieving revision 1.259
diff -u -b -r1.258 -r1.259
--- net/tramp.el 5 Oct 2009 11:30:31 -0000 1.258
+++ net/tramp.el 6 Oct 2009 02:50:48 -0000 1.259
@@ -3999,10 +3999,10 @@
;; connection has been setup.
(defun tramp-handle-start-file-process (name buffer program &rest args)
"Like `start-file-process' for Tramp files."
+ (with-parsed-tramp-file-name default-directory nil
(unless (stringp program)
(tramp-error
v 'file-error "pty association is not supported for `%s'" name))
- (with-parsed-tramp-file-name default-directory nil
(unwind-protect
(let ((command (format "cd %s; exec %s"
(tramp-shell-quote-argument localname)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog net/tramp.el,
Glenn Morris <=