[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 7a7ca6c67b 3/4: Fix preselection when toggling bookma
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 7a7ca6c67b 3/4: Fix preselection when toggling bookmark location |
Date: |
Sun, 13 Mar 2022 04:58:19 -0400 (EDT) |
branch: elpa/helm
commit 7a7ca6c67b191201c4c5eb155450df6e69b35180
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Fix preselection when toggling bookmark location
---
helm-bookmark.el | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/helm-bookmark.el b/helm-bookmark.el
index dd007d5407..27947cc2d2 100644
--- a/helm-bookmark.el
+++ b/helm-bookmark.el
@@ -155,15 +155,11 @@
(let* ((real (helm-get-selection helm-buffer))
(trunc (if (> (string-width real) bookmark-bmenu-file-column)
(helm-substring real bookmark-bmenu-file-column)
- real))
- (loc (bookmark-location real)))
+ real)))
(setq helm-bookmark-show-location (not helm-bookmark-show-location))
(helm-update (if helm-bookmark-show-location
- (concat (regexp-quote trunc)
- " +"
- (regexp-quote
- (if (listp loc) (car loc) loc)))
- (regexp-quote real)))))
+ (regexp-quote trunc)
+ (regexp-quote real)))))
(defun helm-bookmark-toggle-filename ()
"Toggle bookmark location visibility."