diff options
| author | Lars Ingebrigtsen | 2019-06-17 11:39:56 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-17 11:39:56 +0200 |
| commit | 5a35377fedf0c80bddb7eabb44e94fcc754a25de (patch) | |
| tree | 7ee46a917e8fad8777ba55cd4ab9ce4c9214b6b3 | |
| parent | 1dfd6b404236273f89071214288eb471018299e9 (diff) | |
| download | emacs-5a35377fedf0c80bddb7eabb44e94fcc754a25de.tar.gz 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.
| -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 | |||
| 450 | `(progn | 450 | `(progn |
| 451 | ,(and (get name 'byte-obsolete-info) | 451 | ,(and (get name 'byte-obsolete-info) |
| 452 | (or (not (fboundp 'byte-compile-warning-enabled-p)) | 452 | (or (not (fboundp 'byte-compile-warning-enabled-p)) |
| 453 | (byte-compile-warning-enabled-p 'obsolete)) | 453 | (byte-compile-warning-enabled-p 'obsolete name)) |
| 454 | (let* ((obsolete (get name 'byte-obsolete-info))) | 454 | (let* ((obsolete (get name 'byte-obsolete-info))) |
| 455 | (macroexp--warn-and-return | 455 | (macroexp--warn-and-return |
| 456 | (macroexp--obsolete-warning name obsolete "generic function") | 456 | (macroexp--obsolete-warning name obsolete "generic function") |