(tramp-handle-start-file-process): Move tramp-error call

inside with-parsed...  macro so that `v' is defined.

2 files changed, 6 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18d49b98817..50c6e57bccd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 9be6ea8a0df..baac3247963 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3999,10 +3999,10 @@ beginning of local filename are not substituted."
 ;; 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)