From 9d58f081301c7ec696b83a949c65477525e20ff3 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Thu, 26 Nov 2009 23:39:32 +0000 Subject: [PATCH] * 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.) --- lisp/ChangeLog | 4 ++++ lisp/sha1.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a36645dc974..18ced5b6512 100644 --- 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 Misc coding convention cleanups. diff --git a/lisp/sha1.el b/lisp/sha1.el index 4aca53f196c..9fe327e514e 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)) -- 2.39.5