diff options
| author | Case Duckworth | 2021-10-14 17:26:05 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-10-14 17:26:05 -0500 |
| commit | 32df2933ea544791566f0b978e315e972cb0d550 (patch) | |
| tree | 8de4f9817cfb561744b84a306c0ffdac42d16622 | |
| parent | I told myself I'd have useful commit messages today (diff) | |
| download | emacs-32df2933ea544791566f0b978e315e972cb0d550.tar.gz emacs-32df2933ea544791566f0b978e315e972cb0d550.zip | |
Fix topic detecting code
| -rw-r--r-- | lisp/acdw-circe.el | 5 |
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 |