emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]