[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 48a0152a53 2/5: Ensure not being prompted for passwor
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 48a0152a53 2/5: Ensure not being prompted for password |
Date: |
Wed, 15 Jun 2022 09:05:07 -0400 (EDT) |
branch: elpa/helm
commit 48a0152a53ed8d98ff8938499faa12502f665a98
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Ensure not being prompted for password
each time we navigate to a directory.
Variable password-cache is non-nil by default but ensure user didn't modify
it.
---
helm-files.el | 7 +++++--
helm-mode.el | 4 ++++
2 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index 3282905572..d61ccce5e4 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -100,7 +100,7 @@
(defvar eshell-debug-command)
(defvar eshell-current-command)
(defvar tramp-archive-enabled)
-
+(defvar password-cache)
(defgroup helm-files nil
"Files applications and libraries for Helm."
@@ -5236,7 +5236,10 @@ Use it for non-interactive calls of `helm-find-files'."
(not (minibuffer-window-active-p (minibuffer-window)))))
(tap (thing-at-point 'filename))
(def (and tap (or (file-remote-p tap)
- (expand-file-name tap)))))
+ (expand-file-name tap))))
+ ;; Ensure not being prompted for password each time we
+ ;; navigate to a directory.
+ (password-cache t))
(helm-set-local-variable 'helm-follow-mode-persistent nil
'helm-drag-mouse-1-fn 'helm-ff-drag-mouse-1-fn)
(unless helm-source-find-files
diff --git a/helm-mode.el b/helm-mode.el
index 591bddca01..d685aa2cfb 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -28,6 +28,7 @@
(defvar completion-flex-nospace)
(defvar helm-completion--sorting-done)
(defvar helm-mode)
+(defvar password-cache)
;; No warnings in Emacs built --without-x
(declare-function x-file-dialog "xfns.c")
@@ -1368,6 +1369,9 @@ Keys description:
(helm-ff--RET-disabled noret)
(minibuffer-completion-predicate test)
(minibuffer-completing-file-name t)
+ ;; Ensure not being prompted for password each time we
+ ;; navigate to a directory.
+ (password-cache t)
(helm--completing-file-name t)
(helm-read-file-name-mode-line-string
(replace-regexp-in-string "helm-maybe-exit-minibuffer"