[Emacs-diffs] emacs/lisp ChangeLog net/tramp-compat.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/16 03:13:59

Modified files:
        lisp           : ChangeLog 
        lisp/net       : tramp-compat.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16180&r2=1.16181
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp-compat.el?cvsroot=emacs&r1=1.15&r2=1.16

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16180
retrieving revision 1.16181
diff -u -b -r1.16180 -r1.16181
--- ChangeLog   15 Sep 2009 17:52:42 -0000      1.16180
+++ ChangeLog   16 Sep 2009 03:13:55 -0000      1.16181
@@ -1,3 +1,16 @@
+2009-09-16  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * vc-git.el (vc-git-log-view-mode): Undo inadvertent change.

Index: net/tramp-compat.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-compat.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- net/tramp-compat.el 4 Sep 2009 08:15:15 -0000       1.15
+++ net/tramp-compat.el 16 Sep 2009 03:13:59 -0000      1.16
@@ -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