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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18d49b98817ca93bd0b6ada8c9947fce1b7cdd66..50c6e57bccd394947af43f2650d55fd4c911aef2 100644 (file)
--- 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 9be6ea8a0df4efad733f89ca580c31e9b36e2a07..baac32479631908d605aec901e0cbf2e08438436 100644 (file)
--- 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)