mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues 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")))