[Emacs-diffs] emacs/lisp sha1.el

[Kevin Ryde]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Kevin Ryde <kryde>      09/11/26 23:38:18

Modified files:
        lisp           : sha1.el 

Log message:
        * 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.)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/sha1.el?cvsroot=emacs&r1=1.6&r2=1.7

Patches:
Index: sha1.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/sha1.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- sha1.el     5 Jan 2009 03:19:44 -0000       1.6
+++ sha1.el     26 Nov 2009 23:38:18 -0000      1.7
@@ -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))