felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 14:59:20 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

-- Fixed minor bug in regexp to pick out tags.

Browse Source
This commit is contained in:
dfs
1998-05-01 02:19:52 +00:00
parent 8dac9848ee
commit a8e977f8b7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/tkremind
View File

@@ -11,7 +11,7 @@
#
#--------------------------------------------------------------
# $Id: tkremind,v 1.19 1998-04-23 02:56:46 dfs Exp $
# $Id: tkremind,v 1.20 1998-05-01 02:19:52 dfs Exp $
# the next line restarts using wish \
exec wish "$0" "$@"
@@ -618,7 +618,7 @@ proc FillCalWindow {} {
if { [string length [string trim [.cal.t$n get 1.0]]] != 0} {
.cal.t$n insert end " .....\n"
}
if {[regexp {TKTAG([0-9])+} $tag all tagno]} {
if {[regexp {TKTAG([0-9]+)} $tag all tagno]} {
.cal.t$n insert end [string trim $stuff] "TAGGED TKTAG$tagno"
} else {
.cal.t$n insert end [string trim $stuff]