summaryrefslogtreecommitdiff
path: root/lisp/whitespace.el
diff options
context:
space:
mode:
authorDeepak Goel <deego@gnufans.org>2007-12-06 17:56:42 +0000
committerDeepak Goel <deego@gnufans.org>2007-12-06 17:56:42 +0000
commit8c16bd8c3566df3b0cbbc28692a23a378604f423 (patch)
treed88150553f83a3c0a45400ca7595965f85486f66 /lisp/whitespace.el
parent864da779a612cc75366bee12ab5f6f2859231f18 (diff)
downloademacs-8c16bd8c3566df3b0cbbc28692a23a378604f423.tar.gz
Fix buggy calls to `error'.
Diffstat (limited to 'lisp/whitespace.el')
-rw-r--r--lisp/whitespace.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index f6c94534a00..896668fd569 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -789,8 +789,8 @@ This is meant to be added buffer-locally to `write-file-functions'."
(whitespace-cleanup-internal)
(setq werr (whitespace-buffer)))
(if (and whitespace-abort-on-error werr)
- (error (concat "Abort write due to whitespaces in "
- buffer-file-name))))
+ (error "Abort write due to whitespaces in %s"
+ buffer-file-name)))
nil)
(defun whitespace-unload-function ()