(byte-compile-not-obsolete-vars): Set if bound.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 36e6d354622c71df13827c716a769b61ca82e49f..3a63754b137d5ba613dcaeb4067bf2ff20f467fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2009-09-16  Glenn Morris  <rgm@gnu.org>
+
+       * emacs-lisp/bytecomp.el (byte-compile-not-obsolete-vars): Rename from
+       byte-compile-not-obsolete-var.  It's a list now.
+       (byte-compile-not-obsolete-funcs): New variable.
+       (byte-compile-warn-obsolete): Don't warn about functions if they are in
+       byte-compile-not-obsolete-funcs.
+       (byte-compile-variable-ref, byte-compile-defvar): Update for
+       byte-compile-not-obsolete-vars name-change and list nature.
+       (byte-compile-maybe-guarded): Suppress warnings about obsolete functions
+       and variables behind (f)boundp tests.
+       * net/tramp-compat.el (byte-compile-not-obsolete-vars): Set if bound.
+
 2009-09-15  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc-git.el (vc-git-log-view-mode): Undo inadvertent change.

diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 96c8bd86b77dab9dd4911b76db7063f24e4f3dd3..258bc2f4de016e1bfd598c002fce4a79570c0b10 100644 (file)
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -88,6 +88,8 @@
   (unless (boundp 'byte-compile-not-obsolete-var)
     (defvar byte-compile-not-obsolete-var nil))
   (setq byte-compile-not-obsolete-var 'directory-sep-char)
+  (if (boundp 'byte-compile-not-obsolete-vars) ; Emacs 23.2
+      (setq byte-compile-not-obsolete-vars '(directory-sep-char)))
 
   ;; `with-temp-message' does not exists in XEmacs.
   (condition-case nil