Closed freealong closed 9 years ago
OS: fedora 21; Emacs:24.5.1
mk/targets.mk:126: recipe for target 'info' failed
Debugger entered--Lisp error: (error "el-get: make el-get could not build org-mode [make oldorg EMACS=/bin/emacs]") signal(error ("el-get: make el-get could not build org-mode [make oldorg EMACS=/bin/emacs]")) error("el-get: %s %s" "make" "el-get could not build org-mode [make oldorg EMACS=/bin/emacs]") (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 (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))) (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))) (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if 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))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) 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 next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err))) el-get-start-process-list(org-mode ((:command-name "make" :buffer-name "el-get-build: org-mode" :default-directory "/home/yongqi/.emacs.d/el-get/org-mode/" :shell t :sync sync :program "/bin/make" :args ("oldorg" "EMACS=/bin/emacs") :message "el-get-build org-mode: make oldorg EMACS=/bin/emacs ok." :error "el-get could not build org-mode [make oldorg EMACS=/bin/emacs]")) (lambda (package) (el-get-install-or-init-info package (quote build)) (funcall (lambda (package) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "el-get-build: org-mode" "/home/yongqi/.emacs.d/el-get/org-mode/" sync bytecomp-files)) (function el-get-post-install-build)))) 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)) (shell-file-name (or (and (eq system-type (quote windows-nt)) (executable-find "cmdproxy.exe")) shell-file-name)) (process-list (mapcar (function (lambda (c) (let* (... ... ... ... ...) (list ... name ... buf ... wdir ... t ... sync ... program ... args ... ... ... ...)))) commands)) (byte-compile-then-post-build-fun (list (quote lambda) (quote (package)) (list (quote let) (quote ((bytecomp-files ...))) (list (quote el-get-start-process-list) (quote package) (list (quote list) (cons ... ...)) (list (quote function) post-build-fun))))) (build-info-then-post-build-fun (if installing-info byte-compile-then-post-build-fun (list (quote lambda) (quote (package)) (quote (el-get-install-or-init-info package (quote build))) (cons (quote funcall) (cons byte-compile-then-post-build-fun (quote ...))))))) (el-get-start-process-list package process-list build-info-then-post-build-fun)) el-get-build(org-mode (("make" "oldorg" "EMACS=/bin/emacs")) nil sync el-get-post-install-build) (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build))) (let* ((sync el-get-default-process-sync) (type (el-get-package-type package)) (hooks (el-get-method type :install-hook)) (commands (el-get-build-commands package))) (el-get-verify-checksum package) (run-hook-with-args hooks package) (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build)))) el-get-post-install(org-mode) funcall(el-get-post-install org-mode) (progn (funcall final-func package)) (if (functionp final-func) (progn (funcall final-func package))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))) (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))) (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if 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))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) 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 next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err))) el-get-start-process-list(org-mode (nil (:command-name "git submodule update" :buffer-name "git clone org-mode" :default-directory "/home/yongqi/.emacs.d/el-get/org-mode/" :program "/bin/git" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install) (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))) (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))) (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if 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))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) 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 next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err))) el-get-start-process-list(org-mode ((:command-name "git clone org-mode" :buffer-name "git clone org-mode" :default-directory "/home/yongqi/.emacs.d/el-get" :program "/bin/git" :args ("--no-pager" "clone" "--depth" "1" "git://orgmode.org/org-mode.git" "org-mode") :message "Package org-mode installed." :error "Could not install package org-mode.") nil (:command-name "git submodule update" :buffer-name "git clone org-mode" :default-directory "/home/yongqi/.emacs.d/el-get/org-mode/" :program "/bin/git" :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)) (pname (el-get-as-string package)) (name (format "git clone %s" package)) (source (el-get-package-def package)) (branch (plist-get source :branch)) (submodule-prop (plist-get source :submodule)) (explicit-nosubmodule (and (plist-member source :submodule) (not submodule-prop))) (checkout (or (plist-get source :checkout) (plist-get source :checksum))) (shallow (if (el-get-git-shallow-clone-supported-p url) (progn (el-get-plist-get-with-default source :shallow el-get-git-shallow-clone)))) (clone-args (append (quote ("--no-pager" "clone")) (if shallow (progn (quote ("--depth" "1")))) (cond (checkout (quote ("--no-checkout"))) (branch (list "-b" branch)) (t nil)) (list url pname))) (ok (format "Package %s installed." package)) (ko (format "Could not install package %s." package))) (el-get-insecure-check package url) (el-get-start-process-list package (list (list (quote :command-name) name (quote :buffer-name) name (quote :default-directory) el-get-dir (quote :program) git-executable (quote :args) clone-args (quote :message) ok (quote :error) ko) (if checkout (progn (list :command-name (format "git checkout %s" checkout) :buffer-name name :default-directory pdir :program git-executable :args (list "--no-pager" "checkout" checkout) :message (format "git checkout %s ok" checkout) :error (format "Could not checkout %s for package %s" checkout package)))) (if explicit-nosubmodule nil (list :command-name "git submodule update" :buffer-name name :default-directory pdir :program git-executable :args (list "--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules"))) post-install-fun)) el-get-git-clone(org-mode "git://orgmode.org/org-mode.git" el-get-post-install) funcall(el-get-git-clone org-mode "git://orgmode.org/org-mode.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)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." 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)) (if (el-get-package-is-installed package) (progn (el-get-verbose-message "el-get: `%s' package is already installed" package) (el-get-do-init package)) (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)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." 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(org-mode) (progn (el-get-do-install p)) (condition-case err (progn (el-get-do-install p)) ((debug error) (display-warning (quote el-get) (concat (format "while installing %s: " p) (error-message-string err)) :error) nil)) (if (condition-case err (progn (el-get-do-install p)) ((debug error) (display-warning (quote el-get) (concat (format "while installing %s: " p) (error-message-string err)) :error) nil)) (progn (setq done (nconc done (list p))))) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (condition-case err (progn (el-get-do-install p)) ((debug error) (display-warning (quote el-get) (concat (format "while installing %s: " p) (error-message-string err)) :error) nil)) (progn (setq done (nconc done (list p))))) (setq --cl-var-- (cdr --cl-var--))) (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (condition-case err (progn (el-get-do-install p)) ((debug error) (display-warning (quote el-get) (concat (format "while installing %s: " p) (error-message-string err)) :error) nil)) (progn (setq done (nconc done (list p))))) (setq --cl-var-- (cdr --cl-var--))) nil) (let* ((p-s-alist (el-get-read-status-file)) (required (el-get-filter-package-alist-with-status p-s-alist "required")) (installed (el-get-filter-package-alist-with-status p-s-alist "installed")) (to-init (if packages (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (member ... installed) (progn ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) (mapcar (quote el-get-as-symbol) installed))) (init-deps (el-get-dependencies to-init)) (req-inits (let* ((--cl-var-- init-deps) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (member (el-get-as-string p) installed) (progn) (setq --cl-var-- (cons p --cl-var--))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (to-install (if packages (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (member p init-deps) (progn) (setq --cl-var-- ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) (mapcar (quote el-get-as-symbol) required))) (install-deps (el-get-dependencies to-install)) done) (if req-inits (progn (setq install-deps (append req-inits install-deps)) (setq init-deps (set-difference init-deps req-inits)))) (el-get-verbose-message "el-get-init-and-install: install %S" install-deps) (el-get-verbose-message "el-get-init-and-install: init %S" init-deps) (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (condition-case err (progn (el-get-do-install p)) ((debug error) (display-warning (quote el-get) (concat ... ...) :error) nil)) (progn (setq done (nconc done (list p))))) (setq --cl-var-- (cdr --cl-var--))) nil) (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (condition-case err (progn (el-get-do-init p)) ((debug error) (display-warning (quote el-get) (concat ... ...) :error) nil)) (progn (setq done (nconc done (list p))))) (setq --cl-var-- (cdr --cl-var--))) nil) done) el-get-init-and-install((org-mode)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads)) (let* ((packages (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (listp p) (progn (setq --cl-var-- ...)) (setq --cl-var-- (cons p --cl-var--))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (el-get-default-process-sync sync)) (if el-get-is-lazy nil (el-get-eval-autoloads)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads))) el-get(sync ("org-mode")) eval-buffer(#<buffer load> nil "/home/yongqi/.emacs.d/init.el" nil t) ; Reading at buffer position 2934 load-with-code-conversion("/home/yongqi/.emacs.d/init.el" "/home/yongqi/.emacs.d/init.el" t t) load("/home/yongqi/.emacs.d/init" t t)
OS: fedora 21; Emacs:24.5.1
mk/targets.mk:126: recipe for target 'info' failed
Debugger entered--Lisp error: (error "el-get: make el-get could not build org-mode [make oldorg EMACS=/bin/emacs]") signal(error ("el-get: make el-get could not build org-mode [make oldorg EMACS=/bin/emacs]")) error("el-get: %s %s" "make" "el-get could not build org-mode [make oldorg EMACS=/bin/emacs]") (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 (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))) (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))) (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if 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))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) 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 next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err))) el-get-start-process-list(org-mode ((:command-name "make" :buffer-name "el-get-build: org-mode" :default-directory "/home/yongqi/.emacs.d/el-get/org-mode/" :shell t :sync sync :program "/bin/make" :args ("oldorg" "EMACS=/bin/emacs") :message "el-get-build org-mode: make oldorg EMACS=/bin/emacs ok." :error "el-get could not build org-mode [make oldorg EMACS=/bin/emacs]")) (lambda (package) (el-get-install-or-init-info package (quote build)) (funcall (lambda (package) (let ((bytecomp-files (when el-get-byte-compile (el-get-assemble-files-for-byte-compilation package)))) (el-get-start-process-list package (list (el-get-byte-compile-process package "el-get-build: org-mode" "/home/yongqi/.emacs.d/el-get/org-mode/" sync bytecomp-files)) (function el-get-post-install-build)))) 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)) (shell-file-name (or (and (eq system-type (quote windows-nt)) (executable-find "cmdproxy.exe")) shell-file-name)) (process-list (mapcar (function (lambda (c) (let* (... ... ... ... ...) (list ... name ... buf ... wdir ... t ... sync ... program ... args ... ... ... ...)))) commands)) (byte-compile-then-post-build-fun (list (quote lambda) (quote (package)) (list (quote let) (quote ((bytecomp-files ...))) (list (quote el-get-start-process-list) (quote package) (list (quote list) (cons ... ...)) (list (quote function) post-build-fun))))) (build-info-then-post-build-fun (if installing-info byte-compile-then-post-build-fun (list (quote lambda) (quote (package)) (quote (el-get-install-or-init-info package (quote build))) (cons (quote funcall) (cons byte-compile-then-post-build-fun (quote ...))))))) (el-get-start-process-list package process-list build-info-then-post-build-fun)) el-get-build(org-mode (("make" "oldorg" "EMACS=/bin/emacs")) nil sync el-get-post-install-build) (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build))) (let* ((sync el-get-default-process-sync) (type (el-get-package-type package)) (hooks (el-get-method type :install-hook)) (commands (el-get-build-commands package))) (el-get-verify-checksum package) (run-hook-with-args hooks package) (if (and (eq (el-get-package-method package) (quote builtin)) (plist-get (el-get-package-def package) :builtin)) (el-get-post-install-build package) (el-get-build package commands nil sync (quote el-get-post-install-build)))) el-get-post-install(org-mode) funcall(el-get-post-install org-mode) (progn (funcall final-func package)) (if (functionp final-func) (progn (funcall final-func package))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))) (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))) (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if 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))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) 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 next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err))) el-get-start-process-list(org-mode (nil (:command-name "git submodule update" :buffer-name "git clone org-mode" :default-directory "/home/yongqi/.emacs.d/el-get/org-mode/" :program "/bin/git" :args ("--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules")) el-get-post-install) (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ((temp-file infile) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...)))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package))))) (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let (... ...) (unwind-protect ... ...))))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn (make-temp-file "el-get")))) (dummy (if infile (progn (let ... ...)))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer (set-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)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size (+ 100 max-specpdl-size))) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter))))) (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell (function call-process-shell-command) (function call-process))) (infile (if stdin (progn ...))) (dummy (if infile (progn ...))) (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))) (if el-get-verbose (progn (message "%S" (save-current-buffer ... ...)))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let ((max-specpdl-size ...)) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn (funcall final-func package)))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf (if shell ... ...)) (infile (if stdin ...)) (dummy (if 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))) (if el-get-verbose (progn (message "%S" ...))) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer (selected-window) cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn (delete-file infile))) (if cbuf (progn (kill-buffer cbuf))) (if next (let (...) (el-get-start-process-list package next final-func)) (if (functionp final-func) (progn ...))))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell (function start-process-shell-command) (function start-process))) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (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 next) (if stdin (progn (process-send-string proc (el-get-print-to-string stdin)) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) (condition-case err (if commands (let* ((c (car commands)) (next (cdr commands)) (cdir (plist-get c :default-directory)) (cname (plist-get c :command-name)) (cbuf (plist-get c :buffer-name)) (killed (if (get-buffer cbuf) (progn (kill-buffer cbuf)))) (filter (plist-get c :process-filter)) (shell (plist-get c :shell)) (program (if shell (el-get-shell-quote-program (plist-get c :program)) (plist-get c :program))) (args (if shell (mapcar (function el-get-maybe-shell-quote-argument) (plist-get c :args)) (plist-get c :args))) (sync (el-get-plist-get-with-default 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 program nil (error "el-get: :program argument cannot be nil")) (if sync (progn (el-get-verbose-message "Running commands synchronously: %S" commands) (let* ((startf ...) (infile ...) (dummy ...) (dummy ...) (status ...) (message ...) (errorm ...)) (if el-get-verbose (progn ...)) (if (eq 0 status) (message "el-get: %s" message) (set-window-buffer ... cbuf) (error "el-get: %s %s" cname errorm)) (if infile (progn ...)) (if cbuf (progn ...)) (if next (let ... ...) (if ... ...)))) (el-get-verbose-message "Running commands asynchronously: %S" commands) (let* ((startf (if shell ... ...)) (process-connection-type nil) (proc (apply startf cname cbuf program args))) (mapc (function (lambda ... ...)) 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 next) (if stdin (progn (process-send-string proc ...) (process-send-eof proc))) (set-process-sentinel proc (quote el-get-start-process-list-sentinel)) (if filter (progn (set-process-filter proc filter)))))) (if (functionp final-func) (progn (funcall final-func package)))) ((debug error) (el-get-installation-failed package err))) el-get-start-process-list(org-mode ((:command-name "git clone org-mode" :buffer-name "git clone org-mode" :default-directory "/home/yongqi/.emacs.d/el-get" :program "/bin/git" :args ("--no-pager" "clone" "--depth" "1" "git://orgmode.org/org-mode.git" "org-mode") :message "Package org-mode installed." :error "Could not install package org-mode.") nil (:command-name "git submodule update" :buffer-name "git clone org-mode" :default-directory "/home/yongqi/.emacs.d/el-get/org-mode/" :program "/bin/git" :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)) (pname (el-get-as-string package)) (name (format "git clone %s" package)) (source (el-get-package-def package)) (branch (plist-get source :branch)) (submodule-prop (plist-get source :submodule)) (explicit-nosubmodule (and (plist-member source :submodule) (not submodule-prop))) (checkout (or (plist-get source :checkout) (plist-get source :checksum))) (shallow (if (el-get-git-shallow-clone-supported-p url) (progn (el-get-plist-get-with-default source :shallow el-get-git-shallow-clone)))) (clone-args (append (quote ("--no-pager" "clone")) (if shallow (progn (quote ("--depth" "1")))) (cond (checkout (quote ("--no-checkout"))) (branch (list "-b" branch)) (t nil)) (list url pname))) (ok (format "Package %s installed." package)) (ko (format "Could not install package %s." package))) (el-get-insecure-check package url) (el-get-start-process-list package (list (list (quote :command-name) name (quote :buffer-name) name (quote :default-directory) el-get-dir (quote :program) git-executable (quote :args) clone-args (quote :message) ok (quote :error) ko) (if checkout (progn (list :command-name (format "git checkout %s" checkout) :buffer-name name :default-directory pdir :program git-executable :args (list "--no-pager" "checkout" checkout) :message (format "git checkout %s ok" checkout) :error (format "Could not checkout %s for package %s" checkout package)))) (if explicit-nosubmodule nil (list :command-name "git submodule update" :buffer-name name :default-directory pdir :program git-executable :args (list "--no-pager" "submodule" "update" "--init" "--recursive") :message "git submodule update ok" :error "Could not update git submodules"))) post-install-fun)) el-get-git-clone(org-mode "git://orgmode.org/org-mode.git" el-get-post-install) funcall(el-get-git-clone org-mode "git://orgmode.org/org-mode.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)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." 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)) (if (el-get-package-is-installed package) (progn (el-get-verbose-message "el-get: `%s' package is already installed" package) (el-get-do-init package)) (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)) (pdir (el-get-package-directory package))) (el-get-error-unless-required-emacs-version source) (cond ((string= "installed" status) (error "Package %s is already installed." package)) ((string= "required" status) (message "Package %s previously failed to install, removing it first." package) (el-get-remove package)) ((file-exists-p pdir) (message "Package %s has an install dir but is not known to be installed. Removing it so we can install a known version." 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(org-mode) (progn (el-get-do-install p)) (condition-case err (progn (el-get-do-install p)) ((debug error) (display-warning (quote el-get) (concat (format "while installing %s: " p) (error-message-string err)) :error) nil)) (if (condition-case err (progn (el-get-do-install p)) ((debug error) (display-warning (quote el-get) (concat (format "while installing %s: " p) (error-message-string err)) :error) nil)) (progn (setq done (nconc done (list p))))) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (condition-case err (progn (el-get-do-install p)) ((debug error) (display-warning (quote el-get) (concat (format "while installing %s: " p) (error-message-string err)) :error) nil)) (progn (setq done (nconc done (list p))))) (setq --cl-var-- (cdr --cl-var--))) (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (condition-case err (progn (el-get-do-install p)) ((debug error) (display-warning (quote el-get) (concat (format "while installing %s: " p) (error-message-string err)) :error) nil)) (progn (setq done (nconc done (list p))))) (setq --cl-var-- (cdr --cl-var--))) nil) (let* ((p-s-alist (el-get-read-status-file)) (required (el-get-filter-package-alist-with-status p-s-alist "required")) (installed (el-get-filter-package-alist-with-status p-s-alist "installed")) (to-init (if packages (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (member ... installed) (progn ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) (mapcar (quote el-get-as-symbol) installed))) (init-deps (el-get-dependencies to-init)) (req-inits (let* ((--cl-var-- init-deps) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (member (el-get-as-string p) installed) (progn) (setq --cl-var-- (cons p --cl-var--))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (to-install (if packages (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (member p init-deps) (progn) (setq --cl-var-- ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) (mapcar (quote el-get-as-symbol) required))) (install-deps (el-get-dependencies to-install)) done) (if req-inits (progn (setq install-deps (append req-inits install-deps)) (setq init-deps (set-difference init-deps req-inits)))) (el-get-verbose-message "el-get-init-and-install: install %S" install-deps) (el-get-verbose-message "el-get-init-and-install: init %S" init-deps) (let* ((--cl-var-- install-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (condition-case err (progn (el-get-do-install p)) ((debug error) (display-warning (quote el-get) (concat ... ...) :error) nil)) (progn (setq done (nconc done (list p))))) (setq --cl-var-- (cdr --cl-var--))) nil) (let* ((--cl-var-- init-deps) (p nil) (done nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (condition-case err (progn (el-get-do-init p)) ((debug error) (display-warning (quote el-get) (concat ... ...) :error) nil)) (progn (setq done (nconc done (list p))))) (setq --cl-var-- (cdr --cl-var--))) nil) done) el-get-init-and-install((org-mode)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads)) (let* ((packages (let* ((--cl-var-- packages) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq p (car --cl-var--)) (if (listp p) (progn (setq --cl-var-- ...)) (setq --cl-var-- (cons p --cl-var--))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (el-get-default-process-sync sync)) (if el-get-is-lazy nil (el-get-eval-autoloads)) (prog1 (el-get-init-and-install (mapcar (quote el-get-as-symbol) packages)) (el-get-eval-autoloads))) el-get(sync ("org-mode")) eval-buffer(#<buffer load> nil "/home/yongqi/.emacs.d/init.el" nil t) ; Reading at buffer position 2934 load-with-code-conversion("/home/yongqi/.emacs.d/init.el" "/home/yongqi/.emacs.d/init.el" t t) load("/home/yongqi/.emacs.d/init" t t)
[0 "\205\262