Commit 5a35377f authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Make with-suppressed-warnings work in cl-defmethod

* lisp/emacs-lisp/cl-generic.el (cl-defmethod): Pass the symbol
name on to `byte-compile-warning-enabled-p' to make
with-suppressed-warnings work in cl-defmethods, too.
parent 1dfd6b40
...@@ -450,7 +450,7 @@ The set of acceptable TYPEs (also called \"specializers\") is defined ...@@ -450,7 +450,7 @@ The set of acceptable TYPEs (also called \"specializers\") is defined
`(progn `(progn
,(and (get name 'byte-obsolete-info) ,(and (get name 'byte-obsolete-info)
(or (not (fboundp 'byte-compile-warning-enabled-p)) (or (not (fboundp 'byte-compile-warning-enabled-p))
(byte-compile-warning-enabled-p 'obsolete)) (byte-compile-warning-enabled-p 'obsolete name))
(let* ((obsolete (get name 'byte-obsolete-info))) (let* ((obsolete (get name 'byte-obsolete-info)))
(macroexp--warn-and-return (macroexp--warn-and-return
(macroexp--obsolete-warning name obsolete "generic function") (macroexp--obsolete-warning name obsolete "generic function")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment