diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-17 11:39:56 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-17 11:39:56 +0200 |
| commit | 5a35377fedf0c80bddb7eabb44e94fcc754a25de (patch) | |
| tree | 7ee46a917e8fad8777ba55cd4ab9ce4c9214b6b3 /lisp/emacs-lisp | |
| parent | 1dfd6b404236273f89071214288eb471018299e9 (diff) | |
| download | emacs-5a35377fedf0c80bddb7eabb44e94fcc754a25de.tar.gz emacs-5a35377fedf0c80bddb7eabb44e94fcc754a25de.tar.bz2 emacs-5a35377fedf0c80bddb7eabb44e94fcc754a25de.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 9013c1f0607..10190f49339 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el @@ -450,7 +450,7 @@ The set of acceptable TYPEs (also called \"specializers\") is defined `(progn ,(and (get name 'byte-obsolete-info) (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))) (macroexp--warn-and-return (macroexp--obsolete-warning name obsolete "generic function") |