diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2020-07-31 08:49:57 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2020-07-31 08:49:57 +0200 |
| commit | 0e77797ef5ce89663b02d9ab12ba25fa95b9074f (patch) | |
| tree | f755c6afbd376dd2abd24208afd38495be144a34 /helm-mode.el | |
| parent | a582e1b2fc1b1b359ccef1d8c55de0e58c683455 (diff) | |
New variable to handle default separator for crm (#2353)
Diffstat (limited to 'helm-mode.el')
| -rw-r--r-- | helm-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/helm-mode.el b/helm-mode.el index 62179fca..7544eb99 100644 --- a/helm-mode.el +++ b/helm-mode.el @@ -1854,6 +1854,8 @@ Can be used for `completion-in-region-function' by advicing it with an (advice-remove 'lisp--local-variables #'helm-mode--advice-lisp--local-variables))))) +(defvar helm-crm-default-separator "," + "Default separator for `completing-read-multiple'.") (defun helm-completion-in-region--insert-result (result start point end base-size) (cond ((stringp result) (choose-completion-string @@ -1876,7 +1878,7 @@ Can be used for `completion-in-region-function' by advicing it with an ;; it matches or default to "," if no match. (eq (length crm-separator) 1) crm-separator) - ","))) + helm-crm-default-separator))) ;; Try to find a default separator. If `crm-separator' is a ;; regexp use the string the regexp is matching. (save-excursion |