{{{  comments
; this macro replaces the originial origami-function move-line.
; copy-to-kill-buffer and insert-folded-kill-buffer. They
; It works in the same way but displays a '*' in the statusline and
; sets variable moving-line to 1, if move-buffer isn't empty.
;
; you can use the following symbols to control the compilation:
; MY-MOVE-MODESTRING - You have to define the user-mode ML to show a non-empty
;                      move-buffer yourself!
; NO-MOVE-MODESTRING - Don't mark a non-empty move-buffer in statusline
;                      The usermode ML isn't defined.
}}}
@if-using not(MOVE-MARK)
   @use (MOVE-MARK)
   @if-using not(NO-MOVE-MODESTRING MY-MOVE-MODESTRING)
      ( defmodestring ML   "*    "* )
   @fi
   ( defvar ( moving-line ) )      ; line in move-buffer
   {{{  move-line-
   ( deffun move-line-
      ( if counter>0 moving-line
         ( if not(test-top) ( move-line set-counter moving-line 0 ) fi )
        else
         ( if or(test-text test-fold-line test-filed)
            ( move-line set-counter moving-line 1 )
           fi
         )
        fi
        @if-using not(NO-MOVE-MODESTRING)
           if counter>0 moving-line
            ( set-user-mode ML )
           else
            ( reset-user-mode ML )
           fi
        @fi
      )
   )
   }}}
@fi
