about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-10-14 17:26:05 -0500
committerCase Duckworth2021-10-14 17:26:05 -0500
commit32df2933ea544791566f0b978e315e972cb0d550 (patch)
tree8de4f9817cfb561744b84a306c0ffdac42d16622
parentI told myself I'd have useful commit messages today (diff)
downloademacs-32df2933ea544791566f0b978e315e972cb0d550.tar.gz
emacs-32df2933ea544791566f0b978e315e972cb0d550.zip
Fix topic detecting code
-rw-r--r--lisp/acdw-circe.el5
1 files changed, 4 insertions, 1 deletions
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."
17 (interactive "p") 17 (interactive "p")
18 (let ((topic 18 (let ((topic
19 (save-excursion 19 (save-excursion
20 (re-search-backward (rx "*** Topic for #" (+ (or word "-")) ": ")) 20 (goto-char (point-max))
21 (or (re-search-backward (rx "*** Topic change" (+ (not ":")) ": "))
22 (re-search-backward
23 (rx "*** Topic for #" (+ (or word "-")) ": ")))
21 (buffer-substring-no-properties 24 (buffer-substring-no-properties
22 (match-end 0) (line-end-position))))) 25 (match-end 0) (line-end-position)))))
23 (when message 26 (when message