From cd8cc9af62a32608d317bf371a55d5a7b9c7463b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 14 Oct 2021 20:34:12 -0500
Subject: Fix circe-current-topic

---
 lisp/acdw-circe.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lisp')

diff --git a/lisp/acdw-circe.el b/lisp/acdw-circe.el
index a45c6ff..076bbc6 100644
--- a/lisp/acdw-circe.el
+++ b/lisp/acdw-circe.el
@@ -18,11 +18,11 @@ message the current topic."
   (let ((topic
          (save-excursion
            (goto-char (point-max))
-           (or (re-search-backward (rx "*** Topic change" (+ (not ":")) ": "))
-               (re-search-backward
-                (rx "*** Topic for #" (+ (or word "-")) ": ")))
+           (or (re-search-backward
+                (rx (group "*** Topic" (+ (not ":")) ": ")
+                    (group (+ nonl)))))
            (buffer-substring-no-properties
-            (match-end 0) (line-end-position)))))
+            (match-beginning 2) (match-end 2)))))
     (when message
       (message "%s" topic))
     topic))
@@ -53,7 +53,7 @@ message the current topic."
    (propertize
     (concat
      (acdw-irc/margin-format (buffer-name) "" ">")
-     " ")  
+     " ")
     'face 'circe-prompt-face
     'read-only t
     'intangible t
-- 
cgit 1.4.1-21-gabe81