summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-10-14 20:34:12 -0500
committerCase Duckworth2021-10-14 20:34:12 -0500
commitcd8cc9af62a32608d317bf371a55d5a7b9c7463b (patch)
treea19437790e4cbc21b8ef2ac214562be633c8e156
parentMerge branch 'main' of https://github.com/duckwork/.emacs.d (diff)
downloademacs-cd8cc9af62a32608d317bf371a55d5a7b9c7463b.tar.gz
emacs-cd8cc9af62a32608d317bf371a55d5a7b9c7463b.zip
Fix circe-current-topic
-rw-r--r--lisp/acdw-circe.el10
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