diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-09-25 17:44:29 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-09-25 17:51:19 +0200 |
| commit | 197afa4de340679e18d7b91d50c82d2e14a2699b (patch) | |
| tree | 892e15fc7ed9849e95dad4a682ffb149c6d60c8b /src/fns.c | |
| parent | e0565e389670829cf8a55ecee052b947dd297460 (diff) | |
| download | emacs-197afa4de340679e18d7b91d50c82d2e14a2699b.tar.gz | |
; * src/fns.c (Fcopy_alist): More accurate error type
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fns.c b/src/fns.c index 964141f338d..3e5a83d03d2 100644 --- a/src/fns.c +++ b/src/fns.c @@ -1415,9 +1415,9 @@ are shared, however. Elements of ALIST that are not conses are also shared. */) (Lisp_Object alist) { + CHECK_LIST (alist); if (NILP (alist)) return alist; - CHECK_CONS (alist); alist = Fcopy_sequence (alist); for (Lisp_Object tem = alist; !NILP (tem); tem = XCDR (tem)) { |