andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Tramp scripts

Browse source 
* lisp/net/tramp-sh.el (tramp-shell-file-name-all-completions)
(tramp-bundle-read-file-names): Fix scripts.
This commit is contained in:
Michael Albinus 2025-06-23 18:00:08 +02:00
parent 1a8e8203a1
commit 991d3ad80a
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/net/tramp-sh.el
View file

@ -748,8 +748,8 @@ doubled.")
(defconst tramp-shell-file-name-all-completions
"cd \"$1\" 2>&1; %l -a %n | while IFS= read file; do
quoted=`echo \"$1/$file\" | sed -e \"s#//#/#g\" -e \"s/\\\"/\\\\\\\\\\\\\\\\\\\"/g\"`
printf \"%%b\n\" \"$quoted\"
quoted=`echo \"$1/$file\" | sed -e \"s#//#/#g\"`
printf \"%%s\\n\" \"$quoted\"
done | tramp_bundle_read_file_names"
"Shell script to produce output suitable for use with
`file-name-all-completions' on the remote file system. It returns the
@ -1187,11 +1187,11 @@ characters need to be doubled.")
"echo \"(\"
while IFS= read file; do
quoted=`echo \"$file\" | sed -e \"s/\\\"/\\\\\\\\\\\\\\\\\\\"/g\"`
printf \"(%%b\" \"\\\"$quoted\\\"\"
if %q \"$file\"; then printf \" %%b\" t; else printf \" %%b\" nil; fi
if %m -r \"$file\"; then printf \" %%b\" t; else printf \" %%b\" nil; fi
if %m -d \"$file\"; then printf \" %%b\" t; else printf \" %%b\" nil; fi
if %m -x \"$file\"; then printf \" %%b)\n\" t; else printf \" %%b)\n\" nil; fi
printf \"(%%s\" \"\\\"$quoted\\\"\"
if %q \"$file\"; then printf \" %%s\" t; else printf \" %%s\" nil; fi
if %m -r \"$file\"; then printf \" %%s\" t; else printf \" %%s\" nil; fi
if %m -d \"$file\"; then printf \" %%s\" t; else printf \" %%s\" nil; fi
if %m -x \"$file\"; then printf \" %%s)\\n\" t; else printf \" %%s)\\n\" nil; fi
done
echo \")\""
"Shell script to check file attributes of a bundle of files.