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

[Philip Kaludercic]

Hi,

while loading AucTeX I encounter the following issue:

--8<---------------cut here---------------start------------->8---
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)
--8<---------------cut here---------------end--------------->8---

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")
                    )
 )