diff options
| author | Lars Ingebrigtsen | 2019-06-15 16:54:51 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-15 16:54:51 +0200 |
| commit | e10e48896f438e315fcc16c90233b55ee22f1c7b (patch) | |
| tree | 993f38f6bd0bdd9148c3bb79fb366016294c676e | |
| parent | a979a0ad07a8e2452c1267d2c1299000e543051d (diff) | |
| download | emacs-e10e48896f438e315fcc16c90233b55ee22f1c7b.tar.gz emacs-e10e48896f438e315fcc16c90233b55ee22f1c7b.zip | |
Suppress warning in mailheader.el
* lisp/mail/mailheader.el (headers): Suppress warning about
non-prefixed variable part of the advertised interface.
| -rw-r--r-- | lisp/mail/mailheader.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el index 936f53e96a5..8aec1940a7e 100644 --- a/lisp/mail/mailheader.el +++ b/lisp/mail/mailheader.el | |||
| @@ -99,7 +99,8 @@ value." | |||
| 99 | headers) | 99 | headers) |
| 100 | 100 | ||
| 101 | ;; Advertised part of the interface; see mail-header, mail-header-set. | 101 | ;; Advertised part of the interface; see mail-header, mail-header-set. |
| 102 | (defvar headers) | 102 | (with-suppressed-warnings ((lexical headers)) |
| 103 | (defvar headers)) | ||
| 103 | 104 | ||
| 104 | (defsubst mail-header (header &optional header-alist) | 105 | (defsubst mail-header (header &optional header-alist) |
| 105 | "Return the value associated with header HEADER in HEADER-ALIST. | 106 | "Return the value associated with header HEADER in HEADER-ALIST. |