summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/check-declare.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2015-06-16 20:45:35 -0400
committerGlenn Morris <rgm@gnu.org>2015-06-16 20:45:35 -0400
commitb7d5033c39b82d8ae6cde701edcbf94f1575a622 (patch)
tree565fd38f9cccd79fce815e832ee0600fc4d77058 /lisp/emacs-lisp/check-declare.el
parentd3b779fa79f3570879b2df2effa683c3b4aaa96a (diff)
downloademacs-b7d5033c39b82d8ae6cde701edcbf94f1575a622.tar.gz
* lisp/emacs-lisp/check-declare.el (check-declare-warn):
Don't print filename twice (it's in the prefix now).
Diffstat (limited to 'lisp/emacs-lisp/check-declare.el')
-rw-r--r--lisp/emacs-lisp/check-declare.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el
index ecdb6d8983c..ea865f22f57 100644
--- a/lisp/emacs-lisp/check-declare.el
+++ b/lisp/emacs-lisp/check-declare.el
@@ -279,10 +279,8 @@ TYPE is a string giving the nature of the error. Warning is displayed in
entry))
(warning-fill-prefix " "))
(display-warning 'check-declare
- (format "%s said `%s' was defined in %s: %s"
- (file-name-nondirectory file) fn
- (file-name-nondirectory fnfile)
- type)
+ (format "said `%s' was defined in %s: %s"
+ fn (file-name-nondirectory fnfile) type)
nil check-declare-warning-buffer)))
(declare-function compilation-forget-errors "compile" ())