bug#57385: 28.1.91; project-find-regexp fails over tramp

[André A . Gomes]

Hi Emacs,

It seems that running project-find-regexp fails over tramp.  Any idea?
Thanks.

Here's the backtrace:

--8<---------------cut here---------------start------------->8---
  (split-string (debug) (apply #'vc-git--run-command-string nil "ls-files" 
args) "\0" t)
    [no locals]
  (mapcar #'(lambda (file) (concat default-directory file)) (split-string 
(debug) (apply #'vc-git--run-command-string nil "ls-files" args) "\0" t))
    [no locals]
  (setq files (mapcar #'(lambda (file) (concat default-directory file)) 
(split-string (debug) (apply #'vc-git--run-command-string nil "ls-files" args) 
"\0" t)))
    [no locals]
  (let ((default-directory (expand-file-name (file-name-as-directory dir))) 
(args '("-z")) (vc-git-use-literal-pathspecs nil) files) (setq args (append 
args '("-c" "-o" "--exclude-standard"))) (if extra-ignores (progn (setq args 
(append args (cons "--" (mapcar #'(lambda (i) (format ":(exclude,glob,top)%s" 
(if (string-match "\\*\\*" i) i (if (string-match "\\./" i) (setq i (substring 
i 2)) (setq i (concat "**/" i)) (if (string-match "/\\'" i) (setq i (concat i 
"**")))) i))) extra-ignores)))))) (setq files (mapcar #'(lambda (file) (concat 
default-directory file)) (split-string (debug) (apply 
#'vc-git--run-command-string nil "ls-files" args) "\0" t))) (if 
(project--vc-merge-submodules-p default-directory) (progn (let* ((submodules 
(project--git-submodules)) (sub-files (mapcar #'(lambda (module) (if 
(file-directory-p module) (progn (project--vc-list-files (concat 
default-directory module) backend extra-ignores)))) submodules))) (setq files 
(apply #'nconc files sub-files))))) (delete-consecutive-dups files))
    default-directory = 
"/ssh:192.168.1.82#8022:/data/data/com.termux/files/home/repos/ecl/"
    vc-git-use-literal-pathspecs = nil
    dir = "/ssh:192.168.1.82#8022:/data/data/com.termux/files/home/repos/ecl/"
    backend = Git
    extra-ignores = nil
    args = ("-z" "-c" "-o" "--exclude-standard")
    files = nil
  (let nil (let ((default-directory (expand-file-name (file-name-as-directory 
dir))) (args '("-z")) (vc-git-use-literal-pathspecs nil) files) (setq args 
(append args '("-c" "-o" "--exclude-standard"))) (if extra-ignores (progn (setq 
args (append args (cons "--" (mapcar #'(lambda (i) (format 
":(exclude,glob,top)%s" (if (string-match "\\*\\*" i) i (if (string-match 
"\\./" i) (setq i (substring i 2)) (setq i (concat "**/" i)) (if (string-match 
"/\\'" i) (setq i ...))) i))) extra-ignores)))))) (setq files (mapcar #'(lambda 
(file) (concat default-directory file)) (split-string (debug) (apply 
#'vc-git--run-command-string nil "ls-files" args) "\0" t))) (if 
(project--vc-merge-submodules-p default-directory) (progn (let* ((submodules 
(project--git-submodules)) (sub-files (mapcar #'(lambda (module) (if 
(file-directory-p module) (progn (project--vc-list-files (concat 
default-directory module) backend extra-ignores)))) submodules))) (setq files 
(apply #'nconc files sub-files))))) (delete-consecutive-dups files)))
    [no locals]
  (cond ((eq backend 'Git) (let nil (let ((default-directory (expand-file-name 
(file-name-as-directory dir))) (args '("-z")) (vc-git-use-literal-pathspecs 
nil) files) (setq args (append args '("-c" "-o" "--exclude-standard"))) (if 
extra-ignores (progn (setq args (append args (cons "--" (mapcar #'(lambda (i) 
(format ":(exclude,glob,top)%s" (if (string-match "\\*\\*" i) i (if ... ... ... 
...) i))) extra-ignores)))))) (setq files (mapcar #'(lambda (file) (concat 
default-directory file)) (split-string (debug) (apply 
#'vc-git--run-command-string nil "ls-files" args) "\0" t))) (if 
(project--vc-merge-submodules-p default-directory) (progn (let* ((submodules 
(project--git-submodules)) (sub-files (mapcar #'(lambda (module) (if 
(file-directory-p module) (progn (project--vc-list-files ... backend 
extra-ignores)))) submodules))) (setq files (apply #'nconc files sub-files))))) 
(delete-consecutive-dups files)))) ((eq backend 'Hg) (let nil (let 
((default-directory (expand-file-name (file-name-as-directory dir))) args) 
(setq args (nconc args '("-mcardu" "--no-status" "-0"))) (if extra-ignores 
(progn (setq args (nconc args (mapcan #'(lambda (i) (list "--exclude" i)) 
extra-ignores))))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) 
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (apply 
#'vc-hg-command t 0 "." "status" args) (mapcar #'(lambda (s) (concat 
default-directory s)) (split-string (buffer-string) "\0" t))) (and (buffer-name 
temp-buffer) (kill-buffer temp-buffer)))))))))
    [no locals]
  
project--vc-list-files("/ssh:192.168.1.82#8022:/data/data/com.termux/files/home/repos/ecl/"
 Git nil)
    dir = "/ssh:192.168.1.82#8022:/data/data/com.termux/files/home/repos/ecl/"
    backend = Git
    extra-ignores = nil
--8<---------------cut here---------------end--------------->8---


In GNU Emacs 28.1.91 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.30, cairo 
version 1.16.0)
Windowing system distributor 'The X.Org Foundation', version 11.0.12101004
System Description: Guix System

Configured using:
 'configure
 
CONFIG_SHELL=/gnu/store/4y5m9lb8k3qkb1y9m02sw9w9a6hacd16-bash-minimal-5.1.8/bin/bash
 SHELL=/gnu/store/4y5m9lb8k3qkb1y9m02sw9w9a6hacd16-bash-minimal-5.1.8/bin/bash
 --prefix=/gnu/store/c36vz6k65nvi3lbawcmma4wpy5m6cwr2-aadcg-emacs-28.1.91
 --enable-fast-install --with-modules --with-cairo
 --disable-build-details'

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
JSON LCMS2 LIBOTF LIBSELINUX LIBSYSTEMD LIBXML2 M17N_FLT MODULES NOTIFY
INOTIFY PDUMPER PNG RSVG SECCOMP SOUND THREADS TIFF TOOLKIT_SCROLL_BARS
X11 XDBE XIM XPM GTK3 ZLIB

Memory information:
((conses 16 720251 121643)
 (symbols 48 59845 80)
 (strings 32 215755 11847)
 (string-bytes 1 6865269)
 (vectors 16 125544)
 (vector-slots 8 2419028 75894)
 (floats 8 1097 746)
 (intervals 56 4478 1261)
 (buffers 992 62))

-- 
André A. Gomes
"You cannot even find the ruins..."