Changeset 37756

Timestamp:

06/21/08 18:25:48 (5 months ago)

Author:

raimue@…

Message:

port/port.tcl:
Add new option --editor to port edit

Bug with "port ed --editor" fixed in r37786.

Files:

• trunk/base/src/port/port.tcl (modified) (3 diffs)

trunk/base/src/port/port.tcl

@@ -2242 +2242 @@
     global env boot_env
     global current_portdir
+
+    array set local_options $opts
     
     set status 0
@@ -2293 +2295 @@
                     # Find an editor to edit the portfile
                     set editor ""
-                    foreach ed { VISUAL EDITOR } {
-                        if {[info exists env($ed)]} {
-                            set editor $env($ed)
-                            break
+                    if {[info exists local_options(ports_edit_editor)]} {
+                        set editor $local_options(ports_edit_editor)
+                    } elseif {[info exists local_options(ports_ed_editor)]} {
+                        set editor $local_options(ports_edit_editor)
+                    } else {
+                        foreach ed { VISUAL EDITOR } {
+                            if {[info exists env($ed)]} {
+                                set editor $env($ed)
+                                break
+                            }
                         }
                     }
@@ -2624 +2632 @@
 global cmd_args_array
 array set cmd_args_array {
+    edit        {{editor 1}}
+    ed          {{editor 1}}
     info        {{category 0} {categories 0} {depends_build 0} {depends_lib 0}
                 {depends_run 0} {depends 0} {description 0} {epoch 0}