GNU bug report logs - #79163
30.1; [PATCH] Handle remote file names in cmuscheme.el

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Vinícius Moraes <vinicius.moraes <at> eternodevir.com>
Subject: bug#79163: closed (Re: bug#79163: 30.1; [PATCH] Handle remote
 file names in cmuscheme.el)
Date: Thu, 07 Aug 2025 13:23:02 +0000

[Message part 1 (text/plain, inline)]

Your bug report

#79163: 30.1; [PATCH] Handle remote file names in cmuscheme.el

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 79163 <at> debbugs.gnu.org.

-- 
79163: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=79163
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Eli Zaretskii <eliz <at> gnu.org>
To: Michael Albinus <michael.albinus <at> gmx.de>
Cc: 79163-done <at> debbugs.gnu.org, vinicius.moraes <at> eternodevir.com
Subject: Re: bug#79163: 30.1; [PATCH] Handle remote file names in cmuscheme.el
Date: Thu, 07 Aug 2025 16:22:16 +0300

> From: Michael Albinus <michael.albinus <at> gmx.de>
> Cc: Vinícius Moraes <vinicius.moraes <at> eternodevir.com>,
>   79163 <at> debbugs.gnu.org
> Date: Mon, 04 Aug 2025 13:57:59 +0200
> 
> Eli Zaretskii <eliz <at> gnu.org> writes:
> 
> Hi Eli,
> 
> >> I have been using this patch downstream without problems, but tackling
> >> it upstream (for multiple Scheme implementations and workflows) could be
> >> a different story. In any case, I hope this report helps. Let me know if
> >> you have any questions or suggestions.
> >
> > Thanks.
> >
> > Michael, any comments or suggestions?
> 
> The patch looks proper to me.

Thanks, I've now installed this on the emacs-30 release branch, and
I'm closing the bug.

[Message part 3 (message/rfc822, inline)]

From: Vinícius Moraes <vinicius.moraes <at> eternodevir.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 30.1; [PATCH] Handle remote file names in cmuscheme.el
Date: Sun, 03 Aug 2025 00:48:59 +0000

[Message part 4 (text/plain, inline)]

Hello,

I came across a minor problem while using `scheme-load-file' from
`cmuscheme.el' via TRAMP.[tldr-recipe]

As I understand it, currently, `scheme-load-file' sends the file-name
directly to the Scheme interpreter (through `comint-send-string')
without removing TRAMP's remote file name syntax. This seems to make the
interpreter on a remote system (or, in this case, a container) attempt
to load an incorrect file name.

For example:
#;1>
Error: (load) cannot open file: "/podman:demo:/home/t/example.scm"
[...]
<eval> (load "/podman:demo:/home/t/example.scm") <--

(See [tldr-recipe] for the non-simplified/real values and recipe. I was
able to reproduce it with a VM and the `ssh' method as well).

Expected outcome: (load "/home/t/example.scm")

Since `file-local-name' returns the string/argument unaltered for
non-remote file names[1], I _think_ this change should not affect the
current/correct behavior for non-remote scenarios. (`shell' seems to use
a similar approach with `file-local-name' and `expand-file-name' on
remote hosts; I decided to not include `expand-file-name' here because,
in my understanding, `comint-get-source' is already handling the
expansion[2]).

For consistency, I applied the same fix to the `scheme-compile-file'
function as well---since the logic is almost the same.

I have been using this patch downstream without problems, but tackling
it upstream (for multiple Scheme implementations and workflows) could be
a different story. In any case, I hope this report helps. Let me know if
you have any questions or suggestions.

P.S.: This is my first time contributing back here. I consider myself a
Lisp apprentice and I'm still getting familiar with Emacs internals and
conventions.

[tldr-recipe]: Recipe used to reproduce the behavior. 1. \emacs -Q
2. (require 'cmuscheme) 3. (setq scheme-program-name "csi")
4. (find-file "/podman:mkdev-test:/home/ttybitnik/workspace/
test.scm"). 5. (scheme-load-file)
Outcome: '#;1> [...] Error: (load) cannot open file [...]
<eval> (load "/podman:mkdev-test:/home/ttybitnik/workspace/test.scm")
Expected: (load "/home/ttybitnik/workspace/test.scm")

[1]: "[...] (or (file-remote-p file 'localname) file)"

[2]: "[...] (list (expand-file-name (substitute-in-file-name ans)))"

Thanks for all the work on GNU Emacs.

Kind regards,
Vinícius Moraes

[0001-Handle-remote-file-names-in-cmuscheme.el.patch (text/x-patch, attachment)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.