diff options
| author | Case Duckworth | 2022-04-27 08:38:03 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-27 08:38:03 -0500 |
| commit | 57f0dd43c4147d69b4a6ab4d482d353ae520ab63 (patch) | |
| tree | 38347c027e068a4cdbf358db2eaea3289c38f689 /lisp | |
| parent | Add functions for org (diff) | |
| download | emacs-57f0dd43c4147d69b4a6ab4d482d353ae520ab63.tar.gz emacs-57f0dd43c4147d69b4a6ab4d482d353ae520ab63.zip | |
bleh
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/+jabber.el | 12 |
1 files changed, 12 insertions, 0 deletions
| diff --git a/lisp/+jabber.el b/lisp/+jabber.el index 2382102..c5d568c 100644 --- a/lisp/+jabber.el +++ b/lisp/+jabber.el | |||
| @@ -250,5 +250,17 @@ associated face. Ignore notification if face is ‘nil’." | |||
| 250 | (buffer-string)) | 250 | (buffer-string)) |
| 251 | :time (current-time)))))))))))) | 251 | :time (current-time)))))))))))) |
| 252 | 252 | ||
| 253 | (defun +jabber-colors-update (&optional buffer) | ||
| 254 | "Update jabber colors in BUFFER, defaulting to the current." | ||
| 255 | (with-current-buffer (or buffer (current-buffer)) | ||
| 256 | (when jabber-buffer-connection | ||
| 257 | (setq jabber-muc-participant-colors nil) | ||
| 258 | (cond (jabber-chatting-with | ||
| 259 | (jabber-chat-create-buffer jabber-buffer-connection | ||
| 260 | jabber-chatting-with)) | ||
| 261 | (jabber-group | ||
| 262 | (jabber-muc-create-buffer jabber-buffer-connection | ||
| 263 | jabber-group)))))) | ||
| 264 | |||
| 253 | (provide '+jabber) | 265 | (provide '+jabber) |
| 254 | ;;; +jabber.el ends here | 266 | ;;; +jabber.el ends here |