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

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

[nongnu] elpa/helm 4e841d9c1c 11/13: Remove helm-read-file-dummy-map


From: ELPA Syncer
Subject: [nongnu] elpa/helm 4e841d9c1c 11/13: Remove helm-read-file-dummy-map
Date: Sat, 18 May 2024 13:00:21 -0400 (EDT)

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

    Remove helm-read-file-dummy-map
---
 helm-files.el | 19 ++-----------------
 helm-mode.el  |  2 +-
 2 files changed, 3 insertions(+), 18 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 2ad17d4ddf..f95c347131 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -305,12 +305,6 @@ It is the source handling new file or directory in 
`helm-find-files'.")
     map)
   "Keymap for `helm-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)
-  "Keymap for `helm-read-file-name' dummy source.")
 
 ;;; User variables
 ;;
@@ -740,20 +734,11 @@ 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)
-               ;; 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-read-file-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-dummy-map (kbd "<right>") nil)
-           (define-key helm-read-file-dummy-map (kbd "<left>")  nil))))
+           (define-key helm-read-file-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 047ee3cf3b..9ea79dbb1d 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -2011,7 +2011,7 @@ Keys description:
            ;; Non existing file or dir source.
            (unless (eq must-match t)
              (helm-build-dummy-source "New file or dir"
-               :keymap 'helm-read-file-dummy-map
+               :keymap 'helm-read-file-map
                :must-match must-match
                :filtered-candidate-transformer
                (lambda (_candidates _source)



reply via email to

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