diff options
-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 |