(require 'mylisp-helm-add-actions) (defun file-do-stat (filename) (interactive "FStat File: ") (shell-command (format "stat %s" (shell-quote-argument filename)) "*Stat*")) ;;; helm-files.elロード前に設定を行う必要がある (setq helm-user-actions-type-file '(("Stat" . file-do-stat))) ;;; helm-generic-files-mapを変更するためにhelm-files.el ;;; (実際はhelm-locate.el)をロードする (require 'helm-files) (helm-define-action-key helm-generic-files-map (kbd "C-c C-s") 'file-do-stat)