Mercurial > emacs
changeset 106276:78a8cf7b5387
* 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.)
| author | Kevin Ryde <user42@zip.com.au> |
|---|---|
| date | Thu, 26 Nov 2009 23:38:18 +0000 |
| parents | bea65f80986c |
| children | da201d492db3 |
| files | lisp/sha1.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))