From 32df2933ea544791566f0b978e315e972cb0d550 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 14 Oct 2021 17:26:05 -0500 Subject: Fix topic detecting code --- lisp/acdw-circe.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/acdw-circe.el b/lisp/acdw-circe.el index 958ef38..a45c6ff 100644 --- a/lisp/acdw-circe.el +++ b/lisp/acdw-circe.el @@ -17,7 +17,10 @@ message the current topic." (interactive "p") (let ((topic (save-excursion - (re-search-backward (rx "*** Topic for #" (+ (or word "-")) ": ")) + (goto-char (point-max)) + (or (re-search-backward (rx "*** Topic change" (+ (not ":")) ": ")) + (re-search-backward + (rx "*** Topic for #" (+ (or word "-")) ": "))) (buffer-substring-no-properties (match-end 0) (line-end-position))))) (when message -- cgit 1.4.1-21-gabe81