From 9fb2cdc58b148f31fadab4a64c24db7bbab0542b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 6 Oct 2009 02:50:44 +0000 Subject: [PATCH] (tramp-handle-start-file-process): Move tramp-error call inside with-parsed... macro so that `v' is defined. --- lisp/ChangeLog | 3 +++ lisp/net/tramp.el | 6 +++--- 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 + * 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) -- 2.39.2