diff options
| author | Stefan Kangas | 2022-10-25 16:42:58 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-10-25 16:42:58 +0200 |
| commit | c8fe6aae0ac352e48fff2bdec966a0605be63bac (patch) | |
| tree | a12daa9bfcd6e7f7642ce1ebd3c700e57e50e566 | |
| parent | fe816fc679ead2100cddb4e51bc81c329bcb4265 (diff) | |
| download | emacs-c8fe6aae0ac352e48fff2bdec966a0605be63bac.tar.gz emacs-c8fe6aae0ac352e48fff2bdec966a0605be63bac.zip | |
eglot: Prefer ensure-list on Emacs 28 or later
* lisp/progmodes/eglot.el (eglot--ensure-list): Make into alias
for 'ensure-list' on Emacs 28 or later.
| -rw-r--r-- | lisp/progmodes/eglot.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 201fafb6712..1b983e94d79 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el | |||
| @@ -1632,6 +1632,8 @@ and just return it. PROMPT shouldn't end with a question mark." | |||
| 1632 | (cl-loop for (k _v) on plist by #'cddr collect k)) | 1632 | (cl-loop for (k _v) on plist by #'cddr collect k)) |
| 1633 | 1633 | ||
| 1634 | (defun eglot--ensure-list (x) (if (listp x) x (list x))) | 1634 | (defun eglot--ensure-list (x) (if (listp x) x (list x))) |
| 1635 | (when (fboundp 'ensure-list) ; Emacs 28 or later | ||
| 1636 | (define-obsolete-function-alias 'eglot--ensure-list #'ensure-list "29.1")) | ||
| 1635 | 1637 | ||
| 1636 | 1638 | ||
| 1637 | ;;; Minor modes | 1639 | ;;; Minor modes |