bbatsov/emacs-prelude — Issue #45: dbus-error "No connection to bus"
Author: rekado
Created: 2011-12-20 13:35:17+00:00
State: open

When starting emacs with `emacs --init-debug` I get the following error message.
OS: Archlinux
DE: xmonad
The DBus daemon is in fact running.

``````
Debugger entered--Lisp error: (dbus-error "No connection to bus" :session)
dbus-register-signal(:session "org.freedesktop.Notifications" "/org/freedesktop/Notifications" "org.freedesktop.Notifications" "ActionInvoked" notifications-on-action-signal)
byte-code("\304\305!\203^P^@\305\306^H \n^K\307&^F\210\304\207" [notifications-service notifications-path notifications-interface notifications-action-signal fboundp dbus-register-signal :session notifications-on-action-signal] 7)
require(notifications nil t)
(if (fboundp (quote dbus-register-signal)) (require (quote notifications) nil t) (unless (fboundp (quote notify)) (when (featurep (quote notify)) (require (quote notify)))))
el-get-notify("magit removed" "This package has been removed successfully by el-get.")
el-get-post-remove-notification("magit")
run-hook-with-args(el-get-post-remove-notification "magit")
(let* ((hooks (el-get-method (el-get-package-method package) :remove-hook))) (run-hook-with-args hooks package) (run-hook-with-args (quote el-get-post-remove-hooks) package))
el-get-post-remove("magit")
funcall(el-get-post-remove "magit")
(if (eq method (quote elpa)) (when (or (file-symlink-p (directory-file-name pdir)) (file-exists-p pdir)) (delete-file (directory-file-name pdir))) (if (file-exists-p pdir) (dired-delete-file pdir (quote always)) (message "el-get could not find package directory \"%s\"" pdir)) (funcall post-remove-fun package))
(let* ((source (el-get-package-def package)) (method (el-get-package-method source)) (pdir (el-get-package-directory package))) (if (eq method (quote elpa)) (when (or (file-symlink-p (directory-file-name pdir)) (file-exists-p pdir)) (delete-file (directory-file-name pdir))) (if (file-exists-p pdir) (dired-delete-file pdir (quote always)) (message "el-get could not find package directory \"%s\"" pdir)) (funcall post-remove-fun package)))
el-get-rmdir("magit" "http://github.com/magit/magit.git" el-get-post-remove)
funcall(el-get-rmdir "magit" "http://github.com/magit/magit.git" el-get-post-remove)
(let* ((source (el-get-package-def package)) (method (el-get-package-method source)) (remove (el-get-method method :remove)) (url (plist-get source :url))) (el-get-remove-autoloads package) (funcall remove package url (quote el-get-post-remove)) (el-get-save-package-status package "removed") (message "el-get remove %s" package))
el-get-remove("magit")
(progn (message "Package %s failed to install, removing it first." package) (el-get-remove package))
(if (string= "required" status) (progn (message "Package %s failed to install, removing it first." package) (el-get-remove package)))
(when (string= "required" status) (message "Package %s failed to install, removing it first." package) (el-get-remove package))
(let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url))) (when (string= "installed" status) (error "Package %s is already installed." package)) (when (string= "required" status) (message "Package %s failed to install, removing it first." package) (el-get-remove package)) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package))
el-get-do-install("magit")
(if (string= (el-get-package-status p) "installed") (el-get-init p) (el-get-do-install p))
(let ((p (symbol-name package))) (if (string= (el-get-package-status p) "installed") (el-get-init p) (el-get-do-install p)))
el-get-demand1(magit)
(if non-installed-dependencies nil (el-get-demand1 psym))
(unless non-installed-dependencies (el-get-demand1 psym))
(let ((non-installed-dependencies (remove-if (quote el-get-package-initialized-p) (el-get-dependencies psym)))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep (quote init)) (\` (lambda (data) (el-get-mark-initialized (quote (\, dep))) (el-get-dependency-installed (quote (\, psym)) (quote (\, dep)))))) (el-get-add-generic-event-task (el-get-event-id dep (quote error)) (\` (lambda (data) (el-get-set-package-state (quote (\, dep)) (list (quote error) data)) (el-get-dependency-error (quote (\, psym)) (quote (\, dep)) data)))) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym)))
(if (memq (el-get-package-state psym) (quote (init installing))) nil (el-get-set-package-state psym (quote installing)) (let ((non-installed-dependencies (remove-if (quote el-get-package-initialized-p) (el-get-dependencies psym)))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep (quote init)) (\` (lambda (data) (el-get-mark-initialized (quote ...)) (el-get-dependency-installed (quote ...) (quote ...))))) (el-get-add-generic-event-task (el-get-event-id dep (quote error)) (\` (lambda (data) (el-get-set-package-state (quote ...) (list ... data)) (el-get-dependency-error (quote ...) (quote ...) data)))) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym))))
(unless (memq (el-get-package-state psym) (quote (init installing))) (el-get-set-package-state psym (quote installing)) (let ((non-installed-dependencies (remove-if (quote el-get-package-initialized-p) (el-get-dependencies psym)))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep (quote init)) (\` (lambda (data) (el-get-mark-initialized (quote ...)) (el-get-dependency-installed (quote ...) (quote ...))))) (el-get-add-generic-event-task (el-get-event-id dep (quote error)) (\` (lambda (data) (el-get-set-package-state (quote ...) (list ... data)) (el-get-dependency-error (quote ...) (quote ...) data)))) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym))))
(let* ((psym (el-get-as-symbol package)) (pname (symbol-name psym))) (unless (memq (el-get-package-state psym) (quote (init installing))) (el-get-set-package-state psym (quote installing)) (let ((non-installed-dependencies (remove-if (quote el-get-package-initialized-p) (el-get-dependencies psym)))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep (quote init)) (\` (lambda (data) (el-get-mark-initialized ...) (el-get-dependency-installed ... ...)))) (el-get-add-generic-event-task (el-get-event-id dep (quote error)) (\` (lambda (data) (el-get-set-package-state ... ...) (el-get-dependency-error ... ... data)))) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym)))))
(condition-case err (let* ((psym (el-get-as-symbol package)) (pname (symbol-name psym))) (unless (memq (el-get-package-state psym) (quote (init installing))) (el-get-set-package-state psym (quote installing)) (let ((non-installed-dependencies (remove-if (quote el-get-package-initialized-p) (el-get-dependencies psym)))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep (quote init)) (\` (lambda ... ... ...))) (el-get-add-generic-event-task (el-get-event-id dep (quote error)) (\` (lambda ... ... ...))) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym))))) ((debug error) (el-get-installation-failed package err)))
(if (el-get-package-is-installed package) (message "el-get: `%s' package is already installed" package) (condition-case err (let* ((psym (el-get-as-symbol package)) (pname (symbol-name psym))) (unless (memq (el-get-package-state psym) (quote (init installing))) (el-get-set-package-state psym (quote installing)) (let ((non-installed-dependencies (remove-if ... ...))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep ...) (\` ...)) (el-get-add-generic-event-task (el-get-event-id dep ...) (\` ...)) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym))))) ((debug error) (el-get-installation-failed package err))))
el-get-install("magit")
(while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--)))
(let* ((--cl-var-- to-install) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)
(catch (quote --cl-block-nil--) (let* ((--cl-var-- to-install) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((--cl-var-- to-install) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)))
(block nil (let* ((--cl-var-- to-install) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
(loop for p in to-install do (el-get-install p) collect p into done)
(let* ((required (el-get-list-package-names-with-status "required")) (installed (el-get-list-package-names-with-status "installed")) (to-init (if packages (loop for p in packages when (member (el-get-as-string p) installed) collect (el-get-as-string p)) installed)) (init-deps (loop for p in to-init append (mapcar (quote el-get-as-string) (el-get-dependencies (el-get-as-symbol p))))) (to-install (if packages (loop for p in packages unless (member (el-get-as-string p) to-init) collect (el-get-as-string p)) required)) done) (el-get-verbose-message "el-get-init-and-install: install %S" to-install) (el-get-verbose-message "el-get-init-and-install: init %S" to-init) (el-get-verbose-message "el-get-init-and-install: deps %S" init-deps) (loop for p in to-install do (el-get-install p) collect p into done) (loop for p in init-deps do (el-get-init p) collect p into done) (loop for p in to-init unless (member p done) do (el-get-init p) collect p into done) done)
el-get-init-and-install(("magit" "yasnippet"))
(let ((packages (loop for p in packages when (listp p) append p else collect p))) (el-get-init-and-install packages))
(prog1 (let ((packages (loop for p in packages when (listp p) append p else collect p))) (el-get-init-and-install packages)) (when progress (let* ((newly-installing (set-difference (el-get-currently-installing-packages) previously-installing)) (still-installing newly-installing)) (while (> (length still-installing) 0) (sleep-for 0.2) (setq still-installing (delete-if-not (quote el-get-currently-installing-p) still-installing)) (progress-reporter-update progress (/ (* 100.0 (- newly-installing still-installing)) newly-installing))) (progress-reporter-done progress))) (unless el-get-outdated-autoloads (el-get-eval-autoloads)))
(let ((previously-installing (el-get-currently-installing-packages)) (progress (and (eq sync (quote wait)) (make-progress-reporter "Waiting for `el-get' to complete... " 0 100 0))) (el-get-default-process-sync sync)) (prog1 (let ((packages (loop for p in packages when (listp p) append p else collect p))) (el-get-init-and-install packages)) (when progress (let* ((newly-installing (set-difference (el-get-currently-installing-packages) previously-installing)) (still-installing newly-installing)) (while (> (length still-installing) 0) (sleep-for 0.2) (setq still-installing (delete-if-not (quote el-get-currently-installing-p) still-installing)) (progress-reporter-update progress (/ (* 100.0 ...) newly-installing))) (progress-reporter-done progress))) (unless el-get-outdated-autoloads (el-get-eval-autoloads))))
el-get(sync ("magit" "yasnippet"))
eval-buffer(#> nil "/home/rekado/.emacs.d/modules/prelude-el-get.el" nil t) ; Reading at buffer position 2572
load-with-code-conversion("/home/rekado/.emacs.d/modules/prelude-el-get.el" "/home/rekado/.emacs.d/modules/prelude-el-get.el" nil t)
require(prelude-el-get)
eval-buffer(# nil "/home/rekado/.emacs.d/init.el" nil t) ; Reading at buffer position 2485
load-with-code-conversion("/home/rekado/.emacs.d/init.el" "/home/rekado/.emacs.d/init.el" t t)
load("/home/rekado/.emacs.d/init" t t)
``````