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.

3 files changed, 10 insertions, 4 deletions

diff --git a/helm-grep.el b/helm-grep.el
index efa77971..a2134bd9 100644
--- a/helm-grep.el
+++ b/helm-grep.el
@@ -1267,6 +1267,7 @@ You can use safely \"--color\" (default)."
                    "Find file other window" 'helm-grep-other-window)))
   (helm :sources 'helm-source-grep-ag
         :keymap helm-grep-map
+        :truncate-lines helm-grep-truncate-lines
         :buffer (format "*helm %s*" (helm-grep--ag-command))))
 
 ;;; Git grep
diff --git a/helm-id-utils.el b/helm-id-utils.el
index 8a7bfb6b..15f6bc42 100644
--- a/helm-id-utils.el
+++ b/helm-id-utils.el
@@ -113,7 +113,7 @@ See <https://www.gnu.org/software/idutils/>."
                      :db-dir db)
           :buffer "*helm gid*"
           :keymap helm-grep-map
-          :truncate-lines t)))
+          :truncate-lines helm-grep-truncate-lines)))
 
 (provide 'helm-id-utils)
 
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)