comparison lisp/emacs-lisp/bytecomp.el @ 83269:48ba3f89c89f

Merged from miles@gnu.org--gnu-2005 (patch 37-38, 162-182) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-162 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-163 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-164 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-165 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-166 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-167 Tweak obsolete function/variable warning message * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-168 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-169 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-170 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-171 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-172 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-173 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-174 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-175 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-176 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-177 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-178 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-179 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-180 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-181 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-182 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-37 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-38 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-309
author Karoly Lorentey <lorentey@elte.hu>
date Wed, 16 Mar 2005 16:06:15 +0000
parents 89ac10c67e45 d599af947fb2
children b151ec53c504
comparison
equal deleted inserted replaced
83268:7ea3d7198adc 83269:48ba3f89c89f
1 ;;; bytecomp.el --- compilation of Lisp code into byte code 1 ;;; bytecomp.el --- compilation of Lisp code into byte code
2 2
3 ;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000, 2001, 2002, 3 ;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000, 2001, 2002,
4 ;; 2003, 2004 Free Software Foundation, Inc. 4 ;; 2003, 2004, 2005 Free Software Foundation, Inc.
5 5
6 ;; Author: Jamie Zawinski <jwz@lucid.com> 6 ;; Author: Jamie Zawinski <jwz@lucid.com>
7 ;; Hallvard Furuseth <hbf@ulrik.uio.no> 7 ;; Hallvard Furuseth <hbf@ulrik.uio.no>
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
9 ;; Keywords: lisp 9 ;; Keywords: lisp
1037 (handler (nth 1 new)) 1037 (handler (nth 1 new))
1038 (when (nth 2 new))) 1038 (when (nth 2 new)))
1039 (byte-compile-set-symbol-position (car form)) 1039 (byte-compile-set-symbol-position (car form))
1040 (if (memq 'obsolete byte-compile-warnings) 1040 (if (memq 'obsolete byte-compile-warnings)
1041 (byte-compile-warn "`%s' is an obsolete function%s; %s" (car form) 1041 (byte-compile-warn "`%s' is an obsolete function%s; %s" (car form)
1042 (if when (concat " since " when) "") 1042 (if when (concat " (as of Emacs " when ")") "")
1043 (if (stringp (car new)) 1043 (if (stringp (car new))
1044 (car new) 1044 (car new)
1045 (format "use `%s' instead." (car new))))) 1045 (format "use `%s' instead." (car new)))))
1046 (funcall (or handler 'byte-compile-normal-call) form))) 1046 (funcall (or handler 'byte-compile-normal-call) form)))
1047 1047
2777 (memq 'obsolete byte-compile-warnings) 2777 (memq 'obsolete byte-compile-warnings)
2778 (not (eq var byte-compile-not-obsolete-var))) 2778 (not (eq var byte-compile-not-obsolete-var)))
2779 (let* ((ob (get var 'byte-obsolete-variable)) 2779 (let* ((ob (get var 'byte-obsolete-variable))
2780 (when (cdr ob))) 2780 (when (cdr ob)))
2781 (byte-compile-warn "`%s' is an obsolete variable%s; %s" var 2781 (byte-compile-warn "`%s' is an obsolete variable%s; %s" var
2782 (if when (concat " since " when) "") 2782 (if when (concat " (as of Emacs " when ")") "")
2783 (if (stringp (car ob)) 2783 (if (stringp (car ob))
2784 (car ob) 2784 (car ob)
2785 (format "use `%s' instead." (car ob)))))) 2785 (format "use `%s' instead." (car ob))))))
2786 (if (memq 'free-vars byte-compile-warnings) 2786 (if (memq 'free-vars byte-compile-warnings)
2787 (if (eq base-op 'byte-varbind) 2787 (if (eq base-op 'byte-varbind)