Mercurial > emacs

comparison lisp/emacs-lisp/bytecomp.el @ 52534:c8dcd0a4adb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-warning-prefix): Fix the condition for whether to print "In WHERE".
author Richard M. Stallman <rms@gnu.org>
date Fri, 19 Sep 2003 14:29:42 +0000
parents 695cf19ef79e
children 993d4afcd6d0
comparison
equal deleted inserted replaced
52533:acdfe93d0ae8 52534:c8dcd0a4adb3
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
9 ;; Keywords: lisp 9 ;; Keywords: lisp
10 10
11 ;;; This version incorporates changes up to version 2.10 of the 11 ;;; This version incorporates changes up to version 2.10 of the
12 ;;; Zawinski-Furuseth compiler. 12 ;;; Zawinski-Furuseth compiler.
13 (defconst byte-compile-version "$Revision: 2.136 $") 13 (defconst byte-compile-version "$Revision: 2.137 $")
14 14
15 ;; This file is part of GNU Emacs. 15 ;; This file is part of GNU Emacs.
16 16
17 ;; GNU Emacs is free software; you can redistribute it and/or modify 17 ;; GNU Emacs is free software; you can redistribute it and/or modify
18 ;; it under the terms of the GNU General Public License as published by 18 ;; it under the terms of the GNU General Public License as published by
927 (form (if (eq byte-compile-current-form :end) "end of data" 927 (form (if (eq byte-compile-current-form :end) "end of data"
928 (or byte-compile-current-form "toplevel form")))) 928 (or byte-compile-current-form "toplevel form"))))
929 (when (or (and byte-compile-current-file 929 (when (or (and byte-compile-current-file
930 (not (equal byte-compile-current-file 930 (not (equal byte-compile-current-file
931 byte-compile-last-logged-file))) 931 byte-compile-last-logged-file)))
932 (and byte-compile-last-warned-form 932 (and byte-compile-current-form
933 (not (eq byte-compile-current-form 933 (not (eq byte-compile-current-form
934 byte-compile-last-warned-form)))) 934 byte-compile-last-warned-form))))
935 (insert (format "\nIn %s:\n" form))) 935 (insert (format "\nIn %s:\n" form)))
936 (when level 936 (when level
937 (insert (format "%s%s" file pos)))) 937 (insert (format "%s%s" file pos))))