[Emacs-diffs] master 3ccc0d6 3/6: Add check for enabled warning before issuing

[Lars Ingebrigtsen]

branch: master
commit 3ccc0d623a44af8238ffa5d97e6976395e47fc9a
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Add check for enabled warning before issuing
    
    * lisp/emacs-lisp/bytecomp.el (byte-compile-function-warn): Check
    whether we want the `obsolete' warning before issuing it.
---
 lisp/emacs-lisp/bytecomp.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 66dfe43..9e3e603 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1397,7 +1397,8 @@ when printing the error message."
 
 (defun byte-compile-function-warn (f nargs def)
   (byte-compile-set-symbol-position f)
-  (when (get f 'byte-obsolete-info)
+  (when (and (get f 'byte-obsolete-info)
+             (byte-compile-warning-enabled-p 'obsolete f))
     (byte-compile-warn-obsolete f))
 
   ;; Check to see if the function will be available at runtime