Sophie

Sophie

distrib > Mandriva > current > i586 > media > contrib-release-src > by-pkgid > 6112c09ef712531ade4aa299622e5a0e > files > 1

svk-2.2.3-1mdv2010.1.src.rpm

--- SVK-v2.0.1/lib/SVK/Resolve/Emacs.pm.pix	2006-12-28 14:16:52.000000000 +0100
+++ SVK-v2.0.1/lib/SVK/Resolve/Emacs.pm	2007-06-29 11:10:27.000000000 +0200
@@ -55,30 +55,32 @@ use SVK::I18N;
 use SVK::Util qw( devnull );
 use SVK::Logger;
 
-sub commands { 'gnuclient-emacs' }
+sub commands { 'emacsclient' }
 
 sub arguments {
     my $self = shift;
-    my $lisp = "(require 'svk-ediff)";
+
+    my @lisp;
+    push @lisp, "(require 'svk-ediff)";
 
     # set up the signal handlers
     $self->{signal} ||= 'USR1';
 
     if ($self->{base} eq devnull()) {
-        $lisp .= qq(
+        push @lisp, qq(
 (ediff-files-internal
  "$self->{yours}" "$self->{theirs}" nil
  nil 'ediff-merge-files)
 );
     } else {
-        $lisp .= qq(
+        push @lisp, qq(
 (ediff-files-internal
  "$self->{yours}" "$self->{theirs}" "$self->{base}"
  nil 'ediff-merge-files-with-ancestor)
 )
     }
 
-    $lisp .= qq(
+    push @lisp, qq(
 (svk-merge-startup '((working-file . "$self->{yours}")
                        (selected-file . "$self->{theirs}")
                        (common-file . "$self->{base}")
@@ -91,7 +93,7 @@ sub arguments {
 'OK!
 );
 
-    return ('--eval' => $lisp);
+    return ('--eval', @lisp);
 }
 
 sub run_resolver {