branch: elpa/helm
commit c71be6c5b186d8153cdc7b8526c980ed8f3ba533
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Bind missing keys to helm-find-files-dummy-map
---
helm-files.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index f95c347131..9186491c85 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -271,9 +271,15 @@ Should not be used among other sources.")
(defvar helm-find-files-dummy-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
- (define-key map (kbd "M-T") 'helm-ff-run-touch-files)
+ (define-key map (kbd "M-T") 'helm-ff-run-touch-files)
(define-key map (kbd "C-c r") 'helm-ff-run-find-file-as-root)
- (define-key map (kbd "C-l") 'helm-find-files-up-one-level)
+ (define-key map (kbd "C-l") 'helm-find-files-up-one-level)
+ (define-key map (kbd "C-_") 'helm-ff-undo)
+ (define-key map (kbd "C-r") 'helm-find-files-down-last-level)
+ (helm-define-key-with-subkeys map (kbd "DEL") ?\d
'helm-ff-delete-char-backward
+ '((C-backspace .
helm-ff-run-toggle-auto-update)
+ ([C-c DEL] .
helm-ff-run-toggle-auto-update))
+ nil 'helm-ff-delete-char-backward--exit-fn)
map)
"The map used for `helm-find-files-dummy-source'.
It is the source handling new file or directory in `helm-find-files'.")
