diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-12 20:48:46 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-12 20:48:46 +0000 |
| commit | d0081058014b153500ad8dee2b0a1c0e3122cd6f (patch) | |
| tree | a3414d10e08e8e8296686139416fddb2b9c85950 /lisp/sha1.el | |
| parent | ed075cb4ea51a597169a5c0cab847abacc3e9739 (diff) | |
| download | emacs-d0081058014b153500ad8dee2b0a1c0e3122cd6f.tar.gz | |
(sha1-string-external): Use set-buffer-multibyte rather than
setting default-enable-multibyte-characters.
Diffstat (limited to 'lisp/sha1.el')
| -rw-r--r-- | lisp/sha1.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/sha1.el b/lisp/sha1.el index c70b99c10b0..de2f0636b7c 100644 --- a/lisp/sha1.el +++ b/lisp/sha1.el @@ -88,16 +88,17 @@ If this variable is set to nil, use internal function only." :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)))) |