Commit 9d58f081 authored by Kevin Ryde's avatar Kevin Ryde
Browse files

* 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.)
parent c44a4822
......@@ -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.
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment