# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1254797444 0
# Node ID cf961ce7712b985a25ce8d78777dd412b8de7579
# Parent  19b028e1b57fd0462f2c93a4776159517a3680d0
(tramp-handle-start-file-process): Move tramp-error call
inside with-parsed...  macro so that `v' is defined.

diff -r 19b028e1b57f -r cf961ce7712b lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Oct 06 02:49:02 2009 +0000
+++ b/lisp/ChangeLog	Tue Oct 06 02:50:44 2009 +0000
@@ -1,5 +1,8 @@
 2009-10-06  Glenn Morris  <rgm@gnu.org>
 
+	* 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):
diff -r 19b028e1b57f -r cf961ce7712b lisp/net/tramp.el
--- a/lisp/net/tramp.el	Tue Oct 06 02:49:02 2009 +0000
+++ b/lisp/net/tramp.el	Tue Oct 06 02:50:44 2009 +0000
@@ -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."
-  (unless (stringp program)
-    (tramp-error
-     v 'file-error "pty association is not supported for `%s'" name))
   (with-parsed-tramp-file-name default-directory nil
+    (unless (stringp program)
+      (tramp-error
+       v 'file-error "pty association is not supported for `%s'" name))
     (unwind-protect
 	(let ((command (format "cd %s; exec %s"
 			       (tramp-shell-quote-argument localname)