[elpa] externals/marginalia 4fe73f5724: marginalia--library-doc: Ensure that the fast Bourne shell is used (Fix #143)

[ELPA Syncer]

branch: externals/marginalia
commit 4fe73f5724d1e7e61b2e0abf4a530d8a2cdadcb8
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    marginalia--library-doc: Ensure that the fast Bourne shell is used (Fix 
#143)
---
 marginalia.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 5dbef987ff..01b0e3dd7e 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -992,11 +992,13 @@ These annotations are skipped for remote paths."
       ;; Extract documentation string. We cannot use `lm-summary' here,
       ;; since it decompresses the whole file, which is slower.
       (setq doc (or (ignore-errors
-                      (shell-command-to-string
-                       (format (if (string-suffix-p ".gz" file)
-                                   "gzip -c -q -d %s | head -n1"
-                                 "head -n1 %s")
-                               (shell-quote-argument file))))
+                      (let ((shell-file-name "sh")
+                            (shell-command-switch "-c"))
+                        (shell-command-to-string
+                         (format (if (string-suffix-p ".gz" file)
+                                     "gzip -c -q -d %s | head -n1"
+                                   "head -n1 %s")
+                                 (shell-quote-argument file)))))
                  ""))
       (cond
        ((string-match "\\`(define-package\\s-+\"\\([^\"]+\\)\"" doc)