On Thu, Jul 15, 2010 at 11:07 AM, Michael Albinus <[email protected]>wrote:
> Terrence Brannon <[email protected]> writes: > > >> Unfortunately, this doesn't show us what happens. Could you, please, > >> change in `tramp-send-command-and-check' the line > >> > >> (if command (if dont-suppress-err "; " " 2>/dev/null; ") "") > >> > >> to > >> > >> (if command (if dont-suppress-err "; " " 2>/tmp/123; ") "") > >> > >> and try to investigate, what error has been written? > > > > It was a zero-length file ... > > Ahh, stderr is already redirected somewhere else. Please revert this > patch, reverted. > and apply instead > applied. > > --8<---------------cut here---------------start------------->8--- > *** /home/albinus/src/tramp/lisp/tramp.el.~1~ 2010-07-13 > 17:43:56.000000000 +0200 > --- /home/albinus/src/tramp/lisp/tramp.el 2010-07-15 > 17:02:19.448021000 +0200 > *************** > > I applied it. The entire file is here: http://gist.github.com/477094 It threw a gigantic stack backtrace: Debugger entered--Lisp error: (file-error "`tramp_perl_file_truename /root/' returns with error") signal(file-error ("`tramp_perl_file_truename /root/' returns with error")) (let (tramp-message-show-message) (tramp-message vec-or-proc 1 "%s" (error-message-string ...)) (signal signal (list ...))) tramp-error(["ssh" "root" "aim.boca.verio.net" "/root/"] file-error "`%s' returns with error" "tramp_perl_file_truename /root/") apply(tramp-error ["ssh" "root" "aim.boca.verio.net" "/root/"] file-error "`%s' returns with error" "tramp_perl_file_truename /root/") (if (zerop (tramp-send-command-and-check vec command)) nil (apply (quote tramp-error) vec (quote file-error) fmt args)) (unless (zerop (tramp-send-command-and-check vec command)) (apply (quote tramp-error) vec (quote file-error) fmt args)) tramp-barf-unless-okay(["ssh" "root" "aim.boca.verio.net" "/root/"] "tramp_perl_file_truename /root/" "`%s' returns with error" "tramp_perl_file_truename /root/") tramp-send-command-and-read(["ssh" "root" "aim.boca.verio.net" "/root/"] "tramp_perl_file_truename /root/") (setq result (tramp-send-command-and-read v (format "tramp_perl_file_truename %s" ...))) (cond ((tramp-get-remote-readlink v) (setq result ...)) ((and ... ... ...) (tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename") (setq result ...)) (t (let* ... ... ... ... ... ...))) (let ((result nil)) (tramp-message v 4 "Finding true name for `%s'" filename) (cond (... ...) (... ... ...) (t ...)) (tramp-message v 4 "True name of `%s' is `%s'" filename result) (tramp-make-tramp-file-name method user host result)) (progn (let (...) (tramp-message v 4 "Finding true name for `%s'" filename) (cond ... ... ...) (tramp-message v 4 "True name of `%s' is `%s'" filename result) (tramp-make-tramp-file-name method user host result))) (setq value (progn (let ... ... ... ... ...))) (progn (setq value (progn ...)) (tramp-set-file-property v localname "file-truename" value)) (if (eq value (quote undef)) (progn (setq value ...) (tramp-set-file-property v localname "file-truename" value))) (when (eq value (quote undef)) (setq value (progn ...)) (tramp-set-file-property v localname "file-truename" value)) (let ((value ...)) (when (eq value ...) (setq value ...) (tramp-set-file-property v localname "file-truename" value)) value) (if (file-name-absolute-p localname) (let (...) (when ... ... ...) value) (let (...) (tramp-message v 4 "Finding true name for `%s'" filename) (cond ... ... ...) (tramp-message v 4 "True name of `%s' is `%s'" filename result) (tramp-make-tramp-file-name method user host result))) (with-file-property v localname "file-truename" (let (...) (tramp-message v 4 "Finding true name for `%s'" filename) (cond ... ... ...) (tramp-message v 4 "True name of `%s' is `%s'" filename result) (tramp-make-tramp-file-name method user host result))) (let* ((v ...) (method ...) (user ...) (host ...) (localname ...)) (with-file-property v localname "file-truename" (let ... ... ... ... ...))) (with-parsed-tramp-file-name (expand-file-name filename) nil (with-file-property v localname "file-truename" (let ... ... ... ... ...))) tramp-handle-file-truename("/ssh:[email protected]:/root/") apply(tramp-handle-file-truename "/ssh:[email protected]:/root/") (if fn (apply (cdr fn) args) (tramp-run-real-handler operation args)) (let ((fn ...)) (if fn (apply ... args) (tramp-run-real-handler operation args))) (progn (let (...) (if fn ... ...))) (unwind-protect (progn (let ... ...)) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) (save-match-data (let (...) (if fn ... ...))) (let ((tramp-locker t)) (save-match-data (let ... ...))) (progn (setq tramp-locked t) (let (...) (save-match-data ...))) (unwind-protect (progn (setq tramp-locked t) (let ... ...)) (setq tramp-locked tl)) (let ((tl tramp-locked)) (unwind-protect (progn ... ...) (setq tramp-locked tl))) tramp-sh-file-name-handler(file-truename "/ssh:[email protected]: /root/") apply(tramp-sh-file-name-handler file-truename "/ssh:[email protected]:/root/") (cond ((and completion ... ...) t) ((and completion ... ...) filename) (foreign (apply foreign operation args)) (t (tramp-run-real-handler operation args))) (let* ((v ...) (method ...) (user ...) (host ...) (localname ...)) (cond (... t) (... filename) (foreign ...) (t ...))) (with-parsed-tramp-file-name filename nil (cond (... t) (... filename) (foreign ...) (t ...))) (let* ((filename ...) (completion ...) (foreign ...)) (with-parsed-tramp-file-name filename nil (cond ... ... ... ...))) (progn (let* (... ... ...) (with-parsed-tramp-file-name filename nil ...))) (unwind-protect (progn (let* ... ...)) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) (save-match-data (let* (... ... ...) (with-parsed-tramp-file-name filename nil ...))) (if tramp-mode (save-match-data (let* ... ...)) (tramp-run-real-handler operation args)) tramp-file-name-handler(file-truename "/ssh:[email protected]: /root/") file-truename("/ssh:[email protected]:/root/") cedet-directory-name-to-file-name("/ssh:[email protected]:/root/") ede-simple-projectfile-for-dir("/ssh:[email protected]:/root/") #[(this dir) "\306!\307\n \"\310\n\311\"\211 ;\203 \312\f \206 \"\2020\f9\2050\313\f!\2050\f \206/ !\211 \205<\314 !\205< ,\207" [dir d this root pf f file-name-as-directory ede-project-root-directory eieio-oref proj-file expand-file-name fboundp file-exists-p] 4 "Return a full file name of project THIS found in DIR.\nReturn nil if the project file does not exist."]([object ede-project-autoload "simple-overlay" "Simple" ede-simple ede-simple-projectfile-for-dir unbound nil ede-simple-load ede-simple-project t] "/ssh:[email protected]:/root/") apply(#[(this dir) "\306!\307\n \"\310\n\311\"\211 ;\203 \312\f \206 \"\2020\f9\2050\313\f!\2050\f \206/ !\211 \205<\314 !\205< ,\207" [dir d this root pf f file-name-as-directory ede-project-root-directory eieio-oref proj-file expand-file-name fboundp file-exists-p] 4 "Return a full file name of project THIS found in DIR.\nReturn nil if the project file does not exist."] ([object ede-project-autoload "simple-overlay" "Simple" ede-simple ede-simple-projectfile-for-dir unbound nil ede-simple-load ede-simple-project t] "/ssh:[email protected]:/root/")) ede-dir-to-projectfile([object ede-project-autoload "simple-overlay" "Simple" ede-simple ede-simple-projectfile-for-dir unbound nil ede-simple-load ede-simple-project t] "/ssh:[email protected]:/root/") ede-directory-project-p("/ssh:[email protected]:/root/") ede-dired-minor-mode(1) ede-minor-mode(1) ede-turn-on-hook() run-hooks(dired-mode-hook) apply(run-hooks dired-mode-hook) run-mode-hooks(dired-mode-hook) dired-mode("/ssh:[email protected]:/root/" "-al") dired-internal-noselect("/ssh:[email protected]:/root/" nil) dired-noselect("/[email protected]:" nil) dired-other-window("/[email protected]:" nil) call-interactively(dired-other-window nil nil) -- Search! Search! [DuckDuckGo](http://duckduckgo.com/?t=terrencebrannon)
_______________________________________________ Tramp-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/tramp-devel
