comparison src/process.c @ 5143:186aebf7f6c6

merge
author Ben Wing <ben@xemacs.org>
date Sat, 13 Mar 2010 11:38:54 -0600
parents f965e31a35f0
children 6c6d78781d59
comparison
equal deleted inserted replaced
5140:e5380fdaf8f1 5143:186aebf7f6c6
148 print_process (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 148 print_process (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
149 { 149 {
150 Lisp_Process *process = XPROCESS (obj); 150 Lisp_Process *process = XPROCESS (obj);
151 151
152 if (print_readably) 152 if (print_readably)
153 printing_unreadable_lcrecord (obj, XSTRING_DATA (process->name)); 153 printing_unreadable_lisp_object (obj, XSTRING_DATA (process->name));
154 154
155 if (!escapeflag) 155 if (!escapeflag)
156 { 156 {
157 print_internal (process->name, printcharfun, 0); 157 print_internal (process->name, printcharfun, 0);
158 } 158 }