Permalink
Browse files

Add a timeout for elpa.

  • Loading branch information...
1 parent 58004f1 commit 2536ffcb13ec4dfbc5a87b661fa6227c5357f0d1 @technomancy committed Feb 18, 2009
Showing with 3 additions and 1 deletion.
  1. +3 −1 starter-kit-elpa.el
View
4 starter-kit-elpa.el
@@ -44,6 +44,7 @@
Windows does not have the network-interface-list function, so we
just have to assume it's online."
+ ;; TODO how could this work on Windows?
(if (and (functionp 'network-interface-list)
(network-interface-list))
(some (lambda (iface) (unless (equal "lo" (car iface))
@@ -53,6 +54,7 @@ just have to assume it's online."
t))
;; On your first run, this should pull in all the base packages.
-(when (esk-online?) (ignore-errors (starter-kit-elpa-install)))
+(when (esk-online?) (ignore-errors (with-timeout (15)
+ (starter-kit-elpa-install))))
(provide 'starter-kit-elpa)

0 comments on commit 2536ffc

Please sign in to comment.