Check-in [3f26366090]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix find-prev-chatline problem
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3f263660901bf3b6448b71c74cae497500170ebc
User & Date: bernd 2019-05-30 20:51:31
Context
2019-05-30
23:51
Add correct group to newly added/blocked users check-in: ada3faa9e3 user: bernd tags: trunk
20:51
Fix find-prev-chatline problem check-in: 3f26366090 user: bernd tags: trunk
13:12
Bump version number check-in: ff3f0507b8 user: bernd tags: trunk, 0.8.9-20190530
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to msg.fs.

   985    985       2dup + sigsize# - le-64@ line-date 64! ;
   986    986   : find-prev-chatline { maxlen addr -- max span addr span }
   987    987       msg-group$ $@ ?msg-log
   988    988       last# cell+ $[]# 0= IF  maxlen 0 addr over  EXIT  THEN
   989    989       line-date 64@ date>i'
   990    990       BEGIN  1- dup 0>= WHILE  dup last# cell+ $[]@
   991    991   	dup sigpksize# - /string key| pk@ key| str=  UNTIL  THEN
   992         -    last# cell+ $[]@ !date ['] msg:display textmsg-o .$tmp 
   993         -    dup maxlen u> IF  dup >r maxlen 0 addr over r> grow-tib
   994         -	2drop to addr drop to maxlen  THEN
   995         -    tuck addr maxlen smove
          992  +    last# cell+ $[]@ dup 0= IF  nip
          993  +    ELSE  !date ['] msg:display textmsg-o .$tmp 
          994  +	dup maxlen u> IF  dup >r maxlen 0 addr over r> grow-tib
          995  +	    2drop to addr drop to maxlen  THEN
          996  +	tuck addr maxlen smove
          997  +    THEN
   996    998       maxlen swap addr over ;
   997    999   : find-next-chatline { maxlen addr -- max span addr span }
   998   1000       msg-group$ $@ ?msg-log
   999   1001       line-date 64@ date>i
  1000   1002       BEGIN  1+ dup last# cell+ $[]# u< WHILE  dup last# cell+ $[]@
  1001   1003   	dup sigpksize# - /string key| pk@ key| str=  UNTIL  THEN
  1002   1004       dup last# cell+ $[]# u>=