From f2d3659cf50e3f3eb78e28835109884dc33bdd83 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Vin=C3=ADcius=20Moraes?= Date: Sat, 2 Aug 2025 20:52:27 -0300 Subject: [PATCH] Handle remote file names in cmuscheme.el * lisp/cmuscheme.el (scheme-load-file, scheme-compile-file): Use 'file-local-name' to handle file names on remote systems. (Bug#79163) Copyright-paperwork-exempt: yes --- lisp/cmuscheme.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index 6528ac3fb7d..35198e79e73 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -416,7 +416,7 @@ in the next one.") (setq scheme-prev-l/c-dir/file (cons (file-name-directory file-name) (file-name-nondirectory file-name))) (comint-send-string (scheme-proc) (concat "(load \"" - file-name + (file-local-name file-name) "\")\n"))) (defun scheme-compile-file (file-name) @@ -430,7 +430,7 @@ in the next one.") (setq scheme-prev-l/c-dir/file (cons (file-name-directory file-name) (file-name-nondirectory file-name))) (comint-send-string (scheme-proc) (concat "(compile-file \"" - file-name + (file-local-name file-name) "\")\n")))