[Emacs-diffs] emacs/lisp ChangeLog net/tramp.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/06 02:50:48

Modified files:
        lisp           : ChangeLog 
        lisp/net       : tramp.el 

Log message:
        (tramp-handle-start-file-process): Move tramp-error call
        inside with-parsed...  macro so that `v' is defined.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16371&r2=1.16372
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp.el?cvsroot=emacs&r1=1.258&r2=1.259

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16371
retrieving revision 1.16372
diff -u -b -r1.16371 -r1.16372
--- ChangeLog   6 Oct 2009 02:49:02 -0000       1.16371
+++ ChangeLog   6 Oct 2009 02:50:44 -0000       1.16372
@@ -1,5 +1,8 @@
 2009-10-06  Glenn Morris  <address@hidden>
 
+       * 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):

Index: net/tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.258
retrieving revision 1.259
diff -u -b -r1.258 -r1.259
--- net/tramp.el        5 Oct 2009 11:30:31 -0000       1.258
+++ net/tramp.el        6 Oct 2009 02:50:48 -0000       1.259
@@ -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."
+  (with-parsed-tramp-file-name default-directory nil
   (unless (stringp program)
     (tramp-error
      v 'file-error "pty association is not supported for `%s'" name))
-  (with-parsed-tramp-file-name default-directory nil
     (unwind-protect
        (let ((command (format "cd %s; exec %s"
                               (tramp-shell-quote-argument localname)