Commits

aichnerad  committed e0038be

Remove "echo " prefix from all commands after some testing.

  • Participants
  • Parent commits dfa647f

Comments (0)

Files changed (1)

   (if dir
       (cd dir))
   (let ((cmd
-         (format "echo sh configure%s"
+         (format "sh configure%s"
                  (mapconcat
                   (function (lambda (e)
                               (cond
     (make-directory build-cvs-checkout-parent-dir t))
   (cd build-cvs-checkout-parent-dir)
   (let ((cmd
-         (format "echo cvs %s -d%s login" build-cvs-options
+         (format "cvs %s -d%s login" build-cvs-options
                  build-cvs-xemacs-repository))
         (compilation-mode-hook
          'build-compilation-mode-hook)
     (make-directory build-cvs-checkout-parent-dir t))
   (cd build-cvs-checkout-parent-dir)
   (let ((cmd
-         (format "echo cvs %s -d%s checkout %s -d %s%s %s"
+         (format "cvs %s -d%s checkout %s -d %s%s %s"
                  build-cvs-options
                  build-cvs-xemacs-repository
                  build-cvs-checkout-options
    (expand-file-name build-cvs-checkout-dir
                      build-cvs-checkout-parent-dir))
   (let ((cmd
-         (format "echo cvs %s update %s%s"
+         (format "cvs %s update %s%s"
                  build-cvs-options
                  build-cvs-update-options
                  (if (and release-tag
 (defun build-tarball-extract (file)
   (cd build-tarball-dest)
   (let ((cmd
-         (format "echo gunzip -c %s%s | tar -xvf -" build-tarball-prefix file))
+         (format "gunzip -c %s%s | tar -xvf -" build-tarball-prefix file))
         (compilation-mode-hook
          'build-compilation-mode-hook)
         (compilation-buffer-name-function
 (defun build-make-set-value (sym val)
   (cond
    ((equal val (first (get sym 'standard-value)))
-    (setq build-make-options (remassoc (build-make-sym-to-opt sym) build-make-options)))
+    (setq build-make-options
+          (remassoc (build-make-sym-to-opt sym) build-make-options)))
    (t
     (setq build-make-options
 	  (acons (build-make-sym-to-opt sym) val
   (interactive "sTarget: \nsCommand: ")
   (let ((cmd
          (if (string-equal command "")
-             (format "echo make %s" target)
-           (format "echo %s %s" command target)))
+             (format "make %s" target)
+           (format "%s %s" command target)))
         (compilation-mode-hook
          'build-compilation-mode-hook)
         (compilation-buffer-name-function