* helm-buffers.el (helm-multi-occur-as-action): Force searching in cu…

…rrent buffer with a prefix arg.

* helm-regexp.el (helm-multi-occur): same.

helm-buffers.el

@@ -482,7 +482,10 @@ See `helm-ediff-marked-buffers'."
 (defun helm-multi-occur-as-action (_candidate)
   "Multi occur action for `helm-c-source-buffers-list'.
 Can be used by any source that list buffers."
-  (let ((buffers (helm-marked-candidates))
+  (let ((helm-moccur-always-search-in-current
+         (or helm-moccur-always-search-in-current
+             helm-current-prefix-arg))
+        (buffers (helm-marked-candidates))
         (input (loop for i in (split-string helm-pattern " " t)
                      thereis (and (string-match "\\`@\\(.*\\)" i)
                                   (match-string 1 i)))))

helm-help.el

@@ -166,8 +166,8 @@ This list is customizable, see `helm-buffers-favorite-modes'.
 
 \nSpecific commands for `helm-buffers-list':
 \\<helm-c-buffer-map>
-\\[helm-buffer-run-zgrep]\t\t->Grep Buffer(s) works as zgrep too. (C-u grep all buffers but non--file buffers).
-\\[helm-buffers-run-multi-occur]\t\t->Multi Occur buffer or marked buffers.
+\\[helm-buffer-run-zgrep]\t\t->Grep Buffer(s) works as zgrep too (C-u grep all buffers but non--file buffers).
+\\[helm-buffers-run-multi-occur]\t\t->Multi Occur buffer or marked buffers. (C-u force searching current-buffer).
 \\[helm-buffer-switch-other-window]\t\t->Switch other window.
 \\[helm-buffer-switch-other-frame]\t\t->Switch other frame.
 \\[helm-buffer-run-query-replace-regexp]\t\t->Query replace regexp in marked buffers.

helm-regexp.el

@@ -387,11 +387,19 @@ the center of window, otherwise at the top of window.")
 (defun helm-multi-occur (buffers)
   "Preconfigured helm for multi occur.
 
-  BUFFERS is a list of buffers to search through."
+  BUFFERS is a list of buffers to search through.
+With a prefix arg, force searching in current buffer
+even if `helm-moccur-always-search-in-current' is nil.
+The prefix arg can be set before calling `helm-multi-occur'
+or during the buffer selection."
   (interactive (list (helm-comp-read
                       "Buffers: " (helm-c-buffer-list)
                       :marked-candidates t)))
-  (helm-multi-occur-1 buffers))
+  (let ((helm-moccur-always-search-in-current
+         (or helm-moccur-always-search-in-current
+             (or current-prefix-arg
+                 helm-current-prefix-arg))))
+    (helm-multi-occur-1 buffers)))
 
 ;;;###autoload
 (defun helm-browse-code ()