From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Fri, 27 Nov 2009 01:02:17 +0000 (+0000)
Subject: 2009-11-26  Kevin Ryde  <user42@zip.com.au>
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=dc141b4205459e04b0137eadb38aa2a737ed63ec;p=gnus

2009-11-26  Kevin Ryde  <user42@zip.com.au>

	* sha1.el (sha1-string-external): default-directory "/" in case
	otherwise non-existent.  process-connection-type pipe for touch of
	efficiency recommended by elisp manual.  (An aside in Bug#3911.)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 51d4b1c2e..27581287f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-11-26  Kevin Ryde  <user42@zip.com.au>
+
+	* sha1.el (sha1-string-external): default-directory "/" in case
+	otherwise non-existent.  process-connection-type pipe for touch of
+	efficiency recommended by elisp manual.  (An aside in Bug#3911.)
+
 2009-11-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* rfc2047.el (rfc2047-decode-region): Don't quote decoded words
diff --git a/lisp/sha1.el b/lisp/sha1.el
index 4aca53f19..9fe327e51 100644
--- a/lisp/sha1.el
+++ b/lisp/sha1.el
@@ -86,7 +86,9 @@ If this variable is set to nil, use internal function only."
   :group 'sha1)
 
 (defun sha1-string-external (string &optional binary)
-  (let (prog args digest)
+  (let ((default-directory "/") ;; in case otherwise non-existent
+        (process-connection-type nil) ;; pipe
+        prog args digest)
     (if (consp sha1-program)
 	(setq prog (car sha1-program)
 	      args (cdr sha1-program))