[nongnu] elpa/helm 93a5ebe549 1/3: Fix issue #1322 with default-process-coding-system in locate

[ELPA Syncer]

branch: elpa/helm
commit 93a5ebe54904b89c21a639f85c57b679cd4e8499
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix issue #1322 with default-process-coding-system in locate
---
 helm-locate.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/helm-locate.el b/helm-locate.el
index a38e6e1625..222b5e05a0 100644
--- a/helm-locate.el
+++ b/helm-locate.el
@@ -284,9 +284,23 @@ See also `helm-locate'."
                     'face 'helm-locate-finish))))
     (force-mode-line-update)))
 
+(defun helm-locate--default-process-coding-system ()
+  "Fix `default-process-coding-system' in locate for Windows systems."
+  ;; This is an attempt to fix issue #1322.
+  (if (and (eq system-type 'windows-nt)
+           (boundp 'w32-ansi-code-page))
+      (let ((code-page-eol
+             (intern (format "cp%s-%s" w32-ansi-code-page "dos"))))
+        (if (ignore-errors (check-coding-system code-page-eol))
+            (cons code-page-eol code-page-eol)
+          default-process-coding-system))
+    default-process-coding-system))
+
 (defun helm-locate-init ()
   "Initialize async locate process for `helm-source-locate'."
-  (let* ((locate-is-es (string-match "\\`es" helm-locate-command))
+  (let* ((default-process-coding-system
+          (helm-locate--default-process-coding-system))
+         (locate-is-es (string-match "\\`es" helm-locate-command))
          (real-locate (string-match "\\`locate" helm-locate-command))
          (case-sensitive-flag (if locate-is-es "-i" ""))
          (ignore-case-flag (if (or locate-is-es