Commit 9fb2cdc5 authored by Glenn Morris's avatar Glenn Morris

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

inside with-parsed...  macro so that `v' is defined.
parent 7938ab41
2009-10-06 Glenn Morris <rgm@gnu.org> 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/f90.el (f90-end-of-block, f90-beginning-of-block):
* progmodes/fortran.el (fortran-end-of-block) * progmodes/fortran.el (fortran-end-of-block)
(fortran-beginning-of-block): (fortran-beginning-of-block):
......
...@@ -3999,10 +3999,10 @@ beginning of local filename are not substituted." ...@@ -3999,10 +3999,10 @@ beginning of local filename are not substituted."
;; connection has been setup. ;; connection has been setup.
(defun tramp-handle-start-file-process (name buffer program &rest args) (defun tramp-handle-start-file-process (name buffer program &rest args)
"Like `start-file-process' for Tramp files." "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 (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 (unwind-protect
(let ((command (format "cd %s; exec %s" (let ((command (format "cd %s; exec %s"
(tramp-shell-quote-argument localname) (tramp-shell-quote-argument localname)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment