Mercurial > hg > xemacs-beta

comparison lib-src/gnuclient.c @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 11cf20601dec
children c5d627a313b1
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
445 #endif 445 #endif
446 sprintf (command, "(gnuserv-eval%s '(progn ", quick ? "-quickly" : ""); 446 sprintf (command, "(gnuserv-eval%s '(progn ", quick ? "-quickly" : "");
447 send_string (s, command); 447 send_string (s, command);
448 if (load_library) 448 if (load_library)
449 { 449 {
450 sprintf (command, " (load-library %s)", clean_string (load_library)); 450 send_string (s , "(load-library ");
451 send_string (s, command); 451 send_string (s, clean_string(load_library));
452 send_string (s, ") ");
452 } 453 }
453 if (eval_form) 454 if (eval_form)
454 { 455 {
455 sprintf (command, " %s", eval_form); 456 send_string (s, eval_form);
456 send_string (s, command);
457 } 457 }
458 if (eval_function) 458 if (eval_function)
459 { 459 {
460 sprintf (command, " (%s)", eval_function); 460 send_string (s, "(");
461 send_string (s, command); 461 send_string (s, eval_function);
462 send_string (s, ")");
462 } 463 }
463 send_string (s, "))"); 464 send_string (s, "))");
464 send_string (s, EOT_STR); 465 send_string (s, EOT_STR);
465 if (read_line (s, result) == 0) 466 if (read_line (s, result) == 0)
466 { 467 {