diff options
| author | Kevin Ryde <user42@zip.com.au> | 2009-11-26 23:39:32 +0000 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2009-11-26 23:39:32 +0000 |
| commit | 9d58f081301c7ec696b83a949c65477525e20ff3 (patch) | |
| tree | 95196f1f0f36df09064070db9ed37cfd6a1231d8 | |
| parent | c44a48223eb59f6ef3bdfd35c5bdfbb75107ce2d (diff) | |
| download | emacs-9d58f081301c7ec696b83a949c65477525e20ff3.tar.gz | |
* 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.)
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/sha1.el | 4 |
2 files changed, 7 insertions, 1 deletions
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 <monnier@iro.umontreal.ca> 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)) |