Allow customization of truncate-lines in several places.

* helm-grep.el (helm-grep-ag-1):                Do it.
* helm-id-utils.el (helm-gid):                  Do it.
* helm-regexp.el (helm-moccur-truncate-lines):  Do it.
New user var.
(helm-multi-occur-1):       Use it.
(helm-occur):               Use it.
(helm-occur-from-isearch):  Use it.

1 files changed, 8 insertions, 3 deletions

diff --git a/helm-regexp.el b/helm-regexp.el
index 861aace4..e8a7f2d9 100644
--- a/helm-regexp.el
+++ b/helm-regexp.el
@@ -61,6 +61,11 @@ Any other non--nil value update after confirmation."
   :group 'helm-regexp
   :type '(alist :key-type string :value-type function))
 
+(defcustom helm-moccur-truncate-lines t
+  "When nil the (m)occur line that appears will not be truncated."
+  :group 'helm-regexp
+  :type 'boolean)
+
 
 (defface helm-moccur-buffer
     '((t (:foreground "DarkTurquoise" :underline t)))
@@ -402,7 +407,7 @@ Same as `helm-moccur-goto-line' but go in new frame."
         :history 'helm-occur-history
         :keymap helm-moccur-map
         :input input
-        :truncate-lines t))
+        :truncate-lines helm-moccur-truncate-lines))
 
 (defun helm-moccur-run-save-buffer ()
   "Run moccur save results action from `helm-moccur'."
@@ -572,7 +577,7 @@ Special commands:
         :preselect (and (memq 'helm-source-occur helm-sources-using-default-as-input)
                         (format "%s:%d:" (regexp-quote (buffer-name))
                                 (line-number-at-pos (point))))
-        :truncate-lines t))
+        :truncate-lines helm-moccur-truncate-lines))
 
 ;;;###autoload
 (defun helm-occur-from-isearch ()
@@ -594,7 +599,7 @@ Special commands:
           :buffer "*helm occur*"
           :history 'helm-occur-history
           :input input
-          :truncate-lines t)))
+          :truncate-lines helm-moccur-truncate-lines)))
 
 ;;;###autoload
 (defun helm-multi-occur-from-isearch (&optional _arg)