* 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 a36645dc97439fd70d11f435be4b5466fe7027f5..18ced5b6512f2605376f4be044cf94d4a23c35f2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,10 @@
        * log-view.el: Add "Keywords: tools", since its other keywords
        aren't in finder-known-keywords, and following vc.el.
 
+       * 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-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        Misc coding convention cleanups.

diff --git a/lisp/sha1.el b/lisp/sha1.el
index 4aca53f196cb615e0b4a24638aaa5caf50ca061a..9fe327e514e859041e656daf026db4026c779b85 100644 (file)
--- 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))