branch: externals/bufferlo
commit c2872cddef840bf2db82bfb6d31fc703b83fb21d
Author: shipmints <shipmi...@gmail.com>
Commit: shipmints <shipmi...@gmail.com>
bufferlo-set-save-interactive now activates the new/updated set
---
bufferlo.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/bufferlo.el b/bufferlo.el
index c381200236..d4abd86ed4 100644
--- a/bufferlo.el
+++ b/bufferlo.el
@@ -2696,8 +2696,14 @@ throwing away the old one."
(bufferlo--warn)
(let* ((abms (bufferlo--active-bookmarks))
(abm-names (mapcar #'car abms))
- (comps (bufferlo--bookmark-completing-read (format "Add bookmark(s)
to %s: " bookmark-name) abm-names)))
- (bufferlo--set-save bookmark-name comps abms no-overwrite)))
+ (comps (bufferlo--bookmark-completing-read
+ (format "Add bookmark(s) to %s: " bookmark-name) abm-names)))
+ (bufferlo--set-save bookmark-name comps abms no-overwrite)
+ (setq bufferlo--active-sets
+ (assoc-delete-all bookmark-name bufferlo--active-sets #'equal))
+ (push
+ `(,bookmark-name (bufferlo-bookmark-names . ,comps))
+ bufferlo--active-sets)))
(defun bufferlo-set-save-current-interactive ()
"Save active constituents in selected bookmark sets."
