diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2018-07-24 15:58:46 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2018-07-24 16:08:09 -0700 |
| commit | 200195e824befa112459c0afbac7c94aea739573 (patch) | |
| tree | 7799fc7738ba0b7cbfa2539c4c15c713c2419cd9 /src/lisp.h | |
| parent | 0ed21b7b3e71303d7858192246012f4b26438ad8 (diff) | |
| download | emacs-200195e824befa112459c0afbac7c94aea739573.tar.gz | |
Move proper-list-p to C
Since C code can use it and it’s simple, we might as well use C.
* lisp/subr.el (proper-list-p): Move to C code.
* src/eval.c (signal_error): Simplify by using Fproper_list_p.
* src/fns.c (Fproper_list_p): New function, moved here from Lisp.
Simplify signal_error
* src/eval.c (signal_error): Simplify by using FOR_EACH_TAIL_SAFE.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp.h b/src/lisp.h index 8ddd363d2dd..96de60e4670 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -4699,7 +4699,7 @@ enum #define FOR_EACH_TAIL(tail) \ FOR_EACH_TAIL_INTERNAL (tail, circular_list (tail), true) -/* Like FOR_EACH_TAIL (LIST), except do not signal or quit. +/* Like FOR_EACH_TAIL (TAIL), except do not signal or quit. If the loop exits due to a cycle, TAIL’s value is undefined. */ #define FOR_EACH_TAIL_SAFE(tail) \ |