Mercurial > emacs
changeset 92779:e9bef8bf2940
(sha1-string-external): Use set-buffer-multibyte rather than
setting default-enable-multibyte-characters.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 12 Mar 2008 20:48:46 +0000 |
| parents | 054fe9aaf3e3 |
| children | 23eda9299411 |
| files | lisp/ChangeLog lisp/sha1.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Mar 12 19:56:09 2008 +0000 +++ b/lisp/ChangeLog Wed Mar 12 20:48:46 2008 +0000 @@ -1,5 +1,8 @@ 2008-03-12 Stefan Monnier <monnier@iro.umontreal.ca> + * sha1.el (sha1-string-external): Use set-buffer-multibyte rather than + setting default-enable-multibyte-characters. + * emulation/viper-util.el (viper-file-remote-p): Remove, unused. * comint.el: Fix up indentation and comment style. Remove `function'.
--- a/lisp/sha1.el Wed Mar 12 19:56:09 2008 +0000 +++ b/lisp/sha1.el Wed Mar 12 20:48:46 2008 +0000 @@ -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))))