@@ -30,6 +30,7 @@ set curselection ""

 set lastseconds 0

 set nstolen 0

+set lastfile ""

 proc selectionlost {} {

         global curselection

@@ -47,9 +48,11 @@ proc selectionlost {} {

                 set nstolen 0

         }

         # process the selection

-        set curselection [selection get -selection PRIMARY]

-        puts $curselection

-        checkselection $curselection

+        catch {

+                set curselection [selection get -selection PRIMARY]

+                puts $curselection

+                checkselection $curselection

+        }

         selection own -selection PRIMARY -command selectionlost "."

 }

@@ -59,12 +62,10 @@ proc selectionrequest { offset maxchars } {

 }

 proc checkselection { curselection } {

-        global env

+        global env lastfile

         set socketsdir /tmp/.re_$env(USER)

-	set filenames [list]

-	catch {

-	        set filenames [glob -tails -directory $socketsdir ) *]

-	}

+        set filenames [glob -tails -directory $socketsdir ) *]

+        # search for occurrences of <filename>:<line>[:<col>]

         foreach f $filenames {

                 set index -1

                 set flen [string length $f]

@@ -82,9 +83,14 @@ proc checkselection { curselection } {

                                 }

                                 set newpos [string range $curselection $startindex $index-1]

                                 remotecontrol $socketsdir $f "goto $newpos"

+                                set lastfile $f

                         }

                 }

         }

+        # if it is just <line>, set last used file to that line (useful for gdb)

+        if { [string length $lastfile]>0 && [string is ascii $curselection] && [string is digit $curselection] } {

+                remotecontrol $socketsdir $lastfile "goto $curselection"

+        }

 }

 proc remotecontrol { socketsdir filename command } {