[Emacs-diffs] Changes to emacs/lisp/sha1.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/03/12 20:48:49

Index: sha1.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/sha1.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- sha1.el     8 Jan 2008 20:45:04 -0000       1.2
+++ sha1.el     12 Mar 2008 20:48:46 -0000      1.3
@@ -88,16 +88,17 @@
   :group 'sha1)
 
 (defun sha1-string-external (string &optional binary)
-  (let (prog args digest default-enable-multibyte-characters)
+  (let (prog args digest)
     (if (consp sha1-program)
        (setq prog (car sha1-program)
              args (cdr sha1-program))
       (setq prog sha1-program
            args nil))
     (with-temp-buffer
+      (set-buffer-multibyte nil)
       (insert string)
       (apply (function call-process-region)
-            (point-min)(point-max)
+            (point-min) (point-max)
             prog t t nil args)
       ;; SHA1 is 40 bytes long in hexadecimal form.
       (setq digest (buffer-substring (point-min)(+ (point-min) 40))))