1 files changed, 3 insertions, 0 deletions

diff --git a/src/coding.c b/src/coding.c
index f0b3cb74acd..1af7b4c0d52 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -7539,6 +7539,9 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...)  */)
             return Fcons (val, val);
           if (! NILP (Ffboundp (val)))
             {
+              /* We use call1 rather than safe_call1
+                 so as to get bug reports about functions called here
+                 which don't handle the current interface.  */
               val = call1 (val, Flist (nargs, args));
               if (CONSP (val))
                 return val;