diff options
| author | Case Duckworth | 2021-10-14 20:34:12 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-10-14 20:34:12 -0500 |
| commit | cd8cc9af62a32608d317bf371a55d5a7b9c7463b (patch) | |
| tree | a19437790e4cbc21b8ef2ac214562be633c8e156 | |
| parent | Merge branch 'main' of https://github.com/duckwork/.emacs.d (diff) | |
| download | emacs-cd8cc9af62a32608d317bf371a55d5a7b9c7463b.tar.gz emacs-cd8cc9af62a32608d317bf371a55d5a7b9c7463b.zip | |
Fix circe-current-topic
| -rw-r--r-- | lisp/acdw-circe.el | 10 |
1 files changed, 5 insertions, 5 deletions
| 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." | |||
| 18 | (let ((topic | 18 | (let ((topic |
| 19 | (save-excursion | 19 | (save-excursion |
| 20 | (goto-char (point-max)) | 20 | (goto-char (point-max)) |
| 21 | (or (re-search-backward (rx "*** Topic change" (+ (not ":")) ": ")) | 21 | (or (re-search-backward |
| 22 | (re-search-backward | 22 | (rx (group "*** Topic" (+ (not ":")) ": ") |
| 23 | (rx "*** Topic for #" (+ (or word "-")) ": "))) | 23 | (group (+ nonl))))) |
| 24 | (buffer-substring-no-properties | 24 | (buffer-substring-no-properties |
| 25 | (match-end 0) (line-end-position))))) | 25 | (match-beginning 2) (match-end 2))))) |
| 26 | (when message | 26 | (when message |
| 27 | (message "%s" topic)) | 27 | (message "%s" topic)) |
| 28 | topic)) | 28 | topic)) |
| @@ -53,7 +53,7 @@ message the current topic." | |||
| 53 | (propertize | 53 | (propertize |
| 54 | (concat | 54 | (concat |
| 55 | (acdw-irc/margin-format (buffer-name) "" ">") | 55 | (acdw-irc/margin-format (buffer-name) "" ">") |
| 56 | " ") | 56 | " ") |
| 57 | 'face 'circe-prompt-face | 57 | 'face 'circe-prompt-face |
| 58 | 'read-only t | 58 | 'read-only t |
| 59 | 'intangible t | 59 | 'intangible t |