--- ray/src/util/gethelp.tcl	1995/09/13 14:51:06	2.1
+++ ray/src/util/gethelp.tcl	2003/02/22 02:07:30	2.4
@@ -1,4 +1,4 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: gethelp.tcl,v 2.4 2003/02/22 02:07:30 greg Exp $
 #
 # Get help from a file, formatted like so:
 #
@@ -129,7 +129,7 @@ proc helpopen fname {			# open the named help file
 	.helpwin.txt insert end "Loading $fname..."
 	update
 	set curhelp(fid) [open $fname r]
-	if {! [file exists $ifile] ||
+	if {! [file isfile $ifile] ||
 			[file mtime $fname] > [file mtime $ifile]} {
 		set helpindex(catlist) {}
 		while {[gets $curhelp(fid) li] >= 0} {
@@ -230,9 +230,9 @@ proc helpupdate {} {			# update help text window
 				if [regexp -nocase -indices \
 						$curhelp(search) $li mi] {
 					.helpwin.txt tag add highlight\
-							"end - 1 c - $ll c\
+							"end - 2 c - $ll c\
 							+ [lindex $mi 0] c"\
-							"end - $ll c\
+							"end - 1 c - $ll c\
 							+ [lindex $mi 1] c"
 				}
 			}
@@ -246,7 +246,7 @@ proc helpupdate {} {			# update help text window
 	# Highlight next category and topic
 	if {$ll > 0} {
 		.helpwin.txt insert end "Next:  $cat $top"
-		.helpwin.txt tag add highlight "end linestart" end
+		.helpwin.txt tag add highlight end-1lines end
 		set curhelp(next) "$cat $top"
 		.helpwin.but.next configure -state normal
 	} else {