martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Handle remote file names in cmuscheme.el

Browse Source 
* 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
This commit is contained in:
Vinícius Moraes
2025-08-02 20:52:27 -03:00
committed by Eli Zaretskii
parent d1ab95b175
commit f2d3659cf5
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/cmuscheme.el
View File

@@ -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")))