diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-08-18 17:25:41 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-08-18 17:25:41 +0200 |
| commit | 1ad0d607404ab0527f5095a64a8dcc9c2bea6411 (patch) | |
| tree | f6ed4c9562cefe075af0bf7927632d90581d7f5b /lisp/emacs-lisp | |
| parent | 67ec99418079dc6443b73b60840dc281ba2a68ae (diff) | |
| download | emacs-1ad0d607404ab0527f5095a64a8dcc9c2bea6411.tar.gz emacs-1ad0d607404ab0527f5095a64a8dcc9c2bea6411.tar.bz2 emacs-1ad0d607404ab0527f5095a64a8dcc9c2bea6411.zip | |
Fix string-to-syntax signature in comp-known-type-specifiers
* lisp/emacs-lisp/comp.el (comp-known-type-specifiers):
`string-to-syntax` can return nil.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 869781bea15..304ea8cc6c1 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -520,7 +520,7 @@ Useful to hook into pass checkers.") (string-to-char (function (string) fixnum)) (string-to-multibyte (function (string) string)) (string-to-number (function (string &optional integer) number)) - (string-to-syntax (function (string) cons)) + (string-to-syntax (function (string) (or cons null))) (string< (function ((or string symbol) (or string symbol)) boolean)) (string= (function ((or string symbol) (or string symbol)) boolean)) (stringp (function (t) boolean)) |