Commit ced7ee6e authored by Ryan C. Thompson's avatar Ryan C. Thompson

Fix position of debug message

parent b0c8ec3a
......@@ -59,7 +59,7 @@ call for doing the named package action in the given method.")
(put 'el-get-register-method 'lisp-indent-function
(get 'prog1 'lisp-indent-function))
(defun* el-get-register-derived-method (name derived-from-name
(defun* el-get-register-derived-method (name derived-from-name
&rest keys &key &allow-other-keys)
"Register the method for backend NAME.
......@@ -343,27 +343,28 @@ makes it easier to conditionally splice a command into the list.
(expand-file-name cdir))
default-directory)))
(if sync
(let* ((startf (if shell #'call-process-shell-command #'call-process))
(infile (when stdin (make-temp-file "el-get")))
(dummy (when infile
(with-temp-file infile
(insert (prin1-to-string stdin)))))
(dummy (message "el-get is waiting for %S to complete" cname))
(status (apply startf program infile cbuf t args))
(message (plist-get c :message))
(errorm (plist-get c :error)))
(progn
(el-get-verbose-message "Running commands synchronously: %S" commands)
(when el-get-verbose
(message "%S" (with-current-buffer cbuf (buffer-string))))
(if (eq 0 status)
(message "el-get: %s" message)
(set-window-buffer (selected-window) cbuf)
(error "el-get: %s %s" cname errorm))
(when cbuf (kill-buffer cbuf))
(if next
(el-get-start-process-list package next final-func)
(when (functionp final-func)
(funcall final-func package))))
(let* ((startf (if shell #'call-process-shell-command #'call-process))
(infile (when stdin (make-temp-file "el-get")))
(dummy (when infile
(with-temp-file infile
(insert (prin1-to-string stdin)))))
(dummy (message "el-get is waiting for %S to complete" cname))
(status (apply startf program infile cbuf t args))
(message (plist-get c :message))
(errorm (plist-get c :error)))
(when el-get-verbose
(message "%S" (with-current-buffer cbuf (buffer-string))))
(if (eq 0 status)
(message "el-get: %s" message)
(set-window-buffer (selected-window) cbuf)
(error "el-get: %s %s" cname errorm))
(when cbuf (kill-buffer cbuf))
(if next
(el-get-start-process-list package next final-func)
(when (functionp final-func)
(funcall final-func package)))))
;; async case
(el-get-verbose-message "Running commands asynchronously: %S" commands)
(let* ((startf (if shell #'start-process-shell-command #'start-process))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment