diff options
| author | Lars Ingebrigtsen | 2019-06-12 16:18:34 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-12 16:18:34 +0200 |
| commit | a5cc98c38e5f78499170e05077b1e297153bc498 (patch) | |
| tree | 4fe0e3a7a4f5a18a0621b2a3f125365b79fa38be | |
| parent | aa41909c853da51699c863619c7d3204d05328a8 (diff) | |
| download | emacs-a5cc98c38e5f78499170e05077b1e297153bc498.tar.gz emacs-a5cc98c38e5f78499170e05077b1e297153bc498.zip | |
Suppress warning in display-completion-list about itself
* lisp/minibuffer.el (display-completion-list):
`display-completion-list' calls itself with the old, obsolete
callargs, so suppress this warning.
| -rw-r--r-- | lisp/minibuffer.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index ed610c16ee3..57702760fbc 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el | |||
| @@ -1738,7 +1738,8 @@ It can find the completion buffer in `standard-output'." | |||
| 1738 | (with-temp-buffer | 1738 | (with-temp-buffer |
| 1739 | (let ((standard-output (current-buffer)) | 1739 | (let ((standard-output (current-buffer)) |
| 1740 | (completion-setup-hook nil)) | 1740 | (completion-setup-hook nil)) |
| 1741 | (display-completion-list completions common-substring)) | 1741 | (with-suppressed-warnings ((callargs display-completion-list)) |
| 1742 | (display-completion-list completions common-substring))) | ||
| 1742 | (princ (buffer-string))) | 1743 | (princ (buffer-string))) |
| 1743 | 1744 | ||
| 1744 | (with-current-buffer standard-output | 1745 | (with-current-buffer standard-output |