diff options
| -rw-r--r-- | lisp/md5.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/md5.el b/lisp/md5.el index 87309797cee..645bbc92826 100644 --- a/lisp/md5.el +++ b/lisp/md5.el | |||
| @@ -70,8 +70,7 @@ MD5 is defined in RFC 1321." | |||
| 70 | (unless (eq 0 (call-process-region (or start (point-min)) | 70 | (unless (eq 0 (call-process-region (or start (point-min)) |
| 71 | (or end (point-max)) | 71 | (or end (point-max)) |
| 72 | md5-program nil out-buffer)) | 72 | md5-program nil out-buffer)) |
| 73 | (error "Running MD5 command %s failed" | 73 | (error "Running `md5-program' failed")))) |
| 74 | (cons md5-program md5-program-args))))) | ||
| 75 | ;; The meaningful output is the first 32 characters. | 74 | ;; The meaningful output is the first 32 characters. |
| 76 | ;; Don't return the newline that follows them! | 75 | ;; Don't return the newline that follows them! |
| 77 | (buffer-substring 1 33)))) | 76 | (buffer-substring 1 33)))) |