diff options
-rw-r--r-- | helm-files.el | 12 | ||||
-rw-r--r-- | helm-locate.el | 2 | ||||
-rw-r--r-- | helm-types.el | 5 |
3 files changed, 7 insertions, 12 deletions
diff --git a/helm-files.el b/helm-files.el index 22bc8ad9..d2e74df1 100644 --- a/helm-files.el +++ b/helm-files.el @@ -2854,9 +2854,7 @@ Else return ACTIONS unmodified." (defvar file-cache-alist) (defclass helm-file-cache (helm-source-in-buffer helm-type-file) - ((init :initform (lambda () (require 'filecache))) - (keymap :initform helm-generic-files-map) - (help-message :initform helm-generic-file-help-message))) + ((init :initform (lambda () (require 'filecache))))) (defun helm-file-cache-get-candidates () (cl-loop for item in file-cache-alist append @@ -3001,9 +2999,7 @@ Don't use it in your own code unless you know what you are doing.") (if (or helm-ff-transformer-show-only-basename helm-recentf--basename-flag) (helm-basename candidate) candidate))) - (migemo :initform t) - (keymap :initform helm-generic-files-map) - (help-message :initform helm-generic-file-help-message))) + (migemo :initform t))) (defmethod helm--setup-source :after ((source helm-recentf-source)) (set-slot-value @@ -3215,9 +3211,7 @@ Colorize only symlinks, directories and files." helm-recentf--basename-flag) (helm-basename candidate) candidate))) (fuzzy-match :initform t) - (migemo :initform t) - (keymap :initform helm-generic-files-map) - (help-message :initform helm-generic-file-help-message))) + (migemo :initform t))) (defvar helm-source-files-in-current-dir (helm-make-source "Files from Current Directory" diff --git a/helm-locate.el b/helm-locate.el index be8aff0f..05dac7f1 100644 --- a/helm-locate.el +++ b/helm-locate.el @@ -305,9 +305,7 @@ See also `helm-locate'." (candidates-process :initform 'helm-locate-init) (requires-pattern :initform 3) (history :initform 'helm-file-name-history) - (keymap :initform helm-generic-files-map) (persistent-action :initform 'helm-ff-kill-or-find-buffer-fname) - (help-message :initform 'helm-generic-file-help-message) (candidate-number-limit :initform 9999))) (defvar helm-source-locate diff --git a/helm-types.el b/helm-types.el index d622d3fd..9c5755c6 100644 --- a/helm-types.el +++ b/helm-types.el @@ -78,7 +78,10 @@ helm-transform-file-cache)) (set-slot-value source 'candidate-transformer '(helm-skip-boring-files helm-highlight-files - helm-w32-pathname-transformer))) + helm-w32-pathname-transformer)) + (set-slot-value source 'help-message 'helm-generic-file-help-message) + (set-slot-value source 'keymap helm-generic-files-map)) + ;; Bookmarks (defclass helm-type-bookmark (helm-source) () |