diff options
| author | Lars Ingebrigtsen | 2022-05-15 15:29:28 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-05-15 15:29:38 +0200 |
| commit | aa95b2a47dce8cf74f70f43f72e35349782d1c74 (patch) | |
| tree | 169ef433c0b42ae69f09abf71e0d04c7c79ac925 /src/eval.c | |
| parent | 22873b5415fbcc81f2d1e0e69cccd5dbeaac51ee (diff) | |
| download | emacs-aa95b2a47dce8cf74f70f43f72e35349782d1c74.tar.gz emacs-aa95b2a47dce8cf74f70f43f72e35349782d1c74.zip | |
Add OVERRIDES argument to prin1/prin1-to-string
* doc/lispref/streams.texi (Output Functions): Document it.
(Output Overrides): New node.
* src/process.c (Faccept_process_output):
* src/print.c (debug_print, print_error_message):
* src/pdumper.c (print_paths_to_root_1, decode_emacs_reloc):
* src/lread.c (readevalloop):
* src/eval.c (internal_lisp_condition_case):
* src/editfns.c (styled_format): Adjust prin1/prin1-to-string
callers.
* src/print.c (Fprin1): Take an OVERRIDES parameter.
(print_bind_overrides, print_bind_all_defaults): New functions.
(Fprin1_to_string): Take an OVERRIDES parameter.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/eval.c b/src/eval.c index 29c122e2fb2..25ac8e45296 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1341,7 +1341,7 @@ internal_lisp_condition_case (Lisp_Object var, Lisp_Object bodyform, | |||
| 1341 | && (SYMBOLP (XCAR (tem)) | 1341 | && (SYMBOLP (XCAR (tem)) |
| 1342 | || CONSP (XCAR (tem)))))) | 1342 | || CONSP (XCAR (tem)))))) |
| 1343 | error ("Invalid condition handler: %s", | 1343 | error ("Invalid condition handler: %s", |
| 1344 | SDATA (Fprin1_to_string (tem, Qt))); | 1344 | SDATA (Fprin1_to_string (tem, Qt, Qnil))); |
| 1345 | if (CONSP (tem) && EQ (XCAR (tem), QCsuccess)) | 1345 | if (CONSP (tem) && EQ (XCAR (tem), QCsuccess)) |
| 1346 | success_handler = XCDR (tem); | 1346 | success_handler = XCDR (tem); |
| 1347 | else | 1347 | else |