bbatsov/emacs-prelude — Issue #60: Something is wrong after update (possibly git related)
Author: rafaelgp
Created: 2012-02-03 16:47:35+00:00
State: open

Hi all!

After several months using Prelude I decided to update it to the last version.
Now I'm having some problems.
It seems to me that it's not loading Emacs-Prelude files (or not all of the required files at least)
The theme does't change, no line numbers, and no files in my custom folder are leaded.

I have the following in my *Warnings* buffer

```elisp
Warning (initialization): An error occurred while loading `c:/Users/rafaelgp/.emacs':

error: el-get: *git clone magit* Could not install package magit.

To ensure normal operation, you should investigate and remove the
cause of the error in your initialization file. Start Emacs with
the `--debug-init' option to view a complete error backtrace.
```
And this in a buffer called *git clone magit*

```elisp
3 [main] git-remote-http 1652 exception::handle: Exception: STATUS_ACCESS_VIOLATION
3338 [main] git-remote-http 1652 open_stackdumpfile: Dumping stack trace to git-remote-http.exe.stackdump
3 [main] git-remote-http 2396 fork: child -1 - died waiting for longjmp before initialization, retry 0, exit code 0x8B00, errno 11
error: cannot fork() for fetch-pack: Resource temporarily unavailable
```
Finally, this is the output using emacs debug mode:

```elisp
Debugger entered--Lisp error: (error "el-get: make el-get could not build magit [make all]")
signal(error ("el-get: make el-get could not build magit [make all]"))
error("el-get: %s %s" "make" "el-get could not build magit [make all]")
(if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm))
(let* ((startf (if shell (function call-process-shell-command) (function 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)) (next (cdr 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))))
(if sync (let* ((startf (if shell (function call-process-shell-command) (function 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)) (next (cdr 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 (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x (plist-get c x))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter))))
(let* ((c (car commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (when (get-buffer cbuf) (kill-buffer cbuf))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (args (plist-get c :args)) (shell (plist-get c :shell)) (sync (if (plist-member c :sync) (plist-get c :sync) el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (when stdin (make-temp-file "el-get"))) (dummy (when infile (with-temp-file infile (insert ...)))) (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)) (next (cdr 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 (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x (plist-get c x))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter)))))
(if commands (let* ((c (car commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (when (get-buffer cbuf) (kill-buffer cbuf))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (args (plist-get c :args)) (shell (plist-get c :shell)) (sync (if (plist-member c :sync) (plist-get c :sync) el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (when stdin (make-temp-file "el-get"))) (dummy (when infile (with-temp-file infile ...))) (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)) (next (cdr 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 (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x (plist-get c x))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter))))) (when (functionp final-func) (funcall final-func package)))
(condition-case err (if commands (let* ((c (car commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (when (get-buffer cbuf) (kill-buffer cbuf))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (args (plist-get c :args)) (shell (plist-get c :shell)) (sync (if (plist-member c :sync) (plist-get c :sync) el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (let* ((startf (if shell ... ...)) (infile (when stdin ...)) (dummy (when infile ...)) (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)) (next (cdr commands))) (when el-get-verbose (message "%S" (with-current-buffer cbuf ...))) (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 ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x ...)) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter))))) (when (functionp final-func) (funcall final-func package))) ((debug error) (el-get-installation-failed package err)))
el-get-start-process-list("magit" ((:command-name "make" :buffer-name "*el-get-build: magit*" :default-directory "c:/Users/rafaelgp/.emacs.d/emacs-prelude/el-get/magit/" :shell t :sync sync :program "make" :args ("all") :message "el-get-build magit: make all ok." :error "el-get could not build magit [make all]")) (lambda (package) (el-get-install-or-init-info package (quote build)) (funcall (lambda (package) "Function to call after building the package while installing it." (el-get-invalidate-autoloads package) (el-get-init package) (el-get-save-package-status package "installed")) package)))
(let* ((pdir (el-get-package-directory package)) (wdir (if subdir (concat (file-name-as-directory pdir) subdir) pdir)) (buf (format "*el-get-build: %s*" package)) (default-directory (file-name-as-directory wdir)) (process-list (mapcar (lambda (c) (let* ((split ...) (c ...) (name ...) (program ...) (args ...)) (\` (:command-name ... :buffer-name ... :default-directory ... :shell t :sync sync :program ... :args ... :message ... :error ...)))) commands)) (bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package))) (full-process-list (append (when bytecomp-files (list (el-get-byte-compile-process package buf wdir sync bytecomp-files))) process-list)) (build-info-then-post-build-fun (if installing-info post-build-fun (\` (lambda (package) (el-get-install-or-init-info package (quote build)) (funcall (\, ...) package)))))) (el-get-start-process-list package full-process-list build-info-then-post-build-fun))
el-get-build("magit" ("make all") nil sync el-get-post-install-build)
(let* ((sync el-get-default-process-sync) (hooks (el-get-method (el-get-package-type package) :install-hook)) (commands (el-get-build-commands package))) (run-hook-with-args hooks package) (el-get-build package commands nil sync (quote el-get-post-install-build)))
el-get-post-install("magit")
funcall(el-get-post-install "magit")
(progn (funcall final-func package))
(if (functionp final-func) (progn (funcall final-func package)))
(when (functionp final-func) (funcall final-func package))
(if next (el-get-start-process-list package next final-func) (when (functionp final-func) (funcall final-func package)))
(let* ((startf (if shell (function call-process-shell-command) (function 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)) (next (cdr 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))))
(if sync (let* ((startf (if shell (function call-process-shell-command) (function 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)) (next (cdr 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 (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x (plist-get c x))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter))))
(let* ((c (car commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (when (get-buffer cbuf) (kill-buffer cbuf))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (args (plist-get c :args)) (shell (plist-get c :shell)) (sync (if (plist-member c :sync) (plist-get c :sync) el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (when stdin (make-temp-file "el-get"))) (dummy (when infile (with-temp-file infile (insert ...)))) (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)) (next (cdr 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 (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x (plist-get c x))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter)))))
(if commands (let* ((c (car commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (when (get-buffer cbuf) (kill-buffer cbuf))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (args (plist-get c :args)) (shell (plist-get c :shell)) (sync (if (plist-member c :sync) (plist-get c :sync) el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (when stdin (make-temp-file "el-get"))) (dummy (when infile (with-temp-file infile ...))) (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)) (next (cdr 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 (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x (plist-get c x))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter))))) (when (functionp final-func) (funcall final-func package)))
(condition-case err (if commands (let* ((c (car commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (when (get-buffer cbuf) (kill-buffer cbuf))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (args (plist-get c :args)) (shell (plist-get c :shell)) (sync (if (plist-member c :sync) (plist-get c :sync) el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (let* ((startf (if shell ... ...)) (infile (when stdin ...)) (dummy (when infile ...)) (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)) (next (cdr commands))) (when el-get-verbose (message "%S" (with-current-buffer cbuf ...))) (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 ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x ...)) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter))))) (when (functionp final-func) (funcall final-func package))) ((debug error) (el-get-installation-failed package err)))
el-get-start-process-list("magit" ((:command-name "*git submodule update*" :buffer-name "*git clone magit*" :default-directory "c:/Users/rafaelgp/.emacs.d/emacs-prelude/el-get/magit/" :program "c:/cygwin/bin/git.exe" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install)
(if next (el-get-start-process-list package next final-func) (when (functionp final-func) (funcall final-func package)))
(let* ((startf (if shell (function call-process-shell-command) (function 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)) (next (cdr 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))))
(if sync (let* ((startf (if shell (function call-process-shell-command) (function 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)) (next (cdr 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 (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x (plist-get c x))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter))))
(let* ((c (car commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (when (get-buffer cbuf) (kill-buffer cbuf))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (args (plist-get c :args)) (shell (plist-get c :shell)) (sync (if (plist-member c :sync) (plist-get c :sync) el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (when stdin (make-temp-file "el-get"))) (dummy (when infile (with-temp-file infile (insert ...)))) (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)) (next (cdr 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 (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x (plist-get c x))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter)))))
(if commands (let* ((c (car commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (when (get-buffer cbuf) (kill-buffer cbuf))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (args (plist-get c :args)) (shell (plist-get c :shell)) (sync (if (plist-member c :sync) (plist-get c :sync) el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (when stdin (make-temp-file "el-get"))) (dummy (when infile (with-temp-file infile ...))) (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)) (next (cdr 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 (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x (plist-get c x))) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter))))) (when (functionp final-func) (funcall final-func package)))
(condition-case err (if commands (let* ((c (car commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (when (get-buffer cbuf) (kill-buffer cbuf))) (filter (plist-get c :process-filter)) (program (plist-get c :program)) (args (plist-get c :args)) (shell (plist-get c :shell)) (sync (if (plist-member c :sync) (plist-get c :sync) el-get-default-process-sync)) (stdin (plist-get c :stdin)) (default-directory (if cdir (file-name-as-directory (expand-file-name cdir)) default-directory))) (if sync (let* ((startf (if shell ... ...)) (infile (when stdin ...)) (dummy (when infile ...)) (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)) (next (cdr commands))) (when el-get-verbose (message "%S" (with-current-buffer cbuf ...))) (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 ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (lambda (x) (process-put proc x ...)) c) (process-put proc :el-get-sources el-get-sources) (process-put proc :el-get-package package) (process-put proc :el-get-final-func final-func) (process-put proc :el-get-start-process-list (cdr commands)) (when stdin (process-send-string proc (prin1-to-string stdin)) (process-send-eof proc)) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (when filter (set-process-filter proc filter))))) (when (functionp final-func) (funcall final-func package))) ((debug error) (el-get-installation-failed package err)))
el-get-start-process-list("magit" ((:command-name "*git clone magit*" :buffer-name "*git clone magit*" :default-directory "c:/Users/rafaelgp/.emacs.d/emacs-prelude/el-get/" :program "c:/cygwin/bin/git.exe" :args ("--no-pager" "clone" "http://github.com/magit/magit.git" "magit") :message "Package magit installed." :error "Could not install package magit.") (:command-name "*git submodule update*" :buffer-name "*git clone magit*" :default-directory "c:/Users/rafaelgp/.emacs.d/emacs-prelude/el-get/magit/" :program "c:/cygwin/bin/git.exe" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install)
(let* ((git-executable (el-get-executable-find "git")) (pdir (el-get-package-directory package)) (name (format "*git clone %s*" package)) (source (el-get-package-def package)) (branch (plist-get source :branch)) (args (if branch (list "--no-pager" "clone" "-b" branch url package) (list "--no-pager" "clone" url package))) (ok (format "Package %s installed." package)) (ko (format "Could not install package %s." package))) (el-get-start-process-list package (\` ((:command-name (\, name) :buffer-name (\, name) :default-directory (\, el-get-dir) :program (\, git-executable) :args (\, args) :message (\, ok) :error (\, ko)) (:command-name "*git submodule update*" :buffer-name (\, name) :default-directory (\, pdir) :program (\, git-executable) :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules"))) post-install-fun))
el-get-git-clone("magit" "http://github.com/magit/magit.git" el-get-post-install)
funcall(el-get-git-clone "magit" "http://github.com/magit/magit.git" el-get-post-install)
(let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (el-get-package-method source)) (install (el-get-method method :install)) (url (plist-get source :url))) (when (string= "installed" status) (error "Package %s is already installed." package)) (when (string= "required" status) (message "Package %s failed to install, removing it first." package) (el-get-remove package)) (el-get-check-init) (el-get-save-package-status package "required") (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package))
el-get-do-install("magit")
(if (string= (el-get-package-status p) "installed") (el-get-init p) (el-get-do-install p))
(let ((p (symbol-name package))) (if (string= (el-get-package-status p) "installed") (el-get-init p) (el-get-do-install p)))
el-get-demand1(magit)
(if non-installed-dependencies nil (el-get-demand1 psym))
(unless non-installed-dependencies (el-get-demand1 psym))
(let ((non-installed-dependencies (remove-if (quote el-get-package-initialized-p) (el-get-dependencies psym)))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep (quote init)) (\` (lambda (data) (el-get-mark-initialized (quote (\, dep))) (el-get-dependency-installed (quote (\, psym)) (quote (\, dep)))))) (el-get-add-generic-event-task (el-get-event-id dep (quote error)) (\` (lambda (data) (el-get-set-package-state (quote (\, dep)) (list (quote error) data)) (el-get-dependency-error (quote (\, psym)) (quote (\, dep)) data)))) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym)))
(if (memq (el-get-package-state psym) (quote (init installing))) nil (el-get-set-package-state psym (quote installing)) (let ((non-installed-dependencies (remove-if (quote el-get-package-initialized-p) (el-get-dependencies psym)))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep (quote init)) (\` (lambda (data) (el-get-mark-initialized (quote ...)) (el-get-dependency-installed (quote ...) (quote ...))))) (el-get-add-generic-event-task (el-get-event-id dep (quote error)) (\` (lambda (data) (el-get-set-package-state (quote ...) (list ... data)) (el-get-dependency-error (quote ...) (quote ...) data)))) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym))))
(unless (memq (el-get-package-state psym) (quote (init installing))) (el-get-set-package-state psym (quote installing)) (let ((non-installed-dependencies (remove-if (quote el-get-package-initialized-p) (el-get-dependencies psym)))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep (quote init)) (\` (lambda (data) (el-get-mark-initialized (quote ...)) (el-get-dependency-installed (quote ...) (quote ...))))) (el-get-add-generic-event-task (el-get-event-id dep (quote error)) (\` (lambda (data) (el-get-set-package-state (quote ...) (list ... data)) (el-get-dependency-error (quote ...) (quote ...) data)))) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym))))
(let* ((psym (el-get-as-symbol package)) (pname (symbol-name psym))) (unless (memq (el-get-package-state psym) (quote (init installing))) (el-get-set-package-state psym (quote installing)) (let ((non-installed-dependencies (remove-if (quote el-get-package-initialized-p) (el-get-dependencies psym)))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep (quote init)) (\` (lambda (data) (el-get-mark-initialized ...) (el-get-dependency-installed ... ...)))) (el-get-add-generic-event-task (el-get-event-id dep (quote error)) (\` (lambda (data) (el-get-set-package-state ... ...) (el-get-dependency-error ... ... data)))) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym)))))
(condition-case err (let* ((psym (el-get-as-symbol package)) (pname (symbol-name psym))) (unless (memq (el-get-package-state psym) (quote (init installing))) (el-get-set-package-state psym (quote installing)) (let ((non-installed-dependencies (remove-if (quote el-get-package-initialized-p) (el-get-dependencies psym)))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep (quote init)) (\` (lambda ... ... ...))) (el-get-add-generic-event-task (el-get-event-id dep (quote error)) (\` (lambda ... ... ...))) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym))))) ((debug error) (el-get-installation-failed package err)))
(if (el-get-package-is-installed package) (message "el-get: `%s' package is already installed" package) (condition-case err (let* ((psym (el-get-as-symbol package)) (pname (symbol-name psym))) (unless (memq (el-get-package-state psym) (quote (init installing))) (el-get-set-package-state psym (quote installing)) (let ((non-installed-dependencies (remove-if ... ...))) (dolist (dep non-installed-dependencies) (el-get-add-generic-event-task (el-get-event-id dep ...) (\` ...)) (el-get-add-generic-event-task (el-get-event-id dep ...) (\` ...)) (el-get-install dep)) (unless non-installed-dependencies (el-get-demand1 psym))))) ((debug error) (el-get-installation-failed package err))))
el-get-install("magit")
(while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--)))
(let* ((--cl-var-- to-install) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)
(catch (quote --cl-block-nil--) (let* ((--cl-var-- to-install) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((--cl-var-- to-install) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil)))
(block nil (let* ((--cl-var-- to-install) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (el-get-install p) (setq done (nconc done (list p))) (setq --cl-var-- (cdr --cl-var--))) nil))
(loop for p in to-install do (el-get-install p) collect p into done)
(let* ((required (el-get-list-package-names-with-status "required")) (installed (el-get-list-package-names-with-status "installed")) (to-init (if packages (loop for p in packages when (member (el-get-as-string p) installed) collect (el-get-as-string p)) installed)) (init-deps (loop for p in to-init append (mapcar (quote el-get-as-string) (el-get-dependencies (el-get-as-symbol p))))) (to-install (if packages (loop for p in packages unless (member (el-get-as-string p) to-init) collect (el-get-as-string p)) required)) done) (el-get-verbose-message "el-get-init-and-install: install %S" to-install) (el-get-verbose-message "el-get-init-and-install: init %S" to-init) (el-get-verbose-message "el-get-init-and-install: deps %S" init-deps) (loop for p in to-install do (el-get-install p) collect p into done) (loop for p in init-deps do (el-get-init p) collect p into done) (loop for p in to-init unless (member p done) do (el-get-init p) collect p into done) done)
el-get-init-and-install(("magit" "yasnippet"))
(let ((packages (loop for p in packages when (listp p) append p else collect p))) (el-get-init-and-install packages))
(prog1 (let ((packages (loop for p in packages when (listp p) append p else collect p))) (el-get-init-and-install packages)) (when progress (let* ((newly-installing (set-difference (el-get-currently-installing-packages) previously-installing)) (still-installing newly-installing)) (while (> (length still-installing) 0) (sleep-for 0.2) (setq still-installing (delete-if-not (quote el-get-currently-installing-p) still-installing)) (progress-reporter-update progress (/ (* 100.0 (- newly-installing still-installing)) newly-installing))) (progress-reporter-done progress))) (unless el-get-outdated-autoloads (el-get-eval-autoloads)))
(let ((previously-installing (el-get-currently-installing-packages)) (progress (and (eq sync (quote wait)) (make-progress-reporter "Waiting for `el-get' to complete... " 0 100 0))) (el-get-default-process-sync sync)) (prog1 (let ((packages (loop for p in packages when (listp p) append p else collect p))) (el-get-init-and-install packages)) (when progress (let* ((newly-installing (set-difference (el-get-currently-installing-packages) previously-installing)) (still-installing newly-installing)) (while (> (length still-installing) 0) (sleep-for 0.2) (setq still-installing (delete-if-not (quote el-get-currently-installing-p) still-installing)) (progress-reporter-update progress (/ (* 100.0 ...) newly-installing))) (progress-reporter-done progress))) (unless el-get-outdated-autoloads (el-get-eval-autoloads))))
el-get(sync ("magit" "yasnippet"))
eval-buffer(#> nil "c:/Users/rafaelgp/.emacs.d/emacs-prelude/modules/prelude-el-get.el" nil t) ; Reading at buffer position 2631
load-with-code-conversion("c:/Users/rafaelgp/.emacs.d/emacs-prelude/modules/prelude-el-get.el" "c:/Users/rafaelgp/.emacs.d/emacs-prelude/modules/prelude-el-get.el" nil t)
require(prelude-el-get)
eval-buffer(#> nil "c:/Users/rafaelgp/.emacs.d/emacs-prelude/init.el" nil t) ; Reading at buffer position 2499
load-with-code-conversion("c:/Users/rafaelgp/.emacs.d/emacs-prelude/init.el" "c:/Users/rafaelgp/.emacs.d/emacs-prelude/init.el" t nil)
load("~/.emacs.d/emacs-prelude/init.el" noerror)
eval-buffer(# nil "c:/Users/rafaelgp/.emacs" nil t) ; Reading at buffer position 84
load-with-code-conversion("c:/Users/rafaelgp/.emacs" "c:/Users/rafaelgp/.emacs" t t)
load("~/.emacs" t t)
#[0 "\205\262
```

I'm using Windows 7. If the problem is that I need to install 'make' or any other Linux tool I'm screwed :-D

Cheers"