mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 11:20:41 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
inside with-parsed...  macro so that `v' is defined.
This commit is contained in:
Glenn Morris 2009-10-06 02:50:44 +00:00
parent 7938ab41f5
commit 9fb2cdc58b
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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):

6
lisp/net/tramp.el
View file

@ -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)