branch: externals/bufferlo
commit 03e111f150c1910dd2b18bf2447dd420b2571616
Author: shipmints <shipmi...@gmail.com>
Commit: shipmints <shipmi...@gmail.com>
Bookmark location property now set to "" to make bookmark-bmenu-list look
nicer.
---
bufferlo.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/bufferlo.el b/bufferlo.el
index 125549ff7d..1bab087ac6 100644
--- a/bufferlo.el
+++ b/bufferlo.el
@@ -1709,6 +1709,11 @@ the message after successfully restoring the bookmark."
(put #'bufferlo--bookmark-frame-handler 'bookmark-handler-type "B-Frame") ;
short name here as bookmark-bmenu-list hard codes width of 8 chars
+(defun bufferlo-bookmark-set-location (bookmark-name-or-record &optional
location)
+ "Set the location of BOOKMARK-NAME-OR-RECORD to LOCATION or \\=\"\", if nil."
+ (bookmark-prop-set bookmark-name-or-record 'location (or location ""))
+ bookmark-name-or-record)
+
(defvar bufferlo--bookmark-handlers
(list
#'bufferlo--bookmark-tab-handler
@@ -1748,7 +1753,7 @@ buffer list."
(bufferlo--bookmark-get-names #'bufferlo--bookmark-tab-handler)
nil nil nil 'bufferlo-bookmark-tab-history)))
(bufferlo--warn)
- (bookmark-store name (bufferlo--bookmark-tab-get) no-overwrite)
+ (bookmark-store name (bufferlo-bookmark-set-location
(bufferlo--bookmark-tab-get)) no-overwrite)
(setf (alist-get 'bufferlo-bookmark-tab-name
(cdr (bufferlo--current-tab)))
name)
@@ -1819,7 +1824,7 @@ state (not the contents) of the bookmarkable buffers for
each tab."
nil nil nil 'bufferlo-bookmark-frame-history
(frame-parameter nil 'bufferlo-bookmark-frame-name))))
(bufferlo--warn)
- (bookmark-store name (bufferlo--bookmark-frame-get) no-overwrite)
+ (bookmark-store name (bufferlo-bookmark-set-location
(bufferlo--bookmark-frame-get)) no-overwrite)
(set-frame-parameter nil 'bufferlo-bookmark-frame-name name)
(unless no-message
(message "Saved bufferlo frame bookmark: %s" name)))
