diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-15 15:29:28 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 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.tar.bz2 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, && (SYMBOLP (XCAR (tem)) || CONSP (XCAR (tem)))))) error ("Invalid condition handler: %s", - SDATA (Fprin1_to_string (tem, Qt))); + SDATA (Fprin1_to_string (tem, Qt, Qnil))); if (CONSP (tem) && EQ (XCAR (tem), QCsuccess)) success_handler = XCDR (tem); else |