branch: externals/marginalia
commit 4fe73f5724d1e7e61b2e0abf4a530d8a2cdadcb8
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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)
