From 6fd2ecedb6e3ed802580561cd98a925a68292182 Mon Sep 17 00:00:00 2001
From: Brett Gilio <brettg@gnu.org>
Date: Tue, 28 Jul 2020 23:30:05 -0500
Subject: gnu: emacs-erc-image: Patch eval-after-load procedure.

* gnu/packages/emacs-xyz.scm (emacs-erc-image)[arguments]: Create a phase that
substitutes the ERC module for ERC-AUTO. When ERC is used the autoloader for
for Emacs hangs indefinitely (if daemonized) or fails.
---
 gnu/packages/emacs-xyz.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'gnu')

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 44f8c44233..5dc0bc9fa0 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -14179,7 +14179,7 @@ arXiv, Google Scholar, Library of Congress, etc.
 
 (define-public emacs-erc-image
   (let ((commit "82fb3871f02e24b1e880770b9a3d187aab43d0f0")
-        (revision "1"))
+        (revision "2"))
     (package
       (name "emacs-erc-image")
       (version (git-version "0" revision commit))
@@ -14194,6 +14194,17 @@ arXiv, Google Scholar, Library of Congress, etc.
           (base32
            "1q8mkf612fb4fjp8h4kbr107wn083iqfdgv8f80pcmil8y33dw9i"))))
       (build-system emacs-build-system)
+      (arguments
+       `(#:phases (modify-phases %standard-phases
+                    ;; NOTE: The autoloader for Guix will fail
+                    ;; because this package asserts an incorrect
+                    ;; `eval-after-load'.
+                    (add-after 'unpack 'patch-autoload-generation
+                      (lambda _
+                        (substitute* "erc-image.el"
+                          (("eval-after-load 'erc")
+                           "eval-after-load 'erc-auto"))
+                        #t)))))
       (home-page "https://github.com/kidd/erc-image.el")
       (synopsis "Show inlined images (png/jpg/gif/svg) in ERC buffers")
       (description "This plugin subscribes to hooks @code{erc-insert-modify-hook}
-- 
cgit v1.2.3