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

2 files changed, 15 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 36e6d354622..3a63754b137 100644
--- 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 96c8bd86b77..258bc2f4de0 100644
--- 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