branch: elpa/helm
commit a4ac705b1c8597692d343e81b3fd573b50175cbd
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Ensure lynx style map is used in new HFF dummy source
---
helm-files.el | 13 +++++++++++--
helm-mode.el | 7 +++++++
2 files changed, 18 insertions(+), 2 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index dcc6fc47c5..d0d31ae818 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -723,11 +723,20 @@ will have no effect, use customize instead."
(define-key helm-find-files-map (kbd "<right>")
'helm-execute-persistent-action)
(define-key helm-find-files-map (kbd "<left>")
'helm-find-files-up-one-level)
(define-key helm-read-file-map (kbd "<right>")
'helm-execute-persistent-action)
- (define-key helm-read-file-map (kbd "<left>")
'helm-find-files-up-one-level))
+ (define-key helm-read-file-map (kbd "<left>")
'helm-find-files-up-one-level)
+ ;; Dummy map.
+ (define-key helm-find-files-dummy-map (kbd "<right>")
'helm-execute-persistent-action)
+ (define-key helm-find-files-dummy-map (kbd "<left>")
'helm-find-files-up-one-level)
+ (define-key helm-read-file-dummy-map (kbd "<right>")
'helm-execute-persistent-action)
+ (define-key helm-read-file-dummy-map (kbd "<left>")
'helm-find-files-up-one-level))
(define-key helm-find-files-map (kbd "<right>") nil)
(define-key helm-find-files-map (kbd "<left>") nil)
+ (define-key helm-find-files-dummy-map (kbd "<right>") nil)
+ (define-key helm-find-files-dummy-map (kbd "<left>") nil)
(define-key helm-read-file-map (kbd "<right>") nil)
- (define-key helm-read-file-map (kbd "<left>") nil))))
+ (define-key helm-read-file-map (kbd "<left>") nil)
+ (define-key helm-read-file-dummy-map (kbd "<right>") nil)
+ (define-key helm-read-file-dummy-map (kbd "<left>") nil))))
(defcustom helm-ff-DEL-up-one-level-maybe nil
"Use DEL to maybe go up one level when non nil.
diff --git a/helm-mode.el b/helm-mode.el
index fa1609e1be..ef6fbb9c16 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1891,6 +1891,12 @@ See documentation of `completing-read' and
`all-completions' for details."
;;; Generic read-file-name
;;
;;
+(defvar helm-read-file-dummy-map
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map helm-map)
+ (define-key map (kbd "C-l") 'helm-find-files-up-one-level)
+ map))
+
;;;###autoload
(cl-defun helm-read-file-name
(prompt
@@ -2011,6 +2017,7 @@ Keys description:
;; Non existing file or dir source.
(unless must-match
(helm-build-dummy-source "New file or dir"
+ :keymap 'helm-read-file-dummy-map
:filtered-candidate-transformer
(lambda (_candidates _source)
(unless (file-exists-p helm-pattern)
