diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-07-08 12:44:18 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-07-08 12:44:18 +0200 |
commit | f444feba94e0c29be2d7f784dc554985e7475b5c (patch) | |
tree | 7711a4fa578b6723aefb406309d8eab00c8f88c5 /helm-regexp.el | |
parent | 21ba445f0c0c6536e2deb51fe40a3a4b14258c0a (diff) |
Allow customizing moccur actions.
* helm-regexp.el (helm-source-multi-occur-actions): New user var.
Diffstat (limited to 'helm-regexp.el')
-rw-r--r-- | helm-regexp.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/helm-regexp.el b/helm-regexp.el index 5e6d8af5..9751afab 100644 --- a/helm-regexp.el +++ b/helm-regexp.el @@ -50,6 +50,14 @@ Any other non--nil value update after confirmation." (const :tag "Don't update but signal buffer needs update" nil) (const :tag "Update after confirmation" t))) +(defcustom helm-source-multi-occur-actions + '(("Go to Line" . helm-moccur-goto-line) + ("Goto line other window" . helm-moccur-goto-line-ow) + ("Goto line new frame" . helm-moccur-goto-line-of)) + "Actions for helm-occur and helm-moccur." + :group 'helm-regexp + :type '(alist :key-type string :value-type function)) + (defface helm-moccur-buffer '((t (:foreground "DarkTurquoise" :underline t))) @@ -293,9 +301,7 @@ Same as `helm-moccur-goto-line' but go in new frame." (get-line :initform helm-moccur-get-line) (nohighlight :initform t) (migemo :initform t) - (action :initform '(("Go to Line" . helm-moccur-goto-line) - ("Goto line other window" . helm-moccur-goto-line-ow) - ("Goto line new frame" . helm-moccur-goto-line-of))) + (action :initform 'helm-source-multi-occur-actions) (persistent-action :initform 'helm-moccur-persistent-action) (persistent-help :initform "Go to line") (resume :initform 'helm-moccur-resume-fn) |