SM
Только я до конца не уверен, что должно происходить для remote-файлов, поэтому пока append
Size: a a a
2020 September 06
DL
так tramp-remote-path чем не угодил?
VL
так tramp-remote-path чем не угодил?
тем что executable-find не ищет в нем
SM
так tramp-remote-path чем не угодил?
ну я как раз и дописал, чтобы он искал там
SM
Я хз, почему в емаксе сделали не так
VL
сууука, ну кто блидь из мантейнеров юзает табы в илисп коде
VL
(defun executable-find (command &optional remote)
"Search for COMMAND in `exec-path' and return the absolute file name.
Return nil if COMMAND is not found anywhere in `exec-path'. If
REMOTE is non-nil, search on the remote host indicated by
`default-directory' instead."
(if (and remote (file-remote-p default-directory))
(let ((res (locate-file
command
(append (mapcar
(lambda (x) (concat (file-remote-p default-directory) x))
(exec-path)) tramp-remote-path)
exec-suffixes 'file-executable-p)))
(when (stringp res) (file-local-name res)))
;; Use 1 rather than file-executable-p to better match the
;; behavior of call-process.
(let ((default-directory (file-name-quote default-directory 'top)))
(locate-file command exec-path exec-suffixes 1))))
да уже, тут даже адвайсом никак не подхачить
DL
да уже, тут даже адвайсом никак не подхачить
а если в эдвайсе сделать залетить exec-path?
DL
чтобы tramp-remote-path аппендить
VL
SM
а если в эдвайсе сделать залетить exec-path?
так ведь tramp-remote-path добавляется как есть, подмена exec-path тут ничего не даст, если я правильно понимаю, как это работает
SM
(я не очень представляю, как работают advice)
VL
(defun executable-find (command &optional remote)
"Search for COMMAND in `exec-path' and return the absolute file name.
Return nil if COMMAND is not found anywhere in `exec-path'. If
REMOTE is non-nil, search on the remote host indicated by
`default-directory' instead."
(if (and remote (file-remote-p default-directory))
(let ((res (locate-file
command
(append (mapcar
(lambda (x) (concat (file-remote-p default-directory) x))
(exec-path)) tramp-remote-path)
exec-suffixes 'file-executable-p)))
(when (stringp res) (file-local-name res)))
;; Use 1 rather than file-executable-p to better match the
;; behavior of call-process.
(let ((default-directory (file-name-quote default-directory 'top)))
(locate-file command exec-path exec-suffixes 1))))
короче, лучше не делать defun
а сделай адвайс с :override
а сделай адвайс с :override
VL
чтобы в любой момент можно было вернуть назад
SM
окей, попробую, спасибо
DL
а вообще можно эдвайс :after и там вручную locate-file из tramp-remote-path если не найдено
VL
еще вариант с адвайсом это в :around временно переопределить функцию exec-path
DL
или посмотреть на сам exec-path
DL
в 26 это переенная ещё
DL
(let ((handler (find-file-name-handler default-directory 'exec-path)))
(if handler
(funcall handler 'exec-path)
exec-path)))