summaryrefslogtreecommitdiff
path: root/helm-regexp.el
diff options
context:
space:
mode:
authorThierry Volpiatto <thierry.volpiatto@gmail.com>2015-07-08 12:44:18 +0200
committerThierry Volpiatto <thierry.volpiatto@gmail.com>2015-07-08 12:44:18 +0200
commitf444feba94e0c29be2d7f784dc554985e7475b5c (patch)
tree7711a4fa578b6723aefb406309d8eab00c8f88c5 /helm-regexp.el
parent21ba445f0c0c6536e2deb51fe40a3a4b14258c0a (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.el12
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)