Mercurial > emacs
changeset 105482:cf961ce7712b
(tramp-handle-start-file-process): Move tramp-error call
inside with-parsed... macro so that `v' is defined.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 06 Oct 2009 02:50:44 +0000 |
| parents | 19b028e1b57f |
| children | ada588cf3ad7 |
| files | lisp/ChangeLog lisp/net/tramp.el |
| diffstat | 2 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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)