branch: externals/bufferlo
commit 65d0cdedd56322b17f76926526e2949a4b099a26
Author: shipmints <shipmi...@gmail.com>
Commit: shipmints <shipmi...@gmail.com>
Remove unused variable. Move things to silence the compiler.
---
bufferlo.el | 27 +++++++++++++--------------
1 file changed, 13 insertions(+), 14 deletions(-)
diff --git a/bufferlo.el b/bufferlo.el
index dbd82ecaab..e17a85b03c 100644
--- a/bufferlo.el
+++ b/bufferlo.el
@@ -791,6 +791,18 @@ string, FACE is the face for STR."
(defvar bufferlo-mode-map (make-sparse-keymap)
"`bufferlo-mode' keymap.")
+(defvar bufferlo--bookmark-handlers
+ (list
+ #'bufferlo--bookmark-tab-handler
+ #'bufferlo--bookmark-frame-handler
+ #'bufferlo--bookmark-set-handler)
+ "Bufferlo bookmark handlers.")
+
+(defconst bufferlo--bookmark-type-names
+ '((tbm . "B-Tab")
+ (fbm . "B-Frame")
+ (sbm . "B-Set")))
+
;;;###autoload
(define-minor-mode bufferlo-mode
"Manage frame/tab-local buffers."
@@ -2831,8 +2843,7 @@ This closes their associated bookmarks and kills their
buffers."
(interactive)
(let* ((candidates (mapcar #'car bufferlo--active-sets))
(comps (bufferlo--bookmark-completing-read "Select sets to enumerate:
" candidates)))
- (let* ((abms (bufferlo--active-bookmarks))
- (abm-names (mapcar #'car abms)))
+ (let* ((abms (bufferlo--active-bookmarks)))
(with-current-buffer (get-buffer-create bufferlo--set-list-buffer-name)
(let ((buffer-undo-list t))
(read-only-mode -1)
@@ -2867,18 +2878,6 @@ This closes their associated bookmarks and kills their
buffers."
(goto-char (point-min))
(pop-to-buffer (current-buffer) nil 'norecord)))))
-(defvar bufferlo--bookmark-handlers
- (list
- #'bufferlo--bookmark-tab-handler
- #'bufferlo--bookmark-frame-handler
- #'bufferlo--bookmark-set-handler)
- "Bufferlo bookmark handlers.")
-
-(defconst bufferlo--bookmark-type-names
- '((tbm . "B-Tab")
- (fbm . "B-Frame")
- (sbm . "B-Set")))
-
(defun bufferlo--bookmark-get-names (&rest handlers)
"Get the names of all existing bookmarks for HANDLERS."
(bookmark-maybe-load-default-file)
