Skip to content
This repository
Browse code

Add help for moccur.

  • Loading branch information...
commit b3194af9f3617ad89f620ba4e7755bb0d7c45fba 1 parent 9f15d07
Thierry Volpiatto authored
22  helm-config.el
@@ -1176,11 +1176,12 @@ Preconfigured helm for pdfgrep.
1176 1176
 
1177 1177
 ;;;***
1178 1178
 
1179  
-;;;### (autoloads (helm-describe-helm-attribute helm-buffers-ido-virtual-help
1180  
-;;;;;;  helm-esh-help helm-c-bookmark-help helm-c-ucs-help helm-etags-help
1181  
-;;;;;;  helm-pdfgrep-help helm-grep-help helm-generic-file-help helm-read-file-name-help
1182  
-;;;;;;  helm-ff-help helm-c-buffer-help helm-help) "helm-help" "helm-help.el"
1183  
-;;;;;;  (20509 62549 796231 595000))
  1179
+;;;### (autoloads (helm-describe-helm-attribute helm-moccur-help
  1180
+;;;;;;  helm-buffers-ido-virtual-help helm-esh-help helm-c-bookmark-help
  1181
+;;;;;;  helm-c-ucs-help helm-etags-help helm-pdfgrep-help helm-grep-help
  1182
+;;;;;;  helm-generic-file-help helm-read-file-name-help helm-ff-help
  1183
+;;;;;;  helm-c-buffer-help helm-help) "helm-help" "helm-help.el"
  1184
+;;;;;;  (20525 60395 95335 217000))
1184 1185
 ;;; Generated autoloads from helm-help.el
1185 1186
 
1186 1187
 (defvar helm-mode-line-string "\\<helm-map>\\[helm-help]:Help \\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "\
@@ -1250,6 +1251,11 @@ Help command for ido virtual buffers.
1250 1251
 
1251 1252
 \(fn)" t nil)
1252 1253
 
  1254
+(autoload 'helm-moccur-help "helm-help" "\
  1255
+
  1256
+
  1257
+\(fn)" t nil)
  1258
+
1253 1259
 (defvar helm-buffer-mode-line-string '("Buffer(s)" "\\<helm-c-buffer-map>\\[helm-c-buffer-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "String displayed in mode-line in `helm-c-source-buffers-list'"))
1254 1260
 
1255 1261
 (defvar helm-buffers-ido-virtual-mode-line-string '("Killed Buffer(s)" "\\<helm-buffers-ido-virtual-map>\\[helm-buffers-ido-virtual-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct" "String displayed in mode-line in `helm-c-source-buffers-list'"))
@@ -1280,6 +1286,8 @@ String displayed in mode-line in `helm-c-source-buffers-list'")
1280 1286
 
1281 1287
 (defvar helm-occur-mode-line "\\<helm-map>\\[helm-help]:Help \\<helm-occur-map>\\[helm-occur-run-query-replace-regexp]:Query replace regexp \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct")
1282 1288
 
  1289
+(defvar helm-moccur-mode-line "\\<helm-c-moccur-map>\\[helm-moccur-help]:Help \\<helm-map>\\[helm-select-action]:Act \\[helm-exit-minibuffer]/\\[helm-select-2nd-action-or-end-of-line]/\\[helm-select-3rd-action]:NthAct")
  1290
+
1283 1291
 (autoload 'helm-describe-helm-attribute "helm-help" "\
1284 1292
 Display the full documentation of HELM-ATTRIBUTE.
1285 1293
 HELM-ATTRIBUTE should be a symbol.
@@ -1559,7 +1567,7 @@ Preconfigured helm to show org headlines.
1559 1567
 ;;;***
1560 1568
 
1561 1569
 ;;;### (autoloads (helm-browse-code helm-multi-occur helm-occur helm-regexp)
1562  
-;;;;;;  "helm-regexp" "helm-regexp.el" (20525 53336 356333 25000))
  1570
+;;;;;;  "helm-regexp" "helm-regexp.el" (20525 59564 699217 616000))
1563 1571
 ;;; Generated autoloads from helm-regexp.el
1564 1572
 
1565 1573
 (autoload 'helm-regexp "helm-regexp" "\
@@ -1758,7 +1766,7 @@ http://www.emacswiki.org/emacs/download/yaoddmuse.el
1758 1766
 ;;;***
1759 1767
 
1760 1768
 ;;;### (autoloads nil nil ("helm-pkg.el" "helm-plugin.el") (20525
1761  
-;;;;;;  54703 174093 936000))
  1769
+;;;;;;  60696 955597 892000))
1762 1770
 
1763 1771
 ;;;***
1764 1772
 
32  helm-help.el
@@ -478,6 +478,28 @@ is called once for each file like this:
478 478
   (let ((helm-help-message helm-buffers-ido-virtual-help-message))
479 479
     (helm-help)))
480 480
 
  481
+;;; Moccur help
  482
+;;
  483
+;;
  484
+(defvar helm-moccur-help-message
  485
+  "== Helm Moccur Map ==\
  486
+\nHelm Moccur tips:
  487
+
  488
+\nSpecific commands for Helm Moccur:
  489
+\\<helm-c-moccur-map>
  490
+\\[helm-c-goto-next-file]\t->Next Buffer.
  491
+\\[helm-c-goto-precedent-file]\t\t->Precedent Buffer.
  492
+\\[helm-yank-text-at-point]\t\t->Yank Text at point in minibuffer.
  493
+\\[helm-moccur-help]\t\t->Show this help.
  494
+\n== Helm Map ==
  495
+\\{helm-map}")
  496
+
  497
+;;;###autoload
  498
+(defun helm-moccur-help ()
  499
+  (interactive)
  500
+  (let ((helm-help-message helm-moccur-help-message))
  501
+    (helm-help)))
  502
+
481 503
 
482 504
 ;;; Mode line strings
483 505
 ;;
@@ -607,6 +629,16 @@ is called once for each file like this:
607 629
 \\[helm-select-2nd-action-or-end-of-line]/\
608 630
 \\[helm-select-3rd-action]:NthAct")
609 631
 
  632
+;;;###autoload
  633
+(defvar helm-moccur-mode-line "\
  634
+\\<helm-c-moccur-map>\
  635
+\\[helm-moccur-help]:Help \
  636
+\\<helm-map>\
  637
+\\[helm-select-action]:Act \
  638
+\\[helm-exit-minibuffer]/\
  639
+\\[helm-select-2nd-action-or-end-of-line]/\
  640
+\\[helm-select-3rd-action]:NthAct")
  641
+
610 642
 
611 643
 
612 644
 ;;; Attribute Documentation
3  helm-regexp.el
@@ -68,6 +68,7 @@ to a specific `major-mode'."
68 68
     (define-key map (kbd "M-<down>") 'helm-c-goto-next-file)
69 69
     (define-key map (kbd "M-<up>")   'helm-c-goto-precedent-file)
70 70
     (define-key map (kbd "C-w")      'helm-yank-text-at-point)
  71
+    (define-key map (kbd "C-c ?")    'helm-moccur-help)
71 72
     (delq nil map))
72 73
   "Keymap used in Moccur source.")
73 74
 
@@ -256,7 +257,7 @@ arg METHOD can be one of buffer, buffer-other-window, buffer-other-frame."
256 257
     (action . (("Go to Line" . helm-m-occur-goto-line)))
257 258
     (recenter)
258 259
     (candidate-number-limit . 9999)
259  
-    (mode-line . helm-occur-mode-line)
  260
+    (mode-line . helm-moccur-mode-line)
260 261
     (keymap . ,helm-c-moccur-map)
261 262
     (requires-pattern . 3))
262 263
   "Helm source for multi occur.")

0 notes on commit b3194af

Please sign in to comment.
Something went wrong with that request. Please try again.