[29045] trunk/base/src/port1.0/portlint.tcl

[source_changes at macosforge.org]

Revision: 29045
          http://trac.macosforge.org/projects/macports/changeset/29045
Author:   afb at macports.org
Date:     2007-09-13 11:12:30 -0700 (Thu, 13 Sep 2007)

Log Message:
-----------
allow those pesky modelines

Modified Paths:
--------------
    trunk/base/src/port1.0/portlint.tcl

Modified: trunk/base/src/port1.0/portlint.tcl
===================================================================
--- trunk/base/src/port1.0/portlint.tcl	2007-09-13 17:57:27 UTC (rev 29044)
+++ trunk/base/src/port1.0/portlint.tcl	2007-09-13 18:12:30 UTC (rev 29045)
@@ -147,6 +147,7 @@
     ###################################################################
     ui_debug "$portfile"
 
+    set topline_number 1
     set require_blank false
     set require_after ""
     set seen_portsystem false
@@ -190,11 +191,15 @@
             incr warnings
         }
 
-        if {($lineno == 1) && ![string match "*\$Id*" $line]} {
-            ui_warn "Line 1 is missing RCS tag (\$Id)"
+        if {($lineno == $topline_number) && [string match "*-\*- Mode:*" $line]} {
+            ui_info "OK: Line $lineno has emacs/vim Mode"
+            incr topline_number
+        }
+        if {($lineno == $topline_number) && ![string match "*\$Id*" $line]} {
+            ui_warn "Line $lineno is missing RCS tag (\$Id)"
             incr warnings
-        } elseif {($lineno == 1)} {
-            ui_info "OK: Line 1 has RCS tag (\$Id)"
+        } elseif {($lineno == $topline_number)} {
+            ui_info "OK: Line $lineno has RCS tag (\$Id)"
             set require_blank true
             set require_after "RCS tag"
         }

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070913/b0e2b38f/attachment.html