X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/blobdiff_plain/7f50b5a80358ff9544ad3b965ed88dcf41d252a4..ceff67f235913a8b72cfd68e48d1dbee1a5c4575:/elite-editor

diff --git a/elite-editor b/elite-editor
index 631e30d..e92578e 100755
--- a/elite-editor
+++ b/elite-editor
@@ -1,6 +1,6 @@
 #! /usr/bin/wish
 #
-# $Id: elite-editor,v 1.5 2003/03/01 17:47:07 mdw Exp $
+# $Id: elite-editor,v 1.6 2003/03/02 12:28:14 mdw Exp $
 
 package require "elite" "1.0.0"
 
@@ -1166,12 +1166,23 @@ wm withdraw .
 
 if {[llength $argv]} {
   foreach a $argv {
-    set g [parse-galaxy-spec $a]
-    if {[llength $g]} {
-      destructure {ng g} $g
-      map-new $ng $g
-    } else {
-      cmdr-load $a
+    switch -glob -- $a {
+      "-jameson" {
+	cmdr-new
+      }
+      "-*" {
+	puts stderr "$argv0: unknown option: $a"
+	exit 1
+      }
+      default {
+	set g [parse-galaxy-spec $a]
+	if {[llength $g]} {
+	  destructure {ng g} $g
+	  map-new $ng $g
+	} else {
+	  cmdr-load $a
+	}
+      }
     }
   }
 } else {