From: Steve Y. <yo...@xe...> - 2002-02-12 01:55:03
|
This is in CVS, please test. Index: lisp/ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.85 diff -u -w -U0 -r2.85 ChangeLog --- lisp/ChangeLog 8 Feb 2002 08:29:59 -0000 2.85 +++ lisp/ChangeLog 12 Feb 2002 01:40:43 -0000 @@ -0,0 +1,9 @@ +2002-02-12 Steve Youngs <yo...@xe...> + + * tramp.el (tramp-handle-insert-directory): Change "#'identity" to + "'identity" it was causing a invalid read syntax error that edebug + brought to the surface. + Add a "." after directory name so that symlinked directories + display properly on platforms that have breakage on symlinks like + Solaris. + Index: lisp/tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.86 diff -u -w -r2.86 tramp.el --- lisp/tramp.el 8 Feb 2002 08:29:59 -0000 2.86 +++ lisp/tramp.el 12 Feb 2002 01:41:08 -0000 @@ -2213,7 +2213,7 @@ (setq wildcard (file-name-nondirectory path)) (setq path (file-name-directory path))) (when (listp switches) - (setq switches (mapconcat #'identity switches " "))) + (setq switches (mapconcat 'identity switches " "))) (unless full-directory-p (setq switches (concat "-d " switches))) (when wildcard @@ -2229,7 +2229,7 @@ switches (if wildcard path - (tramp-shell-quote-argument path)))) + (tramp-shell-quote-argument (concat path "."))))) (tramp-barf-unless-okay multi-method method user host (format "cd %s" (tramp-shell-quote-argument -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------<yo...@xe...>---| |