"Felix E. Klee" <[email protected]> writes:

Hi Felix,

>> What happens, if you remove all *.elc files from
>> ~/.emacs.d/elpa/tramp-2.5.0.2/ ?
>
> Thanks, that did the trick! Now I can start Emacs as below, and I can
> log into the remote machine with Tramp 2.5.0.2.
>
>     emacs -Q -L ~/.emacs.d/elpa/tramp-2.5.0.2

Good. However, I need to find out what happens with compiled Tramp
files. Hopefully, I can reproduce the problem locally.

> However, at the end of the Dired buffer, I still get:
>
>     //DIRED// 69 70 128 130 188 200 258 273 331 345 403 417 475 493 551
>     566 624 638 696 711 769 784 842 857 915 930 988 1002 1060 1078 1136
>     1151 1209 1224 1282 1295 1353 1367 1425 1438 1496 1509 1567 1580
>     1638 1645 1703 1711 1769 1777 1835 1839 1897 1903 1961 1969 2027
>     2036 2094 2103 2161 2171 2229 2237 2295 2304 2362 2370 2428 2434
>     2492 2499 2557 2565 2623 2632 2690 2696 2754 2764 2822 2829 2887
>     2897 2955 2962 3020 3046 3104 3112 3170 3174 3232 3236 3294 3308
>     3366 3374 3432 3444 3502 3508 3566 3570 3628 3632 3690 3711 3769
>     3773 3831 3837

That's OK as result from the ls command. I've played a little bit with
different versions, and it looks like Tramp assumes always a second
line, "//DIRED-OPTIONS// ...", which isn't present in your case.

The appended patch ought to fix this, could you please try?

Best regards, Michael.

*** /tmp/edifft12xJp	2021-04-03 13:50:17.281357784 +0200
--- /home/albinus/src/tramp/lisp/tramp-sh.el	2021-04-03 13:49:26.206386964 +0200
***************
*** 2584,2591 ****
  	(save-restriction
  	  (narrow-to-region beg-marker end-marker)
  	  ;; Check for "--dired" output.
! 	  (forward-line -2)
! 	  (when (looking-at-p "//SUBDIRED//")
  	    (forward-line -1))
  	  (when (looking-at "//DIRED//\\s-+")
  	    (let ((beg (match-end 0))
--- 2584,2590 ----
  	(save-restriction
  	  (narrow-to-region beg-marker end-marker)
  	  ;; Check for "--dired" output.
! 	  (while (save-excursion (beginning-of-line 0) (looking-at-p "//"))
  	    (forward-line -1))
  	  (when (looking-at "//DIRED//\\s-+")
  	    (let ((beg (match-end 0))

Reply via email to