[nongnu] elpa/helm f41131dd9d 3/7: Remove all helm-only property settings

[ELPA Syncer]

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

    Remove all helm-only property settings
    
    One more command build with helm-make-persistent-command-from-action:
    helm-ff-properties-persistent.
---
 helm-files.el | 55 +++----------------------------------------------------
 1 file changed, 3 insertions(+), 52 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index a894eb5662..1abdd58d54 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -1811,7 +1811,6 @@ prefix arg shell buffer doesn't exists, create it and 
switch to it."
 (helm-make-command-from-action helm-ff-run-touch-files
   "Used to interactively run touch file action from keyboard."
   'helm-ff-touch-files)
-(put 'helm-ff-run-touch-files 'helm-only t)
 
 (defun helm-ff-sort-by-size ()
   (interactive)
@@ -2170,7 +2169,6 @@ COUNT is used for incrementing new name if needed."
 (helm-make-command-from-action helm-ff-run-query-replace-fnames-on-marked
     "Run query-replace on filenames from HFF."
   'helm-ff-query-replace-fnames-on-marked)
-(put 'helm-ff-run-query-replace-fnames-on-marked 'helm-only t)
 
 (defun helm-ff-query-replace (_candidate)
   (let ((bufs (cl-loop for f in (helm-marked-candidates :with-wildcard t)
@@ -2180,7 +2178,6 @@ COUNT is used for incrementing new name if needed."
 (helm-make-command-from-action helm-ff-run-query-replace
     "Run query-replace from HFF."
   'helm-ff-query-replace)
-(put 'helm-ff-run-query-replace 'helm-only t)
 
 (defun helm-ff-query-replace-regexp (_candidate)
   (let ((bufs (cl-loop for f in (helm-marked-candidates :with-wildcard t)
@@ -2190,7 +2187,6 @@ COUNT is used for incrementing new name if needed."
 (helm-make-command-from-action helm-ff-run-query-replace-regexp
     "Run query-replace regexp from HFF."
   'helm-ff-query-replace-regexp)
-(put 'helm-ff-run-query-replace-regexp 'helm-only t)
 
 (defun helm-ff-toggle-auto-update ()
   (if helm-ff--deleting-char-backward
@@ -2305,82 +2301,66 @@ Called with a prefix arg open menu unconditionally."
 (helm-make-command-from-action helm-ff-run-grep
     "Run Grep action from `helm-source-find-files'."
   'helm-find-files-grep)
-(put 'helm-ff-run-grep 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-git-grep
     "Run git-grep action from `helm-source-find-files'."
   'helm-ff-git-grep)
-(put 'helm-ff-run-git-grep 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-grep-ag
     "Run grep AG action from `helm-source-find-files'."
   'helm-find-files-ag)
-(put 'helm-ff-run-grep-ag 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-pdfgrep
     "Run Pdfgrep action from `helm-source-find-files'."
   'helm-ff-pdfgrep)
-(put 'helm-ff-run-pdfgrep 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-zgrep
     "Run Grep action from `helm-source-find-files'."
   'helm-ff-zgrep)
-(put 'helm-ff-run-zgrep 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-copy-file
     "Run Copy file action from `helm-source-find-files'."
   'helm-find-files-copy)
-(put 'helm-ff-run-copy-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-rsync-file
     "Run Rsync file action from `helm-source-find-files'."
   'helm-find-files-rsync)
-(put 'helm-ff-run-rsync-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-rename-file
     "Run Rename file action from `helm-source-find-files'."
   'helm-find-files-rename)
-(put 'helm-ff-run-rename-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-byte-compile-file
     "Run Byte compile file action from `helm-source-find-files'."
   'helm-find-files-byte-compile)
-(put 'helm-ff-run-byte-compile-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-load-file
     "Run Load file action from `helm-source-find-files'."
   'helm-find-files-load-files)
-(put 'helm-ff-run-load-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-eshell-command-on-file
     "Run eshell command on file action from `helm-source-find-files'."
   'helm-find-files-eshell-command-on-file)
-(put 'helm-ff-run-eshell-command-on-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-ediff-file
   "Run Ediff file action from `helm-source-find-files'."
   'helm-find-files-ediff-files)
-(put 'helm-ff-run-ediff-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-ediff-merge-file
     "Run Ediff merge file action from `helm-source-find-files'."
   'helm-find-files-ediff-merge-files)
-(put 'helm-ff-run-ediff-merge-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-symlink-file
     "Run Symlink file action from `helm-source-find-files'."
   'helm-find-files-symlink)
-(put 'helm-ff-run-symlink-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-relsymlink-file
     "Run Symlink file action from `helm-source-find-files'."
   'helm-find-files-relsymlink)
-(put 'helm-ff-run-relsymlink-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-hardlink-file
     "Run Hardlink file action from `helm-source-find-files'."
   'helm-find-files-hardlink)
-(put 'helm-ff-run-hardlink-file 'helm-only t)
 
 (defun helm-ff-delete-files (candidate)
   "Delete files default action."
@@ -2389,38 +2369,31 @@ Called with a prefix arg open menu unconditionally."
 (helm-make-command-from-action helm-ff-run-delete-file
     "Run Delete file action from `helm-source-find-files'."
   'helm-ff-delete-files)
-(put 'helm-ff-run-delete-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-complete-fn-at-point
     "Run complete file name action from `helm-source-find-files'."
   'helm-insert-file-name-completion-at-point)
-(put 'helm-ff-run-complete-fn-at-point 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-switch-to-shell
     "Run switch to eshell action from `helm-source-find-files'."
   'helm-ff-switch-to-shell)
-(put 'helm-ff-run-switch-to-shell 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-switch-other-window
     "Run switch to other window action from `helm-source-find-files'.
 When a prefix arg is provided, split is done vertically."
   'helm-find-files-other-window)
-(put 'helm-ff-run-switch-other-window 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-switch-other-frame
     "Run switch to other frame action from `helm-source-find-files'."
   'find-file-other-frame)
-(put 'helm-ff-run-switch-other-frame 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-open-file-externally
     "Run open file externally command action from `helm-source-find-files'."
   'helm-open-file-externally)
-(put 'helm-ff-run-open-file-externally 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-open-file-with-default-tool
     "Run open file externally command action from `helm-source-find-files'."
   'helm-open-file-with-default-tool)
-(put 'helm-ff-run-open-file-with-default-tool 'helm-only t)
 
 (defun helm-ff-locate (candidate)
   "Locate action function for `helm-find-files'."
@@ -2442,7 +2415,6 @@ When a prefix arg is provided, split is done vertically."
 (helm-make-command-from-action helm-ff-run-locate
     "Run locate action from `helm-source-find-files'."
   'helm-ff-locate)
-(put 'helm-ff-run-locate 'helm-only t)
 
 (defun helm-files-insert-as-org-link (candidate)
   (insert (format "[[%s][]]" candidate))
@@ -2451,27 +2423,22 @@ When a prefix arg is provided, split is done 
vertically."
 (helm-make-command-from-action helm-ff-run-insert-org-link
     "Run insert org link from HFF."
   'helm-files-insert-as-org-link)
-(put 'helm-ff-run-insert-org-link 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-find-file-as-root
     "Run find file as root from HFF."
   'helm-find-file-as-root)
-(put 'helm-ff-run-find-file-as-root 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-find-alternate-file
     "Run `find-alternate-file' from HFF."
   'find-alternate-file)
-(put 'helm-ff-run-find-alternate-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-mail-attach-files
     "Run mail attach files command action from `helm-source-find-files'."
   'helm-ff-mail-attach-files)
-(put 'helm-ff-run-mail-attach-files 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-etags
     "Run Etags command action from `helm-source-find-files'."
   'helm-ff-etags-select)
-(put 'helm-ff-run-etags 'helm-only t)
 
 (defvar lpr-printer-switch)
 (defun helm-ff-print (_candidate)
@@ -2525,7 +2492,6 @@ Same as `dired-do-print' but for Helm."
 (helm-make-command-from-action helm-ff-run-print-file
     "Run Print file action from `helm-source-find-files'."
   'helm-ff-print)
-(put 'helm-ff-run-print-file 'helm-only t)
 
 (defun helm-ff-checksum (file)
   "Calculate the checksum of FILE.
@@ -2987,7 +2953,6 @@ With a prefix arg toggle dired buffer to wdired mode."
 (helm-make-command-from-action helm-ff-run-marked-files-in-dired
     "Execute `helm-marked-files-in-dired' interactively."
   'helm-marked-files-in-dired)
-(put 'helm-ff-run-marked-files-in-dired 'helm-only t)
 
 (defun helm-ff--create-tramp-name (fname)
   "Build filename from `helm-pattern' like /su:: or /sudo::."
@@ -3711,18 +3676,13 @@ to avoid an unnecessary call to `file-truename'."
           (message dired-line) (sit-for 5)))
     (message "Permission denied, file not readable")))
 
-(defun helm-ff-properties-persistent ()
-  "Show properties without quitting helm."
-  (interactive)
-  (with-helm-alive-p
-    (helm-set-attr 'properties-action '(helm-ff-properties . never-split))
-    (helm-execute-persistent-action 'properties-action)))
-(put 'helm-ff-properties-persistent 'helm-only t)
+(helm-make-persistent-command-from-action helm-ff-properties-persistent
+    "Show properties without quitting helm."
+  'properties-action 'helm-ff-properties)
 
 (helm-make-persistent-command-from-action helm-ff-persistent-delete
     "Delete current candidate without quitting."
     'quick-delete 'helm-ff-quick-delete)
-(put 'helm-ff-persistent-delete 'helm-only t)
 
 (defun helm-ff-dot-file-p (file)
   "Check if FILE is `.' or `..'."
@@ -3765,7 +3725,6 @@ in `helm-find-files-persistent-action-if'."
 (helm-make-persistent-command-from-action helm-ff-run-kill-buffer-persistent
     "Execute `helm-ff-kill-buffer-fname' without quitting."
   'kill-buffer-fname 'helm-ff-kill-buffer-fname)
-(put 'helm-ff-run-kill-buffer-persistent 'helm-only t)
 
 ;; Preview with external tool
 (defun helm-ff-persistent-open-file-externally (file)
@@ -3778,7 +3737,6 @@ in `helm-find-files-persistent-action-if'."
 (helm-make-persistent-command-from-action helm-ff-run-preview-file-externally
     "Run open file externally without quitting helm."
   'open-file-externally 'helm-ff-persistent-open-file-externally)
-(put 'helm-ff-run-preview-file-externally 'helm-only t)
 
 (defun helm-ff-prefix-filename (fname &optional file-or-symlinkp new-file)
   "Add display property to FNAME.
@@ -6031,7 +5989,6 @@ be directories."
 (helm-make-command-from-action helm-ff-run-mcp
     "Copy the car of marked candidates to the remaining marked candidates."
   'helm-ff-mcp)
-
 ;;; File name history
 ;;
 ;;
@@ -6115,7 +6072,6 @@ be directories."
 (helm-make-command-from-action helm-ff-file-name-history-run-ff
   "Switch back to current HFF session with selection as preselect."
   'helm-ff-file-name-history-ff)
-(put 'helm-ff-file-name-history-run-ff 'helm-only t)
 
 (defun helm-ff-file-name-history-delete-item (_candidate)
   (let ((files (helm-marked-candidates)))
@@ -6238,7 +6194,6 @@ Use FD as backend."
 (helm-make-command-from-action helm-browse-project-run-ag
   "Run `helm-grep' AG from `helm-browse-project'."
   'helm-browse-project-ag)
-(put 'helm-browse-project-run-ag 'helm-only t)
 
 (defclass helm-browse-project-override-inheritor (helm-type-file) ())
 
@@ -6369,7 +6324,6 @@ See `helm-browse-project'."
 (helm-make-command-from-action helm-ff-run-browse-project
     "Run browse project."
   'helm-ff-browse-project)
-(put 'helm-ff-run-browse-project 'helm-only t)
 
 ;;; Actions calling helm and main interactive functions.
 ;;
@@ -6381,7 +6335,6 @@ See `helm-browse-project'."
 (helm-make-command-from-action helm-ff-run-gid
     "Run gid from HFF."
   'helm-ff-gid)
-(put 'helm-ff-run-gid 'helm-only t)
 
 ;; helm-find bindings for helm-find-files.
 (defun helm-ff-find-sh-command (_candidate)
@@ -6392,7 +6345,6 @@ See `helm-browse-project'."
 (helm-make-command-from-action helm-ff-run-find-sh-command
     "Run find shell command action with key from `helm-find-files'."
   'helm-ff-find-sh-command)
-(put 'helm-ff-run-find-sh-command 'helm-only t)
 
 ;; helm-hd bindings for hff
 (defun helm-ff-fd (_candidate)
@@ -6403,7 +6355,6 @@ See `helm-browse-project'."
 (helm-make-command-from-action helm-ff-run-fd
     "Run fd shell command action with key from `helm-find-files'."
   'helm-ff-fd)
-(put 'helm-ff-run-fd 'helm-only t)
 
 ;;;###autoload
 (defun helm-find-files (arg)