bug#54825: 29.0.50; Relax mutual dependency between erc and erc-backend

bug#54825: 29.0.50; Relax mutual dependency between erc and erc-backend

[J.P.]

[-- Attachment #1: Type: text/plain, Size: 4406 bytes --]

Tags: patch

Someone on Libera.Chat recently reported that a recipe similar to the
following results in ERC-occupied portions of the mode-line breaking
down.

  (setq erc-email-userid  "tester/foonet")

  (with-eval-after-load 'erc
    (erc-update-modules)) ; [1]

  (erc
   :server "127.0.0.1"
   :port 6670
   :nick "tester"
   :password "changeme")

Such behavior may be unsurprising to folks familiar with ERC (its root
cause being the interdependency between erc.el and erc-backend.el). But
others may find it unsettling to have a user-facing library only
partially loaded when its namesake feature is provided, not to mention
top-level forms evaluated multiple times. While this situation is
documented in code comments and its possibility warned about in the
Emacs manual, attempting to alleviate some of the attendant awkwardness
seems a worthy endeavor (IMO).

Attached are some traces showing the loading sequence before and after
the proposed changes (which also do away with the surprise produced by
the snippet shown above). As always, superior solutions are welcome.
Thanks.


[1] Please ignore the fact that calling `erc-update-modules' here is
    superfluous. It could just as well be anything that depends on
    library functions provided by ERC.


In GNU Emacs 29.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.31, cairo version 1.17.4)
 of 2022-04-05 built on localhost
Repository revision: e2fb5ecaea67497224455fdbfe4850a5a74c9d00
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12014000
System Description: Fedora Linux 35 (Workstation Edition)

Configured using:
 'configure --enable-check-lisp-object-type --enable-checking=yes,glyphs
 'CFLAGS=-O0 -g3'
 PKG_CONFIG_PATH=:/usr/lib64/pkgconfig:/usr/share/pkgconfig'

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
JSON LCMS2 LIBOTF LIBSELINUX LIBSYSTEMD LIBXML2 M17N_FLT MODULES NOTIFY
INOTIFY PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF
TOOLKIT_SCROLL_BARS WEBP X11 XDBE XIM XPM GTK3 ZLIB

Important settings:
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: @im=ibus
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  line-number-mode: t
  indent-tabs-mode: t
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
None found.

Features:
(shadow sort mail-extr emacsbug message mailcap yank-media rmc puny
dired dired-loaddefs rfc822 mml mml-sec password-cache epa derived epg
rfc6068 epg-config gnus-util text-property-search time-date seq gv
subr-x byte-opt bytecomp byte-compile cconv mm-decode mm-bodies
mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader cl-loaddefs
cl-lib sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils
iso-transl tooltip eldoc paren electric uniquify ediff-hook vc-hooks
lisp-float-type elisp-mode mwheel term/x-win x-win term/common-win x-dnd
tool-bar dnd fontset image regexp-opt fringe tabulated-list replace
newcomment text-mode lisp-mode prog-mode register page tab-bar menu-bar
rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock
font-lock syntax font-core term/tty-colors frame minibuffer nadvice
simple cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan
thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian
slovak czech european ethiopic indian cyrillic chinese composite
emoji-zwj charscript charprop case-table epa-hook jka-cmpr-hook help
abbrev obarray oclosure cl-preloaded button loaddefs faces cus-face
macroexp files window text-properties overlay sha1 md5 base64 format env
code-pages mule custom widget keymap hashtable-print-readable backquote
threads dbusbind inotify lcms2 dynamic-setting system-font-setting
font-render-setting cairo move-toolbar gtk x-toolkit x multi-tty
make-network-process emacs)

Memory information:
((conses 16 43818 5691)
 (symbols 48 5713 1)
 (strings 32 15808 1645)
 (string-bytes 1 527821)
 (vectors 16 12098)
 (vector-slots 8 168912 12189)
 (floats 8 20 34)
 (intervals 56 221 0)
 (buffers 992 10))

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Rework-mutual-dependency-between-erc-and-erc-backend.patch --]
[-- Type: text/x-patch, Size: 3816 bytes --]

From 49a929e110f31bdf924d7fa4e2c43cb6a906ff4d Mon Sep 17 00:00:00 2001
From: "F. Jason Park" <jp@neverwas.me>
Date: Mon, 4 Apr 2022 22:38:22 -0700
Subject: [PATCH] Rework mutual dependency between erc and erc-backend

* lisp/erc/erc.el: Declare needed variables exported by erc-backend.el
as special near the top of the file, and only require `erc-backend'
after providing `erc' as a feature at the very end.

* lisp/erc/erc-backend.el: Don't preemptively provide `erc-backend'.

* test/lisp/erc/erc-tests.el (erc--meta--backend-dependencies): Add
utility test to scrape for unused vars that may accumulate over time.
---
 lisp/erc/erc-backend.el    |  1 -
 lisp/erc/erc.el            | 23 ++++++++++++++++++++++-
 test/lisp/erc/erc-tests.el | 21 +++++++++++++++++++++
 3 files changed, 43 insertions(+), 2 deletions(-)

diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el
index 398fe6cc9e..5e95156692 100644
--- a/lisp/erc/erc-backend.el
+++ b/lisp/erc/erc-backend.el
@@ -102,7 +102,6 @@
 ;; There's a fairly strong mutual dependency between erc.el and erc-backend.el.
 ;; Luckily, erc.el does not need erc-backend.el for macroexpansion whereas the
 ;; reverse is true:
-(provide 'erc-backend)
 (require 'erc)
 
 ;;;; Variables and options
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 52fe106f2d..e3ed3c1d96 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -130,7 +130,26 @@ erc-scripts
   "Running scripts at startup and with /LOAD."
   :group 'erc)
 
-(require 'erc-backend)
+;; Defined in erc-backend
+(defvar erc--server-reconnecting)
+(defvar erc-channel-members-changed-hook)
+(defvar erc-server-367-functions)
+(defvar erc-server-announced-name)
+(defvar erc-server-connect-function)
+(defvar erc-server-connected)
+(defvar erc-server-current-nick)
+(defvar erc-server-filter-data)
+(defvar erc-server-lag)
+(defvar erc-server-last-sent-time)
+(defvar erc-server-parameters)
+(defvar erc-server-process)
+(defvar erc-server-quitting)
+(defvar erc-server-reconnect-count)
+(defvar erc-server-reconnecting)
+(defvar erc-session-client-certificate)
+(defvar erc-session-connector)
+(defvar erc-session-port)
+(defvar erc-session-server)
 
 ;; tunable connection and authentication parameters
 
@@ -7033,6 +7052,8 @@ erc-handle-irc-url
 
 (provide 'erc)
 
+(require 'erc-backend)
+
 ;; Deprecated. We might eventually stop requiring the goodies automatically.
 ;; IMPORTANT: This require must appear _after_ the above (provide 'erc) to
 ;; avoid a recursive require error when byte-compiling the entire package.
diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el
index 520f10dd4e..3c76cb97ca 100644
--- a/test/lisp/erc/erc-tests.el
+++ b/test/lisp/erc/erc-tests.el
@@ -48,6 +48,27 @@ erc--read-time-period
   (cl-letf (((symbol-function 'read-string) (lambda (&rest _) "1d")))
     (should (equal (erc--read-time-period "foo: ") 86400))))
 
+(ert-deftest erc--meta--backend-dependencies ()
+  (with-temp-buffer
+    (insert-file-contents-literally
+     (concat (file-name-sans-extension (symbol-file 'erc)) ".el"))
+    (let ((beg (search-forward ";; Defined in erc-backend"))
+          (end (search-forward "\n\n"))
+          vars)
+      (save-excursion
+        (save-restriction
+          (narrow-to-region beg end)
+          (goto-char (point-min))
+          (with-syntax-table lisp-data-mode-syntax-table
+            (condition-case _
+                (while (push (cadr (read (current-buffer))) vars))
+              (end-of-file)))))
+      (should (= (point) end))
+      (dolist (var vars)
+        (setq var (concat "\\_<" (symbol-name var) "\\_>"))
+        (ert-info (var)
+          (should (save-excursion (search-forward-regexp var nil t))))))))
+
 (ert-deftest erc-with-all-buffers-of-server ()
   (let (proc-exnet
         proc-onet
-- 
2.35.1


[-- Attachment #3: after.log --]
[-- Type: text/plain, Size: 21717 bytes --]

======================================================================
1 -> (message "CALLING ERC")
1 <- message: "CALLING ERC"
======================================================================
1 -> (provide erc-loaddefs)
1 <- provide: erc-loaddefs
======================================================================
1 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-loaddefs.el")
1 <- do-after-load-evaluation: nil
======================================================================
1 -> (require cl-lib)
| 2 -> (require macroexp)
| 2 <- require: macroexp
| 2 -> (provide cl-lib)
| 2 <- provide: cl-lib
| 2 -> (provide cl-loaddefs)
| 2 <- provide: cl-loaddefs
| 2 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/cl-loaddefs.el")
| 2 <- do-after-load-evaluation: nil
| 2 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/cl-lib.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: cl-lib
======================================================================
1 -> (require format-spec)
| 2 -> (provide format-spec)
| 2 <- provide: format-spec
| 2 -> (do-after-load-evaluation "/emacs/lisp/format-spec.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: format-spec
======================================================================
1 -> (require pp)
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (provide pp)
| 2 <- provide: pp
| 2 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/pp.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: pp
======================================================================
1 -> (require thingatpt)
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (provide thingatpt)
| 2 <- provide: thingatpt
| 2 -> (do-after-load-evaluation "/emacs/lisp/thingatpt.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: thingatpt
======================================================================
1 -> (require auth-source)
| 2 -> (require json)
| | 3 -> (require map)
| | | 4 -> (require seq)
| | | | 5 -> (require backquote)
| | | | 5 <- require: backquote
| | | | 5 -> (require macroexp)
| | | | 5 <- require: macroexp
| | | | 5 -> (require cconv)
| | | | | 6 -> (provide cconv)
| | | | | 6 <- provide: cconv
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/cconv.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: cconv
| | | | 5 -> (provide byte-compile)
| | | | 5 <- provide: byte-compile
| | | | 5 -> (provide bytecomp)
| | | | 5 <- provide: bytecomp
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/bytecomp.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | | 5 -> (require bytecomp)
| | | | 5 <- require: bytecomp
| | | | 5 -> (require macroexp)
| | | | 5 <- require: macroexp
| | | | 5 -> (provide byte-opt)
| | | | 5 <- provide: byte-opt
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/byte-opt.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | | 5 -> (require subr-x)
| | | | | 6 -> (provide subr-x)
| | | | | 6 <- provide: subr-x
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/subr-x.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: subr-x
| | | | 5 -> (require subr-x)
| | | | 5 <- require: subr-x
| | | | 5 -> (require macroexp)
| | | | 5 <- require: macroexp
| | | | 5 -> (provide gv)
| | | | 5 <- provide: gv
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/gv.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | | 5 -> (provide seq)
| | | | 5 <- provide: seq
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/seq.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | | 5 -> (provide seq)
| | | | 5 <- provide: seq
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/seq.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: seq
| | | 4 -> (require subr-x)
| | | 4 <- require: subr-x
| | | 4 -> (require subr-x)
| | | 4 <- require: subr-x
| | | 4 -> (provide map)
| | | 4 <- provide: map
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/map.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: map
| | 3 -> (require subr-x)
| | 3 <- require: subr-x
| | 3 -> (provide json)
| | 3 <- provide: json
| | 3 -> (do-after-load-evaluation "/emacs/lisp/json.elc")
| | 3 <- do-after-load-evaluation: nil
| 2 <- require: json
| 2 -> (require password-cache)
| | 3 -> (provide password-cache)
| | 3 <- provide: password-cache
| | 3 -> (do-after-load-evaluation "/emacs/lisp/password-cache.elc")
| | 3 <- do-after-load-evaluation: nil
| 2 <- require: password-cache
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (require eieio)
| | 3 -> (require eieio-core)
| | | 4 -> (require cl-lib)
| | | 4 <- require: cl-lib
| | | 4 -> (require eieio-loaddefs nil t)
| | | | 5 -> (provide eieio-loaddefs)
| | | | 5 <- provide: eieio-loaddefs
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/eieio-loaddefs.el")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: eieio-loaddefs
| | | 4 -> (require cl-macs)
| | | | 5 -> (require cl-lib)
| | | | 5 <- require: cl-lib
| | | | 5 -> (require macroexp)
| | | | 5 <- require: macroexp
| | | | 5 -> (require gv)
| | | | 5 <- require: gv
| | | | 5 -> (provide cl-macs)
| | | | 5 <- provide: cl-macs
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/cl-macs.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: cl-macs
| | | 4 -> (require cl-generic)
| | | 4 <- require: cl-generic
| | | 4 -> (provide eieio-core)
| | | 4 <- provide: eieio-core
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/eieio-core.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: eieio-core
| | 3 -> (require subr-x)
| | 3 <- require: subr-x
| | 3 -> (require subr-x)
| | 3 <- require: subr-x
| | 3 -> (provide eieio)
| | 3 <- provide: eieio
| | 3 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/eieio.elc")
| | 3 <- do-after-load-evaluation: nil
| 2 <- require: eieio
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (provide cl-seq)
| 2 <- provide: cl-seq
| 2 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/cl-seq.elc")
| 2 <- do-after-load-evaluation: nil
| 2 -> (provide auth-source)
| 2 <- provide: auth-source
| 2 -> (do-after-load-evaluation "/emacs/lisp/auth-source.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: auth-source
======================================================================
1 -> (require time-date)
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (require subr-x)
| 2 <- require: subr-x
| 2 -> (provide time-date)
| 2 <- provide: time-date
| 2 -> (do-after-load-evaluation "/emacs/lisp/calendar/time-date.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: time-date
======================================================================
1 -> (require iso8601)
| 2 -> (require time-date)
| 2 <- require: time-date
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (provide iso8601)
| 2 <- provide: iso8601
| 2 -> (do-after-load-evaluation "/emacs/lisp/calendar/iso8601.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: iso8601
======================================================================
1 -> (provide erc)
1 <- provide: erc
======================================================================
1 -> (require erc-backend)
| 2 -> (require erc)
| 2 <- require: erc
| 2 -> (provide erc-backend)
| 2 <- provide: erc-backend
| 2 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-backend.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: erc-backend
======================================================================
1 -> (require erc-goodies)
| 2 -> (require erc)
| 2 <- require: erc
| 2 -> (provide erc-goodies)
| 2 <- provide: erc-goodies
| 2 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-goodies.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: erc-goodies
======================================================================
1 -> (do-after-load-evaluation "/emacs/lisp/erc/erc.elc")
| 2 -> (message "LOADING TOP LEVEL")
| 2 <- message: "LOADING TOP LEVEL"
| 2 -> (erc-update-modules)
| | 3 -> (require erc-netsplit)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (provide erc-netsplit)
| | | 4 <- provide: erc-netsplit
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-netsplit.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-netsplit
| | 3 -> (require erc-fill)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (require erc-stamp)
| | | | 5 -> (require erc)
| | | | 5 <- require: erc
| | | | 5 -> (provide erc-stamp)
| | | | 5 <- provide: erc-stamp
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-stamp.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: erc-stamp
| | | 4 -> (provide erc-fill)
| | | 4 <- provide: erc-fill
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-fill.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-fill
| | 3 -> (require erc-button)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (require wid-edit)
| | | | 5 -> (require cl-lib)
| | | | 5 <- require: cl-lib
| | | | 5 -> (provide wid-edit)
| | | | 5 <- provide: wid-edit
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/wid-edit.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: wid-edit
| | | 4 -> (require erc-fill)
| | | 4 <- require: erc-fill
| | | 4 -> (require browse-url)
| | | | 5 -> (require url)
| | | | | 6 -> (require mailcap)
| | | | | | 7 -> (require cl-lib)
| | | | | | 7 <- require: cl-lib
| | | | | | 7 -> (provide mailcap)
| | | | | | 7 <- provide: mailcap
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/net/mailcap.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: mailcap
| | | | | 6 -> (require url-vars)
| | | | | | 7 -> (provide url-vars)
| | | | | | 7 <- provide: url-vars
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/url/url-vars.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: url-vars
| | | | | 6 -> (require url-cookie)
| | | | | | 7 -> (require url-util)
| | | | | | | 8 -> (require url-parse)
| | | | | | | | 9 -> (require url-vars)
| | | | | | | | 9 <- require: url-vars
| | | | | | | | 9 -> (require auth-source)
| | | | | | | | 9 <- require: auth-source
| | | | | | | | 9 -> (provide url-parse)
| | | | | | | | 9 <- provide: url-parse
| | | | | | | | 9 -> (do-after-load-evaluation "/emacs/lisp/url/url-parse.elc")
| | | | | | | | 9 <- do-after-load-evaluation: nil
| | | | | | | 8 <- require: url-parse
| | | | | | | 8 -> (require url-vars)
| | | | | | | 8 <- require: url-vars
| | | | | | | 8 -> (provide url-util)
| | | | | | | 8 <- provide: url-util
| | | | | | | 8 -> (do-after-load-evaluation "/emacs/lisp/url/url-util.elc")
| | | | | | | 8 <- do-after-load-evaluation: nil
| | | | | | 7 <- require: url-util
| | | | | | 7 -> (require url-parse)
| | | | | | 7 <- require: url-parse
| | | | | | 7 -> (require url-domsuf)
| | | | | | | 8 -> (provide url-domsuf)
| | | | | | | 8 <- provide: url-domsuf
| | | | | | | 8 -> (do-after-load-evaluation "/emacs/lisp/url/url-domsuf.elc")
| | | | | | | 8 <- do-after-load-evaluation: nil
| | | | | | 7 <- require: url-domsuf
| | | | | | 7 -> (provide url-cookie)
| | | | | | 7 <- provide: url-cookie
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/url/url-cookie.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: url-cookie
| | | | | 6 -> (require url-history)
| | | | | | 7 -> (require url-parse)
| | | | | | 7 <- require: url-parse
| | | | | | 7 -> (provide url-history)
| | | | | | 7 <- provide: url-history
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/url/url-history.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: url-history
| | | | | 6 -> (require url-expand)
| | | | | | 7 -> (require url-methods)
| | | | | | | 8 -> (require url-parse)
| | | | | | | 8 <- require: url-parse
| | | | | | | 8 -> (provide url-methods)
| | | | | | | 8 <- provide: url-methods
| | | | | | | 8 -> (do-after-load-evaluation "/emacs/lisp/url/url-methods.elc")
| | | | | | | 8 <- do-after-load-evaluation: nil
| | | | | | 7 <- require: url-methods
| | | | | | 7 -> (require url-util)
| | | | | | 7 <- require: url-util
| | | | | | 7 -> (require url-parse)
| | | | | | 7 <- require: url-parse
| | | | | | 7 -> (provide url-expand)
| | | | | | 7 <- provide: url-expand
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/url/url-expand.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: url-expand
| | | | | 6 -> (require url-privacy)
| | | | | | 7 -> (require url-vars)
| | | | | | 7 <- require: url-vars
| | | | | | 7 -> (provide url-privacy)
| | | | | | 7 <- provide: url-privacy
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/url/url-privacy.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: url-privacy
| | | | | 6 -> (require url-methods)
| | | | | 6 <- require: url-methods
| | | | | 6 -> (require url-proxy)
| | | | | | 7 -> (require url-parse)
| | | | | | 7 <- require: url-parse
| | | | | | 7 -> (provide url-proxy)
| | | | | | 7 <- provide: url-proxy
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/url/url-proxy.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: url-proxy
| | | | | 6 -> (require url-parse)
| | | | | 6 <- require: url-parse
| | | | | 6 -> (require url-util)
| | | | | 6 <- require: url-util
| | | | | 6 -> (provide url)
| | | | | 6 <- provide: url
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/url/url.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: url
| | | | 5 -> (provide browse-url)
| | | | 5 <- provide: browse-url
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/net/browse-url.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: browse-url
| | | 4 -> (provide erc-button)
| | | 4 <- provide: erc-button
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-button.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-button
| | 3 -> (require erc-match)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (provide erc-match)
| | | 4 <- provide: erc-match
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-match.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-match
| | 3 -> (require erc-track)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (require erc-match)
| | | 4 <- require: erc-match
| | | 4 -> (provide erc-track)
| | | 4 <- provide: erc-track
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-track.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-track
| | 3 -> (require erc-pcomplete)
| | | 4 -> (require pcomplete)
| | | | 5 -> (require comint)
| | | | | 6 -> (require ring)
| | | | | | 7 -> (provide ring)
| | | | | | 7 <- provide: ring
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/ring.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: ring
| | | | | 6 -> (require ansi-color)
| | | | | | 7 -> (provide ansi-color)
| | | | | | 7 <- provide: ansi-color
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/ansi-color.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: ansi-color
| | | | | 6 -> (require regexp-opt)
| | | | | 6 <- require: regexp-opt
| | | | | 6 -> (provide comint)
| | | | | 6 <- provide: comint
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/comint.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: comint
| | | | 5 -> (provide pcomplete)
| | | | 5 <- provide: pcomplete
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/pcomplete.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: pcomplete
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (require time-date)
| | | 4 <- require: time-date
| | | 4 -> (provide erc-pcomplete)
| | | 4 <- provide: erc-pcomplete
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-pcomplete.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-pcomplete
| | 3 -> (require erc-readonly)
| | 3 <- require: !non-local\ exit!
| | 3 -> (require erc-networks)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (provide erc-networks)
| | | 4 <- provide: erc-networks
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-networks.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-networks
| | 3 -> (require erc-ring)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (require comint)
| | | 4 <- require: comint
| | | 4 -> (require ring)
| | | 4 <- require: ring
| | | 4 -> (provide erc-ring)
| | | 4 <- provide: erc-ring
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-ring.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-ring
| | 3 -> (require erc-join)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (require auth-source)
| | | 4 <- require: auth-source
| | | 4 -> (require erc-networks)
| | | 4 <- require: erc-networks
| | | 4 -> (provide erc-join)
| | | 4 <- provide: erc-join
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-join.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-join
| | 3 -> (require erc-noncommands)
| | 3 <- require: !non-local\ exit!
| | 3 -> (require erc-irccontrols)
| | 3 <- require: !non-local\ exit!
| | 3 -> (require erc-move-to-prompt)
| | 3 <- require: !non-local\ exit!
| | 3 -> (require erc-stamp)
| | 3 <- require: erc-stamp
| | 3 -> (require erc-menu)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (provide erc-menu)
| | | 4 <- provide: erc-menu
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-menu.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-menu
| | 3 -> (require erc-list)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (provide erc-list)
| | | 4 <- provide: erc-list
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-list.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-list
| 2 <- erc-update-modules: nil
1 <- do-after-load-evaluation: nil
======================================================================
1 -> (erc :server "127.0.0.1" :port 6670 :nick "tester" :password "changeme")
| 2 -> (erc-open "127.0.0.1" 6670 "tester" "unknown" t "changeme")
| | 3 -> (erc-update-modules)
| | | 4 -> (require erc-pcomplete)
| | | 4 <- require: erc-pcomplete
| | | 4 -> (require erc-netsplit)
| | | 4 <- require: erc-netsplit
| | | 4 -> (require erc-fill)
| | | 4 <- require: erc-fill
| | | 4 -> (require erc-button)
| | | 4 <- require: erc-button
| | | 4 -> (require erc-match)
| | | 4 <- require: erc-match
| | | 4 -> (require erc-track)
| | | 4 <- require: erc-track
| | | 4 -> (require erc-pcomplete)
| | | 4 <- require: erc-pcomplete
| | | 4 -> (require erc-readonly)
| | | 4 <- require: !non-local\ exit!
| | | 4 -> (require erc-networks)
| | | 4 <- require: erc-networks
| | | 4 -> (require erc-ring)
| | | 4 <- require: erc-ring
| | | 4 -> (require erc-join)
| | | 4 <- require: erc-join
| | | 4 -> (require erc-noncommands)
| | | 4 <- require: !non-local\ exit!
| | | 4 -> (require erc-irccontrols)
| | | 4 <- require: !non-local\ exit!
| | | 4 -> (require erc-move-to-prompt)
| | | 4 <- require: !non-local\ exit!
| | | 4 -> (require erc-stamp)
| | | 4 <- require: erc-stamp
| | | 4 -> (require erc-menu)
| | | 4 <- require: erc-menu
| | | 4 -> (require erc-list)
| | | 4 <- require: erc-list
| | 3 <- erc-update-modules: nil
| | 3 -> (message "%s" "Connecting to 127.0.0.1:6670... ")
| | 3 <- message: "Connecting to 127.0.0.1:6670... "
| | 3 -> (require auth-source)
| | 3 <- require: auth-source
| | 3 -> (require nsm)
| | | 4 -> (require cl-lib)
| | | 4 <- require: cl-lib
| | | 4 -> (require rmc)
| | | | 5 -> (require seq)
| | | | 5 <- require: seq
| | | | 5 -> (provide rmc)
| | | | 5 <- provide: rmc
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/rmc.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: rmc
| | | 4 -> (require subr-x)
| | | 4 <- require: subr-x
| | | 4 -> (require seq)
| | | 4 <- require: seq
| | | 4 -> (require map)
| | | 4 <- require: map
| | | 4 -> (provide nsm)
| | | 4 <- provide: nsm
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/net/nsm.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: nsm
| | 3 -> (require puny)
| | | 4 -> (require seq)
| | | 4 <- require: seq
| | | 4 -> (provide puny)
| | | 4 <- provide: puny
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/net/puny.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: puny
| | 3 -> (provide network-stream)
| | 3 <- provide: network-stream
| | 3 -> (do-after-load-evaluation "/emacs/lisp/net/network-stream.elc")
| | 3 <- do-after-load-evaluation: nil
| | 3 -> (message "%s" "Logging in as `tester'...")
| | 3 <- message: "Logging in as `tester'..."
| 2 <- erc-open: #<buffer 127.0.0.1:6670>
1 <- erc: #<buffer 127.0.0.1:6670>
======================================================================
1 -> (message "Logging in as `%s'... done" "tester")
1 <- message: "Logging in as ‘tester’... done"

[-- Attachment #4: before.log --]
[-- Type: text/plain, Size: 24946 bytes --]

======================================================================
1 -> (message "CALLING ERC")
1 <- message: "CALLING ERC"
======================================================================
1 -> (provide erc-loaddefs)
1 <- provide: erc-loaddefs
======================================================================
1 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-loaddefs.el")
1 <- do-after-load-evaluation: nil
======================================================================
1 -> (require cl-lib)
| 2 -> (require macroexp)
| 2 <- require: macroexp
| 2 -> (provide cl-lib)
| 2 <- provide: cl-lib
| 2 -> (provide cl-loaddefs)
| 2 <- provide: cl-loaddefs
| 2 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/cl-loaddefs.el")
| 2 <- do-after-load-evaluation: nil
| 2 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/cl-lib.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: cl-lib
======================================================================
1 -> (require format-spec)
| 2 -> (provide format-spec)
| 2 <- provide: format-spec
| 2 -> (do-after-load-evaluation "/emacs/lisp/format-spec.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: format-spec
======================================================================
1 -> (require pp)
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (provide pp)
| 2 <- provide: pp
| 2 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/pp.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: pp
======================================================================
1 -> (require thingatpt)
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (provide thingatpt)
| 2 <- provide: thingatpt
| 2 -> (do-after-load-evaluation "/emacs/lisp/thingatpt.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: thingatpt
======================================================================
1 -> (require auth-source)
| 2 -> (require json)
| | 3 -> (require map)
| | | 4 -> (require seq)
| | | | 5 -> (require backquote)
| | | | 5 <- require: backquote
| | | | 5 -> (require macroexp)
| | | | 5 <- require: macroexp
| | | | 5 -> (require cconv)
| | | | | 6 -> (provide cconv)
| | | | | 6 <- provide: cconv
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/cconv.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: cconv
| | | | 5 -> (provide byte-compile)
| | | | 5 <- provide: byte-compile
| | | | 5 -> (provide bytecomp)
| | | | 5 <- provide: bytecomp
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/bytecomp.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | | 5 -> (require bytecomp)
| | | | 5 <- require: bytecomp
| | | | 5 -> (require macroexp)
| | | | 5 <- require: macroexp
| | | | 5 -> (provide byte-opt)
| | | | 5 <- provide: byte-opt
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/byte-opt.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | | 5 -> (require subr-x)
| | | | | 6 -> (provide subr-x)
| | | | | 6 <- provide: subr-x
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/subr-x.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: subr-x
| | | | 5 -> (require subr-x)
| | | | 5 <- require: subr-x
| | | | 5 -> (require macroexp)
| | | | 5 <- require: macroexp
| | | | 5 -> (provide gv)
| | | | 5 <- provide: gv
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/gv.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | | 5 -> (provide seq)
| | | | 5 <- provide: seq
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/seq.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | | 5 -> (provide seq)
| | | | 5 <- provide: seq
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/seq.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: seq
| | | 4 -> (require subr-x)
| | | 4 <- require: subr-x
| | | 4 -> (require subr-x)
| | | 4 <- require: subr-x
| | | 4 -> (provide map)
| | | 4 <- provide: map
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/map.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: map
| | 3 -> (require subr-x)
| | 3 <- require: subr-x
| | 3 -> (provide json)
| | 3 <- provide: json
| | 3 -> (do-after-load-evaluation "/emacs/lisp/json.elc")
| | 3 <- do-after-load-evaluation: nil
| 2 <- require: json
| 2 -> (require password-cache)
| | 3 -> (provide password-cache)
| | 3 <- provide: password-cache
| | 3 -> (do-after-load-evaluation "/emacs/lisp/password-cache.elc")
| | 3 <- do-after-load-evaluation: nil
| 2 <- require: password-cache
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (require eieio)
| | 3 -> (require eieio-core)
| | | 4 -> (require cl-lib)
| | | 4 <- require: cl-lib
| | | 4 -> (require eieio-loaddefs nil t)
| | | | 5 -> (provide eieio-loaddefs)
| | | | 5 <- provide: eieio-loaddefs
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/eieio-loaddefs.el")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: eieio-loaddefs
| | | 4 -> (require cl-macs)
| | | | 5 -> (require cl-lib)
| | | | 5 <- require: cl-lib
| | | | 5 -> (require macroexp)
| | | | 5 <- require: macroexp
| | | | 5 -> (require gv)
| | | | 5 <- require: gv
| | | | 5 -> (provide cl-macs)
| | | | 5 <- provide: cl-macs
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/cl-macs.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: cl-macs
| | | 4 -> (require cl-generic)
| | | 4 <- require: cl-generic
| | | 4 -> (provide eieio-core)
| | | 4 <- provide: eieio-core
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/eieio-core.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: eieio-core
| | 3 -> (require subr-x)
| | 3 <- require: subr-x
| | 3 -> (require subr-x)
| | 3 <- require: subr-x
| | 3 -> (provide eieio)
| | 3 <- provide: eieio
| | 3 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/eieio.elc")
| | 3 <- do-after-load-evaluation: nil
| 2 <- require: eieio
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (provide cl-seq)
| 2 <- provide: cl-seq
| 2 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/cl-seq.elc")
| 2 <- do-after-load-evaluation: nil
| 2 -> (provide auth-source)
| 2 <- provide: auth-source
| 2 -> (do-after-load-evaluation "/emacs/lisp/auth-source.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: auth-source
======================================================================
1 -> (require time-date)
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (require subr-x)
| 2 <- require: subr-x
| 2 -> (provide time-date)
| 2 <- provide: time-date
| 2 -> (do-after-load-evaluation "/emacs/lisp/calendar/time-date.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: time-date
======================================================================
1 -> (require iso8601)
| 2 -> (require time-date)
| 2 <- require: time-date
| 2 -> (require cl-lib)
| 2 <- require: cl-lib
| 2 -> (provide iso8601)
| 2 <- provide: iso8601
| 2 -> (do-after-load-evaluation "/emacs/lisp/calendar/iso8601.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: iso8601
======================================================================
1 -> (require erc-backend)
| 2 -> (provide erc-backend)
| 2 <- provide: erc-backend
| 2 -> (require erc)
| | 3 -> (provide erc-loaddefs)
| | 3 <- provide: erc-loaddefs
| | 3 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-loaddefs.el")
| | 3 <- do-after-load-evaluation: nil
| | 3 -> (require cl-lib)
| | 3 <- require: cl-lib
| | 3 -> (require format-spec)
| | 3 <- require: format-spec
| | 3 -> (require pp)
| | 3 <- require: pp
| | 3 -> (require thingatpt)
| | 3 <- require: thingatpt
| | 3 -> (require auth-source)
| | 3 <- require: auth-source
| | 3 -> (require time-date)
| | 3 <- require: time-date
| | 3 -> (require iso8601)
| | 3 <- require: iso8601
| | 3 -> (require erc-backend)
| | 3 <- require: erc-backend
| | 3 -> (provide erc)
| | 3 <- provide: erc
| | 3 -> (require erc-goodies)
| | | 4 -> (require erc)
| | | 4 <- require: erc
| | | 4 -> (provide erc-goodies)
| | | 4 <- provide: erc-goodies
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-goodies.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: erc-goodies
| | 3 -> (do-after-load-evaluation "/emacs/lisp/erc/erc.elc")
| | | 4 -> (message "LOADING TOP LEVEL")
| | | 4 <- message: "LOADING TOP LEVEL"
| | | 4 -> (erc-update-modules)
| | | | 5 -> (require erc-netsplit)
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (provide erc-netsplit)
| | | | | 6 <- provide: erc-netsplit
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-netsplit.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-netsplit
| | | | 5 -> (require erc-fill)
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (require erc-stamp)
| | | | | | 7 -> (require erc)
| | | | | | 7 <- require: erc
| | | | | | 7 -> (provide erc-stamp)
| | | | | | 7 <- provide: erc-stamp
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-stamp.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: erc-stamp
| | | | | 6 -> (provide erc-fill)
| | | | | 6 <- provide: erc-fill
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-fill.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-fill
| | | | 5 -> (require erc-button)
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (require wid-edit)
| | | | | | 7 -> (require cl-lib)
| | | | | | 7 <- require: cl-lib
| | | | | | 7 -> (provide wid-edit)
| | | | | | 7 <- provide: wid-edit
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/wid-edit.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: wid-edit
| | | | | 6 -> (require erc-fill)
| | | | | 6 <- require: erc-fill
| | | | | 6 -> (require browse-url)
| | | | | | 7 -> (require url)
| | | | | | | 8 -> (require mailcap)
| | | | | | | | 9 -> (require cl-lib)
| | | | | | | | 9 <- require: cl-lib
| | | | | | | | 9 -> (provide mailcap)
| | | | | | | | 9 <- provide: mailcap
| | | | | | | | 9 -> (do-after-load-evaluation "/emacs/lisp/net/mailcap.elc")
| | | | | | | | 9 <- do-after-load-evaluation: nil
| | | | | | | 8 <- require: mailcap
| | | | | | | 8 -> (require url-vars)
| | | | | | | | 9 -> (provide url-vars)
| | | | | | | | 9 <- provide: url-vars
| | | | | | | | 9 -> (do-after-load-evaluation "/emacs/lisp/url/url-vars.elc")
| | | | | | | | 9 <- do-after-load-evaluation: nil
| | | | | | | 8 <- require: url-vars
| | | | | | | 8 -> (require url-cookie)
| | | | | | | | 9 -> (require url-util)
| | | | | | | | | 10 -> (require url-parse)
| | | | | | | | | | 11 -> (require url-vars)
| | | | | | | | | | 11 <- require: url-vars
| | | | | | | | | | 11 -> (require auth-source)
| | | | | | | | | | 11 <- require: auth-source
| | | | | | | | | | 11 -> (provide url-parse)
| | | | | | | | | | 11 <- provide: url-parse
| | | | | | | | | | 11 -> (do-after-load-evaluation "/emacs/lisp/url/url-parse.elc")
| | | | | | | | | | 11 <- do-after-load-evaluation: nil
| | | | | | | | | 10 <- require: url-parse
| | | | | | | | | 10 -> (require url-vars)
| | | | | | | | | 10 <- require: url-vars
| | | | | | | | | 10 -> (provide url-util)
| | | | | | | | | 10 <- provide: url-util
| | | | | | | | | 10 -> (do-after-load-evaluation "/emacs/lisp/url/url-util.elc")
| | | | | | | | | 10 <- do-after-load-evaluation: nil
| | | | | | | | 9 <- require: url-util
| | | | | | | | 9 -> (require url-parse)
| | | | | | | | 9 <- require: url-parse
| | | | | | | | 9 -> (require url-domsuf)
| | | | | | | | | 10 -> (provide url-domsuf)
| | | | | | | | | 10 <- provide: url-domsuf
| | | | | | | | | 10 -> (do-after-load-evaluation "/emacs/lisp/url/url-domsuf.elc")
| | | | | | | | | 10 <- do-after-load-evaluation: nil
| | | | | | | | 9 <- require: url-domsuf
| | | | | | | | 9 -> (provide url-cookie)
| | | | | | | | 9 <- provide: url-cookie
| | | | | | | | 9 -> (do-after-load-evaluation "/emacs/lisp/url/url-cookie.elc")
| | | | | | | | 9 <- do-after-load-evaluation: nil
| | | | | | | 8 <- require: url-cookie
| | | | | | | 8 -> (require url-history)
| | | | | | | | 9 -> (require url-parse)
| | | | | | | | 9 <- require: url-parse
| | | | | | | | 9 -> (provide url-history)
| | | | | | | | 9 <- provide: url-history
| | | | | | | | 9 -> (do-after-load-evaluation "/emacs/lisp/url/url-history.elc")
| | | | | | | | 9 <- do-after-load-evaluation: nil
| | | | | | | 8 <- require: url-history
| | | | | | | 8 -> (require url-expand)
| | | | | | | | 9 -> (require url-methods)
| | | | | | | | | 10 -> (require url-parse)
| | | | | | | | | 10 <- require: url-parse
| | | | | | | | | 10 -> (provide url-methods)
| | | | | | | | | 10 <- provide: url-methods
| | | | | | | | | 10 -> (do-after-load-evaluation "/emacs/lisp/url/url-methods.elc")
| | | | | | | | | 10 <- do-after-load-evaluation: nil
| | | | | | | | 9 <- require: url-methods
| | | | | | | | 9 -> (require url-util)
| | | | | | | | 9 <- require: url-util
| | | | | | | | 9 -> (require url-parse)
| | | | | | | | 9 <- require: url-parse
| | | | | | | | 9 -> (provide url-expand)
| | | | | | | | 9 <- provide: url-expand
| | | | | | | | 9 -> (do-after-load-evaluation "/emacs/lisp/url/url-expand.elc")
| | | | | | | | 9 <- do-after-load-evaluation: nil
| | | | | | | 8 <- require: url-expand
| | | | | | | 8 -> (require url-privacy)
| | | | | | | | 9 -> (require url-vars)
| | | | | | | | 9 <- require: url-vars
| | | | | | | | 9 -> (provide url-privacy)
| | | | | | | | 9 <- provide: url-privacy
| | | | | | | | 9 -> (do-after-load-evaluation "/emacs/lisp/url/url-privacy.elc")
| | | | | | | | 9 <- do-after-load-evaluation: nil
| | | | | | | 8 <- require: url-privacy
| | | | | | | 8 -> (require url-methods)
| | | | | | | 8 <- require: url-methods
| | | | | | | 8 -> (require url-proxy)
| | | | | | | | 9 -> (require url-parse)
| | | | | | | | 9 <- require: url-parse
| | | | | | | | 9 -> (provide url-proxy)
| | | | | | | | 9 <- provide: url-proxy
| | | | | | | | 9 -> (do-after-load-evaluation "/emacs/lisp/url/url-proxy.elc")
| | | | | | | | 9 <- do-after-load-evaluation: nil
| | | | | | | 8 <- require: url-proxy
| | | | | | | 8 -> (require url-parse)
| | | | | | | 8 <- require: url-parse
| | | | | | | 8 -> (require url-util)
| | | | | | | 8 <- require: url-util
| | | | | | | 8 -> (provide url)
| | | | | | | 8 <- provide: url
| | | | | | | 8 -> (do-after-load-evaluation "/emacs/lisp/url/url.elc")
| | | | | | | 8 <- do-after-load-evaluation: nil
| | | | | | 7 <- require: url
| | | | | | 7 -> (provide browse-url)
| | | | | | 7 <- provide: browse-url
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/net/browse-url.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: browse-url
| | | | | 6 -> (provide erc-button)
| | | | | 6 <- provide: erc-button
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-button.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-button
| | | | 5 -> (require erc-match)
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (provide erc-match)
| | | | | 6 <- provide: erc-match
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-match.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-match
| | | | 5 -> (require erc-track)
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (require erc-match)
| | | | | 6 <- require: erc-match
| | | | | 6 -> (provide erc-track)
| | | | | 6 <- provide: erc-track
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-track.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-track
| | | | 5 -> (require erc-pcomplete)
| | | | | 6 -> (require pcomplete)
| | | | | | 7 -> (require comint)
| | | | | | | 8 -> (require ring)
| | | | | | | | 9 -> (provide ring)
| | | | | | | | 9 <- provide: ring
| | | | | | | | 9 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/ring.elc")
| | | | | | | | 9 <- do-after-load-evaluation: nil
| | | | | | | 8 <- require: ring
| | | | | | | 8 -> (require ansi-color)
| | | | | | | | 9 -> (provide ansi-color)
| | | | | | | | 9 <- provide: ansi-color
| | | | | | | | 9 -> (do-after-load-evaluation "/emacs/lisp/ansi-color.elc")
| | | | | | | | 9 <- do-after-load-evaluation: nil
| | | | | | | 8 <- require: ansi-color
| | | | | | | 8 -> (require regexp-opt)
| | | | | | | 8 <- require: regexp-opt
| | | | | | | 8 -> (provide comint)
| | | | | | | 8 <- provide: comint
| | | | | | | 8 -> (do-after-load-evaluation "/emacs/lisp/comint.elc")
| | | | | | | 8 <- do-after-load-evaluation: nil
| | | | | | 7 <- require: comint
| | | | | | 7 -> (provide pcomplete)
| | | | | | 7 <- provide: pcomplete
| | | | | | 7 -> (do-after-load-evaluation "/emacs/lisp/pcomplete.elc")
| | | | | | 7 <- do-after-load-evaluation: nil
| | | | | 6 <- require: pcomplete
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (require time-date)
| | | | | 6 <- require: time-date
| | | | | 6 -> (provide erc-pcomplete)
| | | | | 6 <- provide: erc-pcomplete
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-pcomplete.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-pcomplete
| | | | 5 -> (require erc-readonly)
| | | | 5 <- require: !non-local\ exit!
| | | | 5 -> (require erc-networks)
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (provide erc-networks)
| | | | | 6 <- provide: erc-networks
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-networks.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-networks
| | | | 5 -> (require erc-ring)
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (require comint)
| | | | | 6 <- require: comint
| | | | | 6 -> (require ring)
| | | | | 6 <- require: ring
| | | | | 6 -> (provide erc-ring)
| | | | | 6 <- provide: erc-ring
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-ring.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-ring
| | | | 5 -> (require erc-join)
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (require auth-source)
| | | | | 6 <- require: auth-source
| | | | | 6 -> (require erc-networks)
| | | | | 6 <- require: erc-networks
| | | | | 6 -> (provide erc-join)
| | | | | 6 <- provide: erc-join
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-join.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-join
| | | | 5 -> (require erc-noncommands)
| | | | 5 <- require: !non-local\ exit!
| | | | 5 -> (require erc-irccontrols)
| | | | 5 <- require: !non-local\ exit!
| | | | 5 -> (require erc-move-to-prompt)
| | | | 5 <- require: !non-local\ exit!
| | | | 5 -> (require erc-stamp)
| | | | 5 <- require: erc-stamp
| | | | 5 -> (require erc-menu)
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (provide erc-menu)
| | | | | 6 <- provide: erc-menu
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-menu.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-menu
| | | | 5 -> (require erc-list)
| | | | | 6 -> (require erc)
| | | | | 6 <- require: erc
| | | | | 6 -> (provide erc-list)
| | | | | 6 <- provide: erc-list
| | | | | 6 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-list.elc")
| | | | | 6 <- do-after-load-evaluation: nil
| | | | 5 <- require: erc-list
| | | 4 <- erc-update-modules: nil
| | 3 <- do-after-load-evaluation: nil
| 2 <- require: erc
| 2 -> (provide erc-backend)
| 2 <- provide: erc-backend
| 2 -> (do-after-load-evaluation "/emacs/lisp/erc/erc-backend.elc")
| 2 <- do-after-load-evaluation: nil
1 <- require: erc-backend
======================================================================
1 -> (provide erc)
1 <- provide: erc
======================================================================
1 -> (require erc-goodies)
1 <- require: erc-goodies
======================================================================
1 -> (do-after-load-evaluation "/emacs/lisp/erc/erc.elc")
| 2 -> (message "LOADING TOP LEVEL")
| 2 <- message: "LOADING TOP LEVEL"
| 2 -> (erc-update-modules)
| | 3 -> (require erc-pcomplete)
| | 3 <- require: erc-pcomplete
| | 3 -> (require erc-netsplit)
| | 3 <- require: erc-netsplit
| | 3 -> (require erc-fill)
| | 3 <- require: erc-fill
| | 3 -> (require erc-button)
| | 3 <- require: erc-button
| | 3 -> (require erc-match)
| | 3 <- require: erc-match
| | 3 -> (require erc-track)
| | 3 <- require: erc-track
| | 3 -> (require erc-pcomplete)
| | 3 <- require: erc-pcomplete
| | 3 -> (require erc-readonly)
| | 3 <- require: !non-local\ exit!
| | 3 -> (require erc-networks)
| | 3 <- require: erc-networks
| | 3 -> (require erc-ring)
| | 3 <- require: erc-ring
| | 3 -> (require erc-join)
| | 3 <- require: erc-join
| | 3 -> (require erc-noncommands)
| | 3 <- require: !non-local\ exit!
| | 3 -> (require erc-irccontrols)
| | 3 <- require: !non-local\ exit!
| | 3 -> (require erc-move-to-prompt)
| | 3 <- require: !non-local\ exit!
| | 3 -> (require erc-stamp)
| | 3 <- require: erc-stamp
| | 3 -> (require erc-menu)
| | 3 <- require: erc-menu
| | 3 -> (require erc-list)
| | 3 <- require: erc-list
| 2 <- erc-update-modules: nil
1 <- do-after-load-evaluation: nil
======================================================================
1 -> (erc :server "127.0.0.1" :port 6670 :nick "tester" :password "changeme")
| 2 -> (erc-open "127.0.0.1" 6670 "tester" "unknown" t "changeme")
| | 3 -> (erc-update-modules)
| | | 4 -> (require erc-pcomplete)
| | | 4 <- require: erc-pcomplete
| | | 4 -> (require erc-netsplit)
| | | 4 <- require: erc-netsplit
| | | 4 -> (require erc-fill)
| | | 4 <- require: erc-fill
| | | 4 -> (require erc-button)
| | | 4 <- require: erc-button
| | | 4 -> (require erc-match)
| | | 4 <- require: erc-match
| | | 4 -> (require erc-track)
| | | 4 <- require: erc-track
| | | 4 -> (require erc-pcomplete)
| | | 4 <- require: erc-pcomplete
| | | 4 -> (require erc-readonly)
| | | 4 <- require: !non-local\ exit!
| | | 4 -> (require erc-networks)
| | | 4 <- require: erc-networks
| | | 4 -> (require erc-ring)
| | | 4 <- require: erc-ring
| | | 4 -> (require erc-join)
| | | 4 <- require: erc-join
| | | 4 -> (require erc-noncommands)
| | | 4 <- require: !non-local\ exit!
| | | 4 -> (require erc-irccontrols)
| | | 4 <- require: !non-local\ exit!
| | | 4 -> (require erc-move-to-prompt)
| | | 4 <- require: !non-local\ exit!
| | | 4 -> (require erc-stamp)
| | | 4 <- require: erc-stamp
| | | 4 -> (require erc-menu)
| | | 4 <- require: erc-menu
| | | 4 -> (require erc-list)
| | | 4 <- require: erc-list
| | 3 <- erc-update-modules: nil
| | 3 -> (message "%s" "Connecting to 127.0.0.1:6670... ")
| | 3 <- message: "Connecting to 127.0.0.1:6670... "
| | 3 -> (require auth-source)
| | 3 <- require: auth-source
| | 3 -> (require nsm)
| | | 4 -> (require cl-lib)
| | | 4 <- require: cl-lib
| | | 4 -> (require rmc)
| | | | 5 -> (require seq)
| | | | 5 <- require: seq
| | | | 5 -> (provide rmc)
| | | | 5 <- provide: rmc
| | | | 5 -> (do-after-load-evaluation "/emacs/lisp/emacs-lisp/rmc.elc")
| | | | 5 <- do-after-load-evaluation: nil
| | | 4 <- require: rmc
| | | 4 -> (require subr-x)
| | | 4 <- require: subr-x
| | | 4 -> (require seq)
| | | 4 <- require: seq
| | | 4 -> (require map)
| | | 4 <- require: map
| | | 4 -> (provide nsm)
| | | 4 <- provide: nsm
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/net/nsm.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: nsm
| | 3 -> (require puny)
| | | 4 -> (require seq)
| | | 4 <- require: seq
| | | 4 -> (provide puny)
| | | 4 <- provide: puny
| | | 4 -> (do-after-load-evaluation "/emacs/lisp/net/puny.elc")
| | | 4 <- do-after-load-evaluation: nil
| | 3 <- require: puny
| | 3 -> (provide network-stream)
| | 3 <- provide: network-stream
| | 3 -> (do-after-load-evaluation "/emacs/lisp/net/network-stream.elc")
| | 3 <- do-after-load-evaluation: nil
| | 3 -> (message "%s" "Logging in as `tester'...")
| | 3 <- message: "Logging in as `tester'..."
| 2 <- erc-open: #<buffer 127.0.0.1:6670>
1 <- erc: #<buffer 127.0.0.1:6670>
======================================================================
1 -> (message "Logging in as `%s'... done" "tester")
1 <- message: "Logging in as ‘tester’... done"

bug#54825: 29.0.50; Relax mutual dependency between erc and erc-backend

[Lars Ingebrigtsen]

"J.P." <jp@neverwas.me> writes:

> Attached are some traces showing the loading sequence before and after
> the proposed changes (which also do away with the surprise produced by
> the snippet shown above). As always, superior solutions are welcome.

It's an unfortunate dependency, but I think your patch is basically
correct.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no