Commit e43cfb39 authored by Dave Love's avatar Dave Love
Browse files

(md5): Fix error call.

parent cade2e78
......@@ -70,8 +70,7 @@ MD5 is defined in RFC 1321."
(unless (eq 0 (call-process-region (or start (point-min))
(or end (point-max))
md5-program nil out-buffer))
(error "Running MD5 command %s failed"
(cons md5-program md5-program-args)))))
(error "Running `md5-program' failed"))))
;; The meaningful output is the first 32 characters.
;; Don't return the newline that follows them!
(buffer-substring 1 33))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment