Re: client on freebsd over tramp server on archlinux

[Shigio YAMAGUCHI]

Hello,
Looking at the output, I have no idea.
If you make a reproduction environment, I may be able to deal with it.
Thank you!

Regards,
Shigio

2020年10月19日(月) 21:02 <rrandresf@gmail.com>:
>
> Hi.
>
> I am testing global on freebsd accessing source code on archlinux. and I
> am getting thi error:
> --8<---------------cut here---------------start------------->8---
> Debugger entered--Lisp error: (args-out-of-range #<buffer *GTAGS SELECT* 
> (D)contr_sale_batch_reprint<2>> 1 0)
>   buffer-substring(1 0)
>   (message (buffer-substring (point-min) (1- (point-max))))
>   (progn (message (buffer-substring (point-min) (1- (point-max)))) 
> (gtags-pop-context))
>   (if (not (= 0 status)) (progn (message (buffer-substring (point-min) (1- 
> (point-max)))) (gtags-pop-context)) (goto-char (point-min)) (setq lines 
> (count-lines (point-min) (point-max))) (cond ((= 0 lines) (cond ((char-equal 
> flag-char 80) (message "%s: path not found" tagname)) ((char-equal flag-char 
> 103) (message "%s: pattern not found" tagname)) ((char-equal flag-char 73) 
> (message "%s: token not found" tagname)) ((char-equal flag-char 115) (message 
> "%s: symbol not found" tagname)) (t (message "%s: tag not found" tagname))) 
> (gtags-pop-context) (kill-buffer buffer) (set-buffer save)) ((= 1 lines) 
> (message "Searching %s ... Done" tagname) (gtags-select-it t other-win)) (t 
> (if (null other-win) (switch-to-buffer buffer) (switch-to-buffer-other-window 
> buffer)) (gtags-select-mode))))
>   (let (status) (gtags-push-tramp-environment) (cond ((equal gtags-path-style 
> 'absolute) (setq option (concat option "a"))) ((and (not gtags-tramp-active) 
> (equal gtags-path-style 'root)) (let (rootdir) (if gtags-rootdir (setq 
> rootdir gtags-rootdir) (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=\" \11\"" context 
> tagname) (call-process gtags-global-command nil t nil option 
> "--encode-path=\" \11\"" tagname))) (gtags-pop-tramp-environment) (if (not (= 
> 0 status)) (progn (message (buffer-substring (point-min) (1- (point-max)))) 
> (gtags-pop-context)) (goto-char (point-min)) (setq lines (count-lines 
> (point-min) (point-max))) (cond ((= 0 lines) (cond ((char-equal flag-char 80) 
> (message "%s: path not found" tagname)) ((char-equal flag-char 103) (message 
> "%s: pattern not found" tagname)) ((char-equal flag-char 73) (message "%s: 
> token not found" tagname)) ((char-equal flag-char 115) (message "%s: symbol 
> not found" tagname)) (t (message "%s: tag not found" tagname))) 
> (gtags-pop-context) (kill-buffer buffer) (set-buffer save)) ((= 1 lines) 
> (message "Searching %s ... Done" tagname) (gtags-select-it t other-win)) (t 
> (if (null other-win) (switch-to-buffer buffer) (switch-to-buffer-other-window 
> buffer)) (gtags-select-mode)))))
>   (let (option context save prefix buffer lines flag-char) (setq save 
> (current-buffer)) (setq flag-char (string-to-char flag)) (if (equal flag-char 
> nil) (setq flag-char (string-to-char " "))) (setq option "-x") (if 
> (gtags-ignore-casep) (setq option (concat option "i"))) (if (char-equal 
> flag-char 67) (setq context (concat "--from-here=" (number-to-string 
> (gtags-current-lineno)) ":" (replace-in-string (gtags-buffer-file-name) 
> "\\\\" "/"))) (setq option (concat option flag))) (cond ((char-equal 
> flag-char 67) (setq prefix "(CONTEXT)")) ((char-equal flag-char 80) (setq 
> prefix "(P)")) ((char-equal flag-char 102) (setq prefix "(F)")) ((char-equal 
> flag-char 103) (setq prefix "(GREP)")) ((char-equal flag-char 73) (setq 
> prefix "(IDUTILS)")) ((char-equal flag-char 115) (setq prefix "(S)")) 
> ((char-equal flag-char 114) (setq prefix "(R)")) (t (setq prefix "(D)"))) (if 
> gtags-select-buffer-single (progn (let (now-gtags-buffer-stack now-buffer 
> now-gtags-point-stack now-point) (setq now-gtags-buffer-stack (reverse 
> gtags-buffer-stack)) (setq now-gtags-point-stack (reverse gtags-point-stack)) 
> (setq gtags-buffer-stack nil) (setq gtags-point-stack nil) (while 
> now-gtags-buffer-stack (setq now-buffer (car now-gtags-buffer-stack)) (setq 
> now-point (car now-gtags-point-stack)) (if (and (buffer-name now-buffer) (not 
> ...)) (progn (setq gtags-buffer-stack ...) (setq gtags-point-stack ...))) 
> (setq now-gtags-buffer-stack (cdr now-gtags-buffer-stack)) (setq 
> now-gtags-point-stack (cdr now-gtags-point-stack)))) (let (now-buffer-list 
> now-buffer) (setq now-buffer-list (buffer-list)) (while now-buffer-list (setq 
> now-buffer (car now-buffer-list)) (if (string-match "*GTAGS SELECT*" 
> (buffer-name now-buffer)) (kill-buffer now-buffer)) (setq now-buffer-list 
> (cdr now-buffer-list)))))) (setq buffer (generate-new-buffer 
> (generate-new-buffer-name (concat "*GTAGS SELECT* " prefix tagname)))) 
> (set-buffer buffer) (message "Searching %s ..." tagname) (let (status) 
> (gtags-push-tramp-environment) (cond ((equal gtags-path-style 'absolute) 
> (setq option (concat option "a"))) ((and (not gtags-tramp-active) (equal 
> gtags-path-style 'root)) (let (rootdir) (if gtags-rootdir (setq rootdir 
> gtags-rootdir) (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=\" \11\"" context 
> tagname) (call-process gtags-global-command nil t nil option 
> "--encode-path=\" \11\"" tagname))) (gtags-pop-tramp-environment) (if (not (= 
> 0 status)) (progn (message (buffer-substring (point-min) (1- (point-max)))) 
> (gtags-pop-context)) (goto-char (point-min)) (setq lines (count-lines 
> (point-min) (point-max))) (cond ((= 0 lines) (cond ((char-equal flag-char 80) 
> (message "%s: path not found" tagname)) ((char-equal flag-char 103) (message 
> "%s: pattern not found" tagname)) ((char-equal flag-char 73) (message "%s: 
> token not found" tagname)) ((char-equal flag-char 115) (message "%s: symbol 
> not found" tagname)) (t (message "%s: tag not found" tagname))) 
> (gtags-pop-context) (kill-buffer buffer) (set-buffer save)) ((= 1 lines) 
> (message "Searching %s ... Done" tagname) (gtags-select-it t other-win)) (t 
> (if (null other-win) (switch-to-buffer buffer) (switch-to-buffer-other-window 
> buffer)) (gtags-select-mode))))))
>   gtags-goto-tag(#("contr_sale_batch_reprint" 0 24 (fontified t)) "")
>   (let (tagname prompt input) (setq tagname (gtags-current-token)) 
> (gtags-push-context) (gtags-goto-tag tagname ""))
>   (if askp (call-interactively #'gtags-find-tag) (let (tagname prompt input) 
> (setq tagname (gtags-current-token)) (gtags-push-context) (gtags-goto-tag 
> tagname "")))
>   sunshavi/find-tag(nil)
>   funcall-interactively(sunshavi/find-tag nil)
>   call-interactively(sunshavi/find-tag nil nil)
>   command-execute(sunshavi/find-tag)
> --8<---------------cut here---------------end--------------->8---
>
> Any idea how to fix it?
>
> Best Regards
>


-- 
Shigio YAMAGUCHI <shigio@gnu.org>
PGP fingerprint:
26F6 31B4 3D62 4A92 7E6F  1C33 969C 3BE3 89DD A6EB