Skip to content

Instantly share code, notes, and snippets.

@milkypostman
Created March 27, 2011 22:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save milkypostman/889678 to your computer and use it in GitHub Desktop.
Save milkypostman/889678 to your computer and use it in GitHub Desktop.
Bug with el-get
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:anonymous@cvs.sv.gnu.org:/sources/auctex" el-get-post-install)
funcall(el-get-cvs-checkout "auctex" ":pserver:anonymous@cvs.sv.gnu.org:/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