[SLOF] [PATCH] slof/fs/accept: Replace TABs with spaces

[Greg Kurz]

On Mon, 30 Aug 2021 14:13:20 +0200
Thomas Huth <thuth at redhat.com> wrote:

> SLOF coding style is to use spaces in Forth code, not TABs, and the TAB
> in the (accept) function breaks the right indentation in my editor, so
> let's replace the TABs in this file with spaces now.
> 
> Signed-off-by: Thomas Huth <thuth at redhat.com>
> ---

Reviewed-by: Greg Kurz <groug at kaod.org>

>  slof/fs/accept.fs | 24 ++++++++++++------------
>  1 file changed, 12 insertions(+), 12 deletions(-)
> 
> diff --git a/slof/fs/accept.fs b/slof/fs/accept.fs
> index 26e9216..c06508b 100644
> --- a/slof/fs/accept.fs
> +++ b/slof/fs/accept.fs
> @@ -140,8 +140,8 @@ CONSTANT /his
>     repeat
>     2drop
>  
> -   #sift-count 0 to #sift-count	\ how many words were found?
> -   r> to sift-compl-only		\ restore sifting completion mode
> +   #sift-count 0 to #sift-count         \ how many words were found?
> +   r> to sift-compl-only                \ restore sifting completion mode
>  ;
>  
>  \ 8< node sifting for tab completion on device tree nodes below this line 8<
> @@ -206,7 +206,7 @@ create sift-node-buffer 1000 allot
>        THEN
>     REPEAT
>     2drop drop
> -   #sift-count 0 to #sift-count	\ how many words were found?
> +   #sift-count 0 to #sift-count         \ how many words were found?
>     reset-stack
>  ;
>  
> @@ -215,14 +215,14 @@ create sift-node-buffer 1000 allot
>  
>     dup IF bl rsplit dup IF 2swap THEN ELSE 0 0 THEN >r >r
>  
> -   0 dup to tab-last-len to tab-last-adr	\ reset last possible match
> -   current-node @ IF			\ if we are in a node?
> -      2dup 2>r				\ save text
> -      $tab-sift-words to #sift-count	\ search in current node first
> -      2r>				\ fetch text to complete, again
> +   0 dup to tab-last-len to tab-last-adr  \ reset last possible match
> +   current-node @ IF                      \ if we are in a node?
> +      2dup 2>r                            \ save text
> +      $tab-sift-words to #sift-count      \ search in current node first
> +      2r>                                 \ fetch text to complete, again
>     THEN
>     2dup 2>r
> -   current-node @ >r 0 set-node		\ now search in global words
> +   current-node @ >r 0 set-node           \ now search in global words
>     $tab-sift-words to #sift-count
>     r> set-node
>     2r> $tab-sift-nodes
> @@ -256,8 +256,8 @@ create sift-node-buffer 1000 allot
>        ELSE
>           tab-last-adr accept-adr tab-last-len move    \ copy matching substring
>           tab-last-len dup to accept-len to accept-cur \ len and cursor position
> -         full-redraw-line		\ redraw new string
> -         true to ?tab-pressed	\ second tab will print possible matches
> +         full-redraw-line       \ redraw new string
> +         true to ?tab-pressed   \ second tab will print possible matches
>        THEN
>     THEN
>  ;
> @@ -401,7 +401,7 @@ TABLE-EXECUTE handle-control
>              dup a0 < IF 7f and handle-meta ELSE drop beep THEN
>           ELSE
>              insert-char
> -	 THEN
> +         THEN
>        THEN
>     REPEAT
>     drop add-history