mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

* sha1.el (sha1-string-external): default-directory "/" in case

Browse Source 
otherwise non-existent.  process-connection-type pipe for touch of
efficiency recommended by elisp manual.  (An aside in Bug#3911.)
This commit is contained in:
Kevin Ryde 2009-11-26 23:39:32 +00:00
parent c44a48223e
commit 9d58f08130
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

4
lisp/sha1.el
View File

@ -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))