[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
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/helm c384714819: New user var preventing error when following on a directory (#2602),
ELPA Syncer <=