[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 5ac9d06b85 2/3: Make helm--file-name-history-hide-del
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 5ac9d06b85 2/3: Make helm--file-name-history-hide-deleted public |
Date: |
Mon, 8 Aug 2022 03:58:38 -0400 (EDT) |
branch: elpa/helm
commit 5ac9d06b85de080b21f333b934590858e56fe930
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Make helm--file-name-history-hide-deleted public
Renamed to helm-file-name-history-hide-deleted.
---
helm-files.el | 14 +++++++++-----
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index 55a2eff8e5..1ee42661db 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -797,6 +797,12 @@ to nil to avoid error messages when using
`helm-find-files'."
"Delay in seconds between each image in slideshow."
:type 'integer)
+(defcustom helm-file-name-history-hide-deleted nil
+ "Hide deleted files in file-name-history when non nil.
+
+This can be toggled at any time from `helm-ff-file-name-history' with \
+\\<helm-file-name-history-map>\\[helm-file-name-history-show-or-hide-deleted]."
+ :type 'boolean)
;;; Faces
;;
@@ -6038,8 +6044,6 @@ list."
;;; File name history
;;
;;
-(defvar helm--file-name-history-hide-deleted nil)
-
(defun helm-files-save-file-name-history (&optional force)
"Save marked files to `file-name-history'."
(let* ((src (helm-get-current-source))
@@ -6078,8 +6082,8 @@ list."
(defun helm-file-name-history-show-or-hide-deleted ()
(interactive)
- (setq helm--file-name-history-hide-deleted
- (not helm--file-name-history-hide-deleted))
+ (setq helm-file-name-history-hide-deleted
+ (not helm-file-name-history-hide-deleted))
(helm-update))
(put 'helm-file-name-history-show-or-hide-deleted 'helm-only t)
@@ -6105,7 +6109,7 @@ list."
(concat (propertize c 'face 'helm-ff-file)
(make-string (1+ (- lgst (length c))) ? )
last-access)))
- (t (unless helm--file-name-history-hide-deleted
+ (t (unless helm-file-name-history-hide-deleted
(propertize c 'face 'helm-history-deleted))))
when disp
collect (cons (if helm-ff-icon-mode