diff options
author | Karl Heuer <kwzh@gnu.org> | 1996-01-29 23:17:16 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1996-01-29 23:17:16 +0000 |
commit | 78cbe3a73ac3838b11668ab22d46b38a34f8be26 (patch) | |
tree | 2934689d4539791a34a45b4c46a8fd0235922abf | |
parent | 9ebd3c9519dbe5a0d0519506891ebf2f067e7eaf (diff) | |
download | emacs-78cbe3a73ac3838b11668ab22d46b38a34f8be26.tar.gz |
(mh-handle-process-error): Fix error format string.
-rw-r--r-- | lisp/mail/mh-utils.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el index 408a5452cab..1cba38253ac 100644 --- a/lisp/mail/mh-utils.el +++ b/lisp/mail/mh-utils.el @@ -26,7 +26,7 @@ ;;; Change Log: -;; $Id: mh-utils.el,v 1.7 1996/01/09 23:19:28 kwzh Exp erik $ +;; $Id: mh-utils.el,v 1.8 1996/01/14 07:34:30 erik Exp kwzh $ ;;; Code: @@ -893,23 +893,23 @@ Non-nil third argument means not to show the message." (cond ((eql status 0) ;success status) ((stringp status) ;kill string - (error (format "%s: %s" command status))) + (error "%s: %s" command status)) (t ;exit code (cond ((= (buffer-size) 0) ;program produced no error message - (error (format "%s: exit code %d" command status))) + (error "%s: exit code %d" command status)) (t ;; will error message fit on one line? (goto-line 2) (if (and (< (buffer-size) (screen-width)) (eobp)) - (error (buffer-substring 1 (progn (goto-char 1) + (error "%s" + (buffer-substring 1 (progn (goto-char 1) (end-of-line) (point)))) (display-buffer (current-buffer)) - (error (format - "%s failed with status %d. See error message in other window." - command status)))))))) + (error "%s failed with status %d. See error message in other window." + command status))))))) (defun mh-expand-file-name (filename &optional default) |