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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/helm c384714819: New user var preventing error when follow


From: ELPA Syncer
Subject: [nongnu] elpa/helm c384714819: New user var preventing error when following on a directory (#2602)
Date: Wed, 24 May 2023 06:03:06 -0400 (EDT)

branch: elpa/helm
commit c384714819296a621162ac1477ee3c11528e555e
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    New user var preventing error when following on a directory (#2602)
---
 helm-files.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/helm-files.el b/helm-files.el
index e6365ed909..4c2b8daae0 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -855,6 +855,10 @@ present in this list."
                   helm-ff-wfnames)
                  (function :tag "Use Wdired package to edit filenames."
                   helm-marked-files-in-dired)))
+
+(defcustom helm-ff-ignore-following-on-directory nil
+  "In follow mode ignore silently directories when non nil."
+  :type 'boolean)
 
 ;;; Faces
 ;;
@@ -4640,7 +4644,9 @@ This affects directly file CANDIDATE."
 (defvar helm-ff-sound-file-extensions '("wav" "au"))
 
 (defun helm-ff--maybe-follow (candidate)
-  (let ((file  (file-regular-p candidate))
+  (let ((file  (if helm-ff-ignore-following-on-directory
+                   (file-exists-p candidate)
+                 (file-regular-p candidate)))
         (image (string-match-p (image-file-name-regexp) candidate))
         (ext   (file-name-extension candidate)))
     (and file



reply via email to

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