Ignore:
Timestamp:
Sep 13, 2007, 6:12:30 PM (10 years ago)
Author:
afb@…
Message:

allow those pesky modelines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portlint.tcl

    r29044 r29045  
    148148    ui_debug "$portfile"
    149149
     150    set topline_number 1
    150151    set require_blank false
    151152    set require_after ""
     
    191192        }
    192193
    193         if {($lineno == 1) && ![string match "*\$Id*" $line]} {
    194             ui_warn "Line 1 is missing RCS tag (\$Id)"
     194        if {($lineno == $topline_number) && [string match "*-\*- Mode:*" $line]} {
     195            ui_info "OK: Line $lineno has emacs/vim Mode"
     196            incr topline_number
     197        }
     198        if {($lineno == $topline_number) && ![string match "*\$Id*" $line]} {
     199            ui_warn "Line $lineno is missing RCS tag (\$Id)"
    195200            incr warnings
    196         } elseif {($lineno == 1)} {
    197             ui_info "OK: Line 1 has RCS tag (\$Id)"
     201        } elseif {($lineno == $topline_number)} {
     202            ui_info "OK: Line $lineno has RCS tag (\$Id)"
    198203            set require_blank true
    199204            set require_after "RCS tag"
Note: See TracChangeset for help on using the changeset viewer.