bug#56162: 13.1.3; "org.freedesktop.DBus.Error.ServiceUnknown" when loading AucTeX

[Tassilo Horn]

Philip Kaludercic <philipk@posteo.net> writes:

Hi Philip & Michael,

it looks more like a TRAMP issue to me, so I added Michael to the Cc.

I think your patch might make sense and shouldn't affect users of
Evince/Atril but I'd rather safeguard TeX-evince-dbus-p itself.
However, I want to understand why you get the error.  TeX-evince-dbus-p
is defined starting with:

--8<---------------cut here---------------start------------->8---
(defun TeX-evince-dbus-p (de app &rest options)
  "Return non-nil, if an evince-compatible reader is accessible via DBUS.
Additional OPTIONS may be given to extend the check.  If none are
given, only the minimal requirements needed by backward search
are checked.  If OPTIONS include `:forward', which is currently
the only option, then additional requirements needed by forward
search are checked, too.

DE is the name of the desktop environment, APP is the name of viewer."
  (let ((dbus-debug nil))
    (and (featurep 'dbusbind)
         (require 'dbus nil :no-error)
         (dbus-ignore-errors (dbus-get-unique-name :session))
         (dbus-ping :session (format "org.%s.%s.Daemon" de app))
--8<---------------cut here---------------end--------------->8---

So we can assume you have dbus and the session dbus is available.  But
why does the dbus-ping signal an error?  I can do

  (TeX-evince-dbus-p "foo" "bar")

just fine which simply returns nil.  And how come there's tramp stuff in
your backtrace and you get a file-error?  And what is
/home/cip/2017/oj14ozun/.links2 for a file and why is it accessed via
sftp?

Ah, it seems you have tramp-gvfs-dbus-event-error in
dbus-event-error-functions which is simply added when tramp-gvfs.el is
loaded.  But when loading tramp-gvfs, I still cannot trigger the error
because tramp-gvfs-dbus-event-vector is nil.

Philip, you got that backtrace from M-x TeX-submit-bug-report.  Where
did that /home/cip/2017/oj14ozun/.links2 file come from in that context?

And Michael, looking at the code I have the feeling that
tramp-gvfs-dbus-event-vector should be buffer-local but it's set
globally and then causes the issue...

Bye,
Tassilo

> while loading AucTeX I encounter the following issue:
>
> Debugger entered--Lisp error: (file-error 
> "org.freedesktop.DBus.Error.ServiceUnknown")
>   signal(file-error ("org.freedesktop.DBus.Error.ServiceUnknown"))
>   tramp-error((tramp-file-name "sftp" nil nil "uni" nil 
> "/home/cip/2017/oj14ozun/.links2" nil) file-error 
> "org.freedesktop.DBus.Error.ServiceUnknown")
>   tramp-gvfs-dbus-event-error((dbus-event :session 3 91 
> "org.freedesktop.DBus" ":1.97" nil nil 
> "org.freedesktop.DBus.Error.ServiceUnknown" dbus-call-method-handler (:string 
> "The name is not activatable")) (dbus-error 
> "org.freedesktop.DBus.Error.ServiceUnknown" "The name is not activatable"))
>   run-hook-with-args(tramp-gvfs-dbus-event-error (dbus-event :session 3 91 
> "org.freedesktop.DBus" ":1.97" nil nil 
> "org.freedesktop.DBus.Error.ServiceUnknown" dbus-call-method-handler (:string 
> "The name is not activatable")) (dbus-error 
> "org.freedesktop.DBus.Error.ServiceUnknown" "The name is not activatable"))
>   dbus-handle-event((dbus-event :session 3 91 "org.freedesktop.DBus" ":1.97" 
> nil nil "org.freedesktop.DBus.Error.ServiceUnknown" dbus-call-method-handler 
> (:string "The name is not activatable")))
>   funcall-interactively(dbus-handle-event (dbus-event :session 3 91 
> "org.freedesktop.DBus" ":1.97" nil nil 
> "org.freedesktop.DBus.Error.ServiceUnknown" dbus-call-method-handler (:string 
> "The name is not activatable")))
>   command-execute(dbus-handle-event nil [(dbus-event :session 3 91 
> "org.freedesktop.DBus" ":1.97" nil nil 
> "org.freedesktop.DBus.Error.ServiceUnknown" dbus-call-method-handler (:string 
> "The name is not activatable"))] t)
>   read-event(nil nil 0.001)
>   dbus-call-method(:session "org.x.reader.Daemon" "/org/freedesktop/DBus" 
> "org.freedesktop.DBus.Peer" "Ping")
>   dbus-ping(:session "org.x.reader.Daemon")
>   (and (featurep 'dbusbind) (require 'dbus nil :no-error) (condition-case err 
> (progn (dbus-get-unique-name :session)) (dbus-error (if dbus-debug (progn 
> (signal (car err) (cdr err)))))) (dbus-ping :session (format 
> "org.%s.%s.Daemon" de app)) (or (not (memq :forward options)) (let ((spec 
> (dbus-introspect-get-method :session (format "org.%s.%s.Daemon" de app) 
> (format "/org/%s/%s/Daemon" de app) (format "org.%s.%s.Daemon" de app) 
> "FindDocument"))) (and spec (equal '("s" "b" "s") (delq nil (mapcar #'... 
> spec)))))))
>   (let ((dbus-debug nil)) (and (featurep 'dbusbind) (require 'dbus nil 
> :no-error) (condition-case err (progn (dbus-get-unique-name :session)) 
> (dbus-error (if dbus-debug (progn (signal (car err) (cdr err)))))) (dbus-ping 
> :session (format "org.%s.%s.Daemon" de app)) (or (not (memq :forward 
> options)) (let ((spec (dbus-introspect-get-method :session (format 
> "org.%s.%s.Daemon" de app) (format "/org/%s/%s/Daemon" de app) (format 
> "org.%s.%s.Daemon" de app) "FindDocument"))) (and spec (equal '("s" "b" "s") 
> (delq nil (mapcar ... spec))))))))
>   TeX-evince-dbus-p("x" "reader" :forward)
>   (if (TeX-evince-dbus-p de app :forward) (intern (format "TeX-%s-sync-view" 
> app)) (cons app (cons (list 'mode-io-correlate (let ((default-directory 
> (file-name-as-directory ...))) (if (string-match "--page-index" 
> (shell-command-to-string ...)) " -i %(outpage)" " -p %(outpage)"))) '(" 
> %o"))))
>   TeX-view-program-select-evince("x" "reader")
>   (cons (TeX-view-program-select-evince "x" "reader") '("xreader"))
>   (cons "Xreader" (cons (TeX-view-program-select-evince "x" "reader") 
> '("xreader")))
>   (cons (cons "Xreader" (cons (TeX-view-program-select-evince "x" "reader") 
> '("xreader"))) '(("Okular" ("okular --unique %o" (mode-io-correlate 
> "#src:%n%a")) "okular") ("xdg-open" "xdg-open %o" "xdg-open") ("PDF Tools" 
> TeX-pdf-tools-sync-view) ("Zathura" ("zathura %o" (mode-io-correlate " 
> --synctex-forward %n:0:\"%b\" -x \"emacsclient +%{li...")) "zathura")))
>   (cons (cons "Evince" (cons (TeX-view-program-select-evince "gnome" 
> "evince") '("evince"))) (cons (cons "Xreader" (cons 
> (TeX-view-program-select-evince "x" "reader") '("xreader"))) '(("Okular" 
> ("okular --unique %o" (mode-io-correlate "#src:%n%a")) "okular") ("xdg-open" 
> "xdg-open %o" "xdg-open") ("PDF Tools" TeX-pdf-tools-sync-view) ("Zathura" 
> ("zathura %o" (mode-io-correlate " --synctex-forward %n:0:\"%b\" -x 
> \"emacsclient +%{li...")) "zathura"))))
>   (cons '("xpdf" ("xpdf -remote %s -raise %o" (mode-io-correlate " 
> %(outpage)")) "xpdf") (cons (cons "Evince" (cons 
> (TeX-view-program-select-evince "gnome" "evince") '("evince"))) (cons (cons 
> "Xreader" (cons (TeX-view-program-select-evince "x" "reader") '("xreader"))) 
> '(("Okular" ("okular --unique %o" (mode-io-correlate "#src:%n%a")) "okular") 
> ("xdg-open" "xdg-open %o" "xdg-open") ("PDF Tools" TeX-pdf-tools-sync-view) 
> ("Zathura" ("zathura %o" (mode-io-correlate " --synctex-forward %n:0:\"%b\" 
> -x \"emacsclient +%{li...")) "zathura")))))
>   (cons '("gv" "gv %o" "gv") (cons '("xpdf" ("xpdf -remote %s -raise %o" 
> (mode-io-correlate " %(outpage)")) "xpdf") (cons (cons "Evince" (cons 
> (TeX-view-program-select-evince "gnome" "evince") '("evince"))) (cons (cons 
> "Xreader" (cons (TeX-view-program-select-evince "x" "reader") '("xreader"))) 
> '(("Okular" ("okular --unique %o" ...) "okular") ("xdg-open" "xdg-open %o" 
> "xdg-open") ("PDF Tools" TeX-pdf-tools-sync-view) ("Zathura" ("zathura %o" 
> ...) "zathura"))))))
>   (cons (list "dvips and gv" "%(o?)dvips %d -o && gv %f" (list "%(o?)dvips" 
> "gv")) (cons '("gv" "gv %o" "gv") (cons '("xpdf" ("xpdf -remote %s -raise %o" 
> (mode-io-correlate " %(outpage)")) "xpdf") (cons (cons "Evince" (cons 
> (TeX-view-program-select-evince "gnome" "evince") '("evince"))) (cons (cons 
> "Xreader" (cons (TeX-view-program-select-evince "x" "reader") '...)) 
> '(("Okular" ... "okular") ("xdg-open" "xdg-open %o" "xdg-open") ("PDF Tools" 
> TeX-pdf-tools-sync-view) ("Zathura" ... "zathura")))))))
>   (cons '("xdvi" ("%(o?)xdvi" (mode-io-correlate " -sourceposition \"%n %b\" 
> -editor \"%cS\"") ((paper-a4 paper-portrait) " -paper a4") ((paper-a4 
> paper-landscape) " -paper a4r") ((paper-a5 paper-portrait) " -paper a5") 
> ((paper-a5 paper-landscape) " -paper a5r") (paper-b5 " -paper b5") 
> (paper-letter " -paper us") (paper-legal " -paper legal") (paper-executive " 
> -paper 7.25x10.5in") " %d") "%(o?)xdvi") (cons (list "dvips and gv" 
> "%(o?)dvips %d -o && gv %f" (list "%(o?)dvips" "gv")) (cons '("gv" "gv %o" 
> "gv") (cons '("xpdf" ("xpdf -remote %s -raise %o" (mode-io-correlate " 
> %(outpage)")) "xpdf") (cons (cons "Evince" (cons 
> (TeX-view-program-select-evince "gnome" "evince") '...)) (cons (cons 
> "Xreader" (cons ... ...)) '(... ... ... ...)))))))
>   (cons '("dvi2tty" ("dvi2tty -q -w 132 %o")) (cons '("xdvi" ("%(o?)xdvi" 
> (mode-io-correlate " -sourceposition \"%n %b\" -editor \"%cS\"") ((paper-a4 
> paper-portrait) " -paper a4") ((paper-a4 paper-landscape) " -paper a4r") 
> ((paper-a5 paper-portrait) " -paper a5") ((paper-a5 paper-landscape) " -paper 
> a5r") (paper-b5 " -paper b5") (paper-letter " -paper us") (paper-legal " 
> -paper legal") (paper-executive " -paper 7.25x10.5in") " %d") "%(o?)xdvi") 
> (cons (list "dvips and gv" "%(o?)dvips %d -o && gv %f" (list "%(o?)dvips" 
> "gv")) (cons '("gv" "gv %o" "gv") (cons '("xpdf" ("xpdf -remote %s -raise %o" 
> ...) "xpdf") (cons (cons "Evince" (cons ... ...)) (cons (cons "Xreader" ...) 
> '...)))))))
>   (cond ((eq system-type 'windows-nt) '(("Yap" ("yap -1" (mode-io-correlate " 
> -s %n%b") " %o") "yap") ("dviout" ("dviout -1 " ((paper-a4 paper-portrait) 
> "-y=A4 ") ((paper-a4 paper-landscape) "-y=A4L ") ((paper-a5 paper-portrait) 
> "-y=A5 ") ((paper-a5 paper-landscape) "-y=A5L ") ((paper-b5 paper-portrait) 
> "-y=E5 ") ((paper-b5 paper-landscape) "-y=E5L ") ((paper-b4jis 
> paper-portrait) "-y=B4 ") ((paper-b4jis paper-landscape) "-y=B4L ") 
> ((paper-b5jis paper-portrait) "-y=B5 ") ((paper-b5jis paper-landscape) 
> "-y=B5L ") (paper-legal "-y=Legal ") (paper-letter "-y=Letter ") 
> (paper-executive "-y=Executive ") "%d" (mode-io-correlate " \"# %n '%b'\"")) 
> "dviout") ("PDF Tools" TeX-pdf-tools-sync-view) ("SumatraPDF" ("SumatraPDF 
> -reuse-instance" (mode-io-correlate " -forward-search \"%b\" %n") " %o") 
> "SumatraPDF") ("dvips and start" "dvips %d -o && start \"\" %f" "dvips") 
> ("start" "start \"\" %o"))) ((eq system-type 'darwin) '(("Preview.app" "open 
> -a Preview.app %o" "open") ("Skim" "open -a Skim.app %o" "open") ("PDF Tools" 
> TeX-pdf-tools-sync-view) ("displayline" "displayline %n %o %b" "displayline") 
> ("open" "open %o" "open"))) (t (cons '("dvi2tty" ("dvi2tty -q -w 132 %o")) 
> (cons '("xdvi" ("%(o?)xdvi" (mode-io-correlate " -sourceposition \"%n %b\" 
> -editor \"%cS\"") (... " -paper a4") (... " -paper a4r") (... " -paper a5") 
> (... " -paper a5r") (paper-b5 " -paper b5") (paper-letter " -paper us") 
> (paper-legal " -paper legal") (paper-executive " -paper 7.25x10.5in") " %d") 
> "%(o?)xdvi") (cons (list "dvips and gv" "%(o?)dvips %d -o && gv %f" (list 
> "%(o?)dvips" "gv")) (cons '("gv" "gv %o" "gv") (cons '... (cons ... 
> ...))))))))
>   (defvar TeX-view-program-list-builtin (cond ((eq system-type 'windows-nt) 
> '(("Yap" ("yap -1" (mode-io-correlate " -s %n%b") " %o") "yap") ("dviout" 
> ("dviout -1 " (... "-y=A4 ") (... "-y=A4L ") (... "-y=A5 ") (... "-y=A5L ") 
> (... "-y=E5 ") (... "-y=E5L ") (... "-y=B4 ") (... "-y=B4L ") (... "-y=B5 ") 
> (... "-y=B5L ") (paper-legal "-y=Legal ") (paper-letter "-y=Letter ") 
> (paper-executive "-y=Executive ") "%d" (mode-io-correlate " \"# %n '%b'\"")) 
> "dviout") ("PDF Tools" TeX-pdf-tools-sync-view) ("SumatraPDF" ("SumatraPDF 
> -reuse-instance" (mode-io-correlate " -forward-search \"%b\" %n") " %o") 
> "SumatraPDF") ("dvips and start" "dvips %d -o && start \"\" %f" "dvips") 
> ("start" "start \"\" %o"))) ((eq system-type 'darwin) '(("Preview.app" "open 
> -a Preview.app %o" "open") ("Skim" "open -a Skim.app %o" "open") ("PDF Tools" 
> TeX-pdf-tools-sync-view) ("displayline" "displayline %n %o %b" "displayline") 
> ("open" "open %o" "open"))) (t (cons '("dvi2tty" ("dvi2tty -q -w 132 %o")) 
> (cons '("xdvi" ("%(o?)xdvi" ... ... ... ... ... ... ... ... ... " %d") 
> "%(o?)xdvi") (cons (list "dvips and gv" "%(o?)dvips %d -o && gv %f" (list 
> "%(o?)dvips" "gv")) (cons '... (cons ... ...))))))) "Alist of built-in viewer 
> specifications.\nThis vari...")
>   eval-buffer(#<buffer  *load*> nil 
> "/home/philip/.config/emacs/elpa/auctex-13.1.3/tex...." nil t)  ; Reading at 
> buffer position 56145
>   
> load-with-code-conversion("/home/philip/.config/emacs/elpa/auctex-13.1.3/tex...."
>  "/home/philip/.config/emacs/elpa/auctex-13.1.3/tex...." nil t)
>   command-execute(TeX-submit-bug-report record)
>   execute-extended-command(nil "TeX-submit-bug-report" "TeX-bug")
>   funcall-interactively(execute-extended-command nil "TeX-submit-bug-report" 
> "TeX-bug")
>   command-execute(execute-extended-command)
>
> Apparently this is caused by `TeX-view-program-list-builtin' trying to
> evaluate
>
> (TeX-view-program-select-evince "mate" "atril") ; for Atril
>
> and
>
> (TeX-view-program-select-evince "x" "reader") ; for Xreader
>
> neither of which are installed on my system.  I can solve this by either
> commenting the two entries out of the alist or by applying this patch
>
> diff -u --label /home/philip/.config/emacs/elpa/auctex-13.1.3/tex.el --label 
> \#\<buffer\ tex.el\> /home/philip/.config/emacs/elpa/auctex-13.1.3/tex.el 
> /tmp/buffer-content-CKKwvw
> --- /home/philip/.config/emacs/elpa/auctex-13.1.3/tex.el
> +++ #<buffer tex.el>
> @@ -1233,7 +1233,7 @@
>  
>  DE is the name of the desktop environment, APP is the name of
>  viewer."
> -  (if (TeX-evince-dbus-p de app :forward)
> +  (if (ignore-errors (TeX-evince-dbus-p de app :forward))
>        (intern (format "TeX-%s-sync-view" app))
>      `(,app (mode-io-correlate
>              ;; When tex.el is loaded as response to opening a tex file
>
> Diff finished.  Thu Jun 23 12:27:02 2022
>
>
> Don't know if this breaks anything for Atril or Xrender users tough...
>
> Emacs  : GNU Emacs 29.0.50 (build 4, x86_64-pc-linux-gnu, GTK+ Version 
> 3.24.34, cairo version 1.17.6)
>  of 2022-06-19
> Package: 13.1.3
>
> current state:
> ==============
> (setq
>  AUCTeX-date "2022-04-16"
>  window-system 'pgtk
>  LaTeX-version "2e"
>  TeX-style-path '("~/.emacs.d/auctex"
>                 "/home/philip/.config/emacs/elpa/auctex-13.1.3/style"
>                 "/home/philip/.config/emacs/auctex/auto"
>                 "/home/philip/.config/emacs/auctex/style" "auto" "style")
>  TeX-auto-save t
>  TeX-parse-self t
>  TeX-master 'dwim
>  TeX-command-list '(("TeX"
>                    "%(PDF)%(tex) %(file-line-error) %`%(extraopts) 
> %S%(PDFout)%(mode)%' %(output-dir) %t"
>                    TeX-run-TeX nil (plain-tex-mode ams-tex-mode texinfo-mode)
>                    :help "Run plain TeX")
>                   ("LaTeX" "%`%l%(mode)%' %T" TeX-run-TeX nil
>                    (latex-mode doctex-mode) :help "Run LaTeX")
>                   ("Makeinfo" "makeinfo %(extraopts) %(o-dir) %t"
>                    TeX-run-compile nil (texinfo-mode) :help
>                    "Run Makeinfo with Info output")
>                   ("Makeinfo HTML" "makeinfo %(extraopts) %(o-dir) --html %t"
>                    TeX-run-compile nil (texinfo-mode) :help
>                    "Run Makeinfo with HTML output")
>                   ("AmSTeX"
>                    "amstex %(PDFout) %`%(extraopts) %S%(mode)%' %(output-dir) 
> %t"
>                    TeX-run-TeX nil (ams-tex-mode) :help "Run AMSTeX")
>                   ("ConTeXt"
>                    "%(cntxcom) --once --texutil %(extraopts) %(execopts)%t"
>                    TeX-run-TeX nil (context-mode) :help "Run ConTeXt once")
>                   ("ConTeXt Full" "%(cntxcom) %(extraopts) %(execopts)%t"
>                    TeX-run-TeX nil (context-mode) :help
>                    "Run ConTeXt until completion")
>                   ("BibTeX" "bibtex %(O?aux)" TeX-run-BibTeX nil
>                    (plain-tex-mode latex-mode doctex-mode ams-tex-mode
>                     texinfo-mode context-mode)
>                    :help "Run BibTeX")
>                   ("Biber" "biber %(output-dir) %s" TeX-run-Biber nil
>                    (plain-tex-mode latex-mode doctex-mode ams-tex-mode
>                     texinfo-mode)
>                    :help "Run Biber")
>                   ("Texindex" "texindex %s.??" TeX-run-command nil
>                    (texinfo-mode) :help "Run Texindex")
>                   ("Texi2dvi" "%(PDF)texi2dvi %t" TeX-run-command nil
>                    (texinfo-mode) :help "Run Texi2dvi or Texi2pdf")
>                   ("View" "%V" TeX-run-discard-or-function t t :help
>                    "Run Viewer")
>                   ("Print" "%p" TeX-run-command t t :help "Print the file")
>                   ("Queue" "%q" TeX-run-background nil t :help
>                    "View the printer queue" :visible TeX-queue-command)
>                   ("File" "%(o?)dvips %d -o %f " TeX-run-dvips t
>                    (plain-tex-mode latex-mode doctex-mode ams-tex-mode
>                     texinfo-mode)
>                    :help "Generate PostScript file")
>                   ("Dvips" "%(o?)dvips %d -o %f " TeX-run-dvips nil
>                    (plain-tex-mode latex-mode doctex-mode ams-tex-mode
>                     texinfo-mode)
>                    :help "Convert DVI file to PostScript")
>                   ("Dvipdfmx" "dvipdfmx -o %(O?pdf) %d" TeX-run-dvipdfmx nil
>                    (plain-tex-mode latex-mode doctex-mode ams-tex-mode
>                     texinfo-mode)
>                    :help "Convert DVI file to PDF with dvipdfmx")
>                   ("Ps2pdf" "ps2pdf %f %(O?pdf)" TeX-run-ps2pdf nil
>                    (plain-tex-mode latex-mode doctex-mode ams-tex-mode
>                     texinfo-mode)
>                    :help "Convert PostScript file to PDF")
>                   ("Glossaries" "makeglossaries %(d-dir) %s" TeX-run-command
>                    nil
>                    (plain-tex-mode latex-mode doctex-mode ams-tex-mode
>                     texinfo-mode)
>                    :help "Run makeglossaries to create glossary file")
>                   ("Index" "makeindex %(O?idx)" TeX-run-index nil
>                    (plain-tex-mode latex-mode doctex-mode ams-tex-mode
>                     texinfo-mode)
>                    :help "Run makeindex to create index file")
>                   ("upMendex" "upmendex %(O?idx)" TeX-run-index t
>                    (plain-tex-mode latex-mode doctex-mode ams-tex-mode
>                     texinfo-mode)
>                    :help "Run upmendex to create index file")
>                   ("Xindy" "texindy %s" TeX-run-command nil
>                    (plain-tex-mode latex-mode doctex-mode ams-tex-mode
>                     texinfo-mode)
>                    :help "Run xindy to create index file")
>                   ("Check" "lacheck %s" TeX-run-compile nil (latex-mode)
>                    :help "Check LaTeX file for correctness")
>                   ("ChkTeX" "chktex -v6 %s" TeX-run-compile nil (latex-mode)
>                    :help "Check LaTeX file for common mistakes")
>                   ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil
>                    t :help "Spell-check the document")
>                   ("Clean" "TeX-clean" TeX-run-function nil t :help
>                    "Delete generated intermediate files")
>                   ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help
>                    "Delete generated intermediate and output files")
>                   ("Other" "" TeX-run-command t t :help
>                    "Run an arbitrary command")
>                   )
>  )
>
> _______________________________________________
> bug-auctex mailing list
> bug-auctex@gnu.org
> https://lists.gnu.org/mailman/listinfo/bug-auctex