Created
March 27, 2011 22:06
-
-
Save milkypostman/889678 to your computer and use it in GitHub Desktop.
Bug with el-get
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Debugger entered--Lisp error: (void-variable el-get-cvs) | |
symbol-value(el-get-cvs) | |
(let ((command (symbol-value vname))) (unless (and (file-exists-p command) (file-executable-p command)) (error (concat "The variable `%s' points to \"%s\", " "which is not an executable file name on your system.") name command)) command) | |
(cond ((fboundp fname) (funcall fname)) ((bound-and-true-p vname) (let ((command (symbol-value vname))) (unless (and (file-exists-p command) (file-executable-p command)) (error (concat "The variable `%s' points to \"%s\", " "which is not an executable file name on your system.") name command)) command)) (t (let ((command (executable-find name))) (unless command (error "The command named '%s' can not be found with `executable-find'" name)) command))) | |
(let ((fname (intern (format "el-get-%s-executable" name))) (vname (intern (format "el-get-%s" name)))) (cond ((fboundp fname) (funcall fname)) ((bound-and-true-p vname) (let ((command (symbol-value vname))) (unless (and (file-exists-p command) (file-executable-p command)) (error (concat "The variable `%s' points to \"%s\", " "which is not an executable file name on your system.") name command)) command)) (t (let ((command (executable-find name))) (unless command (error "The command named '%s' can not be found with `executable-find'" name)) command)))) | |
el-get-executable-find("cvs") | |
(let* ((cvs-executable (el-get-executable-find "cvs")) (source (el-get-package-def package)) (module (plist-get source :module)) (options (plist-get source :options)) (name (format "*cvs checkout %s*" package)) (ok (format "Checked out package %s." package)) (ko (format "Could not checkout package %s." package))) (el-get-start-process-list package (\` ((\,@ (when (string= options "login") (\` (...)))) (:command-name (\, name) :buffer-name (\, name) :default-directory (\, el-get-dir) :program (\, cvs-executable) :args ("-d" (\, url) "checkout" "-d" (\, package) (\, module)) :message (\, ok) :error (\, ko)))) post-install-fun)) | |
el-get-cvs-checkout("auctex" ":pserver:[email protected]:/sources/auctex" el-get-post-install) | |
funcall(el-get-cvs-checkout "auctex" ":pserver:[email protected]:/sources/auctex" el-get-post-install) | |
(let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (plist-get source :type)) (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") (el-get-invalidate-autoloads package) (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package)) | |
(let ((el-get-sources (el-get-read-all-recipes (quote merge)))) (el-get-error-unless-package-p package) (let* ((status (el-get-read-package-status package)) (source (el-get-package-def package)) (method (plist-get source :type)) (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") (el-get-invalidate-autoloads package) (funcall install package url (quote el-get-post-install)) (message "el-get install %s" package))) | |
el-get-install("auctex") | |
(if (el-get-package-exists-p package) (if (and status (string= "installed" status)) (condition-case err (el-get-init package) ((debug error) (message "%S" (error-message-string err)))) (message "Package %s failed to install, remove it first." package)) (el-get-install package)) | |
(let* ((package (el-get-source-name source)) (status (el-get-package-status package p-status))) (if (el-get-package-exists-p package) (if (and status (string= "installed" status)) (condition-case err (el-get-init package) ((debug error) (message "%S" (error-message-string err)))) (message "Package %s failed to install, remove it first." package)) (el-get-install package))) | |
el-get-install-or-init(auctex (:el-get "installed" :magit "installed" :yasnippet "required" :python "installed" :pymacs "installed" :auctex "required")) | |
(lambda (s) (el-get-install-or-init s p-status))(auctex) | |
mapc((lambda (s) (el-get-install-or-init s p-status)) (el-get magit yasnippet python pymacs auctex scala-mode ess color-theme color-theme-almost-monokai color-theme-railscasts color-theme-twilight color-theme-chocolate-rain color-theme-sanityinc color-theme-zen-and-art color-theme-desert color-theme-subdued color-theme-zenburn color-theme-ir-black color-theme-tango-2 color-theme-mac-classic color-theme-tango)) | |
(let ((el-get-sources (if source-list (loop for sources in source-list when (and (listp sources) (not (plist-member sources :name))) append sources else collect sources) el-get-sources))) (mapc (lambda (s) (el-get-install-or-init s p-status)) el-get-sources)) | |
(prog1 (let ((el-get-sources (if source-list (loop for sources in source-list when (and (listp sources) (not ...)) append sources else collect sources) el-get-sources))) (mapc (lambda (s) (el-get-install-or-init s p-status)) el-get-sources)) (when progress (while (> (- total installed) 0) (sleep-for 0.2) (setq installed (el-get-count-package-with-status "installed" "required")) (progress-reporter-update progress (- total installed))) (progress-reporter-done progress))) | |
(let* ((p-status (el-get-read-all-packages-status)) (total (length (el-get-package-name-list))) (installed (el-get-count-package-with-status "installed")) (progress (and (eq sync (quote wait)) (make-progress-reporter "Waiting for `el-get' to complete… " 0 (- total installed) 0))) (el-get-default-process-sync sync)) (prog1 (let ((el-get-sources (if source-list (loop for sources in source-list when (and ... ...) append sources else collect sources) el-get-sources))) (mapc (lambda (s) (el-get-install-or-init s p-status)) el-get-sources)) (when progress (while (> (- total installed) 0) (sleep-for 0.2) (setq installed (el-get-count-package-with-status "installed" "required")) (progress-reporter-update progress (- total installed))) (progress-reporter-done progress)))) | |
el-get() | |
eval((el-get)) | |
eval-last-sexp-1(nil) | |
eval-last-sexp(nil) | |
call-interactively(eval-last-sexp nil nil) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment