X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/01099ad1d5683f6e9cc5120599ee4c1339de04b4..251d6798c1556b66bf3f1d88659c94c1a43d060c:/src/print.c?ds=sidebyside

diff --git a/src/print.c b/src/print.c
index a0f9c1d247..672a780792 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2146,6 +2146,19 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag)
 	}
       break;
 
+    case Lisp_Other:
+      {
+        SCM port = scm_open_output_string ();
+        if (escapeflag)
+          scm_display (obj, port);
+        else
+          scm_write (obj, port);
+        strout (scm_to_locale_string (scm_get_output_string (port)),
+                -1, -1, printcharfun);
+        scm_close_port (port);
+      }
+      break;
+
     default:
     badtype:
       {