aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2015-06-16 20:45:35 -0400
committerGlenn Morris2015-06-16 20:45:35 -0400
commitb7d5033c39b82d8ae6cde701edcbf94f1575a622 (patch)
tree565fd38f9cccd79fce815e832ee0600fc4d77058
parentd3b779fa79f3570879b2df2effa683c3b4aaa96a (diff)
downloademacs-b7d5033c39b82d8ae6cde701edcbf94f1575a622.tar.gz
emacs-b7d5033c39b82d8ae6cde701edcbf94f1575a622.zip
* lisp/emacs-lisp/check-declare.el (check-declare-warn):
Don't print filename twice (it's in the prefix now).
-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
279 entry)) 279 entry))
280 (warning-fill-prefix " ")) 280 (warning-fill-prefix " "))
281 (display-warning 'check-declare 281 (display-warning 'check-declare
282 (format "%s said `%s' was defined in %s: %s" 282 (format "said `%s' was defined in %s: %s"
283 (file-name-nondirectory file) fn 283 fn (file-name-nondirectory fnfile) type)
284 (file-name-nondirectory fnfile)
285 type)
286 nil check-declare-warning-buffer))) 284 nil check-declare-warning-buffer)))
287 285
288(declare-function compilation-forget-errors "compile" ()) 286(declare-function compilation-forget-errors "compile" ())