# HG changeset patch
# User Kevin Ryde <user42@zip.com.au>
# Date 1259278698 0
# Node ID 78a8cf7b53877823528e6e28b78239f8437ce39e
# Parent  bea65f80986cb6ff767b465c61b538297c4878ca
* 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 -r bea65f80986c -r 78a8cf7b5387 lisp/sha1.el
--- a/lisp/sha1.el	Thu Nov 26 23:19:53 2009 +0000
+++ b/lisp/sha1.el	Thu Nov 26 23:38:18 2009 +0000
@@ -86,7 +86,9 @@
   :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))