about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-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