Re: client on freebsd over tramp server on archlinux

[Shigio YAMAGUCHI]

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 <rrandresf@gmail.com>:
>
> Hi Michael. Hi Shigio.
>
> >>>>> "INKA" == andrés ramírez <rrandresf@gmail.com> writes:
>
>     INKA> Hi. Michael.
> >>>>> "Michael" == Michael Albinus <michael.albinus@gmx.de> writes:
>
>     Michael> Shigio YAMAGUCHI <shigio@gnu.org> 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 <shigio@gnu.org>
PGP fingerprint:
26F6 31B4 3D62 4A92 7E6F  1C33 969C 3BE3 89DD A6EB