[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/rcirc-menu b8187ee: rcirc-menu.el: catchup marked buffers
From: |
Alex Schroeder |
Subject: |
[elpa] scratch/rcirc-menu b8187ee: rcirc-menu.el: catchup marked buffers |
Date: |
Fri, 11 Aug 2017 03:50:16 -0400 (EDT) |
branch: scratch/rcirc-menu
commit b8187eec0923af70cc5a51df0e4e2308f5924f49
Author: Alex Schroeder <address@hidden>
Commit: Alex Schroeder <address@hidden>
rcirc-menu.el: catchup marked buffers
When catching up, check for marked buffers. If there are any, catch up
for each of them. If there are no marked buffers, use the current
buffer.
---
packages/rcirc-menu/rcirc-menu.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/packages/rcirc-menu/rcirc-menu.el
b/packages/rcirc-menu/rcirc-menu.el
index 64c0faa..e875c3e 100644
--- a/packages/rcirc-menu/rcirc-menu.el
+++ b/packages/rcirc-menu/rcirc-menu.el
@@ -227,9 +227,14 @@ elements of ‘tabulated-list-entries’."
(apply '< args))
(defun rcirc-menu-catchup ()
- "Mark the current buffer as read, i.e. no activity."
+ "Mark the current buffer or the marked buffers as read.
+This resets their activity."
(interactive)
- (rcirc-clear-activity (Buffer-menu-buffer t))
+ (let* ((this-buffer (list (Buffer-menu-buffer t)))
+ (marked-buffers (Buffer-menu-marked-buffers))
+ (buffers (or marked-buffers this-buffer)))
+ (dolist (buf buffers)
+ (rcirc-clear-activity buf)))
(run-hooks 'tabulated-list-revert-hook)
(tabulated-list-print))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] scratch/rcirc-menu b8187ee: rcirc-menu.el: catchup marked buffers,
Alex Schroeder <=