You mean that you just replaced global-client method with (process-file) method. Right? It seems to be far more robust and simpler. Does this code work with any version of emacs?
Regards, Shigio 2020年10月22日(木) 23:56 andrés ramírez <[email protected]>: > > Hi Michael. Hi Shigio. > > >>>>> "INKA" == andrés ramírez <[email protected]> writes: > > INKA> Hi. Michael. > >>>>> "Michael" == Michael Albinus <[email protected]> writes: > > Michael> Shigio YAMAGUCHI <[email protected]> writes: Hi, > > > [...] > > Michael> (concat (file-remote-p default-directory) path) > > INKA> I have edebugged it. and the running-path for this case does not > use rootdir. So. Let's > INKA> skip it by now. Talking about it later. Just We would need to > remind it. > > I need to correct myself. That path is used. But It did not need any > change. See Below. > > I have done this changes: > --8<---------------cut here---------------start------------->8--- > diff -u /usr/share/emacs/site-lisp/gtags.el > /home/freebsd/mymnt/global_test/lisp/gtags.el > --- /usr/share/emacs/site-lisp/gtags.el 2020-10-20 18:40:27.466980000 +0000 > +++ /home/freebsd/mymnt/global_test/lisp/gtags.el 2020-10-22 > 14:10:22.000000000 +0000 > @@ -798,7 +798,7 @@ > (set-buffer buffer) > (message "Searching %s ..." tagname) > (let (status) > - (gtags-push-tramp-environment) > + ;(gtags-push-tramp-environment) > ; > ; Path style is defined in gtags-path-style: > ; root: relative from the root of the project (Default) > @@ -816,9 +816,9 @@ > (setq rootdir (gtags-get-rootpath))) > (if rootdir (cd rootdir))))) > (setq status (if (equal flag "C") > - (call-process gtags-global-command nil t nil option > "--encode-path=\" \t\"" context tagname) > - (call-process gtags-global-command nil t nil option > "--encode-path=\" \t\"" tagname))) > - (gtags-pop-tramp-environment) > + (process-file gtags-global-command nil t nil option > "--encode-path=\" \t\"" context tagname) > + (process-file gtags-global-command nil t nil option > "--encode-path=\" \t\"" tagname))) > + ;(gtags-pop-tramp-environment) > (if (not (= 0 status)) > (progn (message (buffer-substring (point-min)(1- (point-max)))) > (gtags-pop-context)) > > Diff finished. Thu Oct 22 14:13:27 2020 > --8<---------------cut here---------------end--------------->8--- > > And it is WORKING pretty fine. I have not tested multihops yet. > > What Do You think Guys? > > Michael. Why the change on 'gtags-get-rootpath' was not needed? > > Best Regards -- Shigio YAMAGUCHI <[email protected]> PGP fingerprint: 26F6 31B4 3D62 4A92 7E6F 1C33 969C 3BE3 89DD A6EB
