We can't rely on network-interfaces-list; it's not defined on w32.

technomancy · Dec 27, 2008 · c54067d · c54067d
1 parent 0a1719d
commit c54067d
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/starter-kit-elpa.el b/starter-kit-elpa.el
@@ -43,10 +43,16 @@
       (package-install package))))
 
 (defun esk-online? ()
-  (some (lambda (iface) (unless (equal "lo" (car iface))
-                     (member 'up (first (last (network-interface-info
-                                               (car iface)))))))
-        (network-interface-list)))
+  "See if we're online.
+
+Windows does not have the network-interface-list function, so we
+just have to assume it's online."
+  (if (functionp 'network-interface-list)
+      (some (lambda (iface) (unless (equal "lo" (car iface))
+                         (member 'up (first (last (network-interface-info
+                                                   (car iface)))))))
+            (network-interface-list))
+    t))
 
 ;; On your first run, this should pull in all the base packages.
 (when (esk-online?) (starter-kit-elpa-install))