;** Barbara Becker - Aug 16, 1986
;**
;** mark_cut   Normal cut operation except: If no area is marked, instead of
;**            an error message, this macro marks the current line.
;**
;** mark_copy  Same as above for copy operation.
;**
;** If these macros are assigned to the Grey-Minus and Grey-Plus they make
;** for very quick line copies or moves. To move a line, just hit the
;** Grey-Minus key twice then follow the normal insert procedure. To copy,
;** hit the Grey-Plus twice, etc.
;**
;** Note: These are my first macros, and are probably the equivalent of
;**       printf("Hello, world"), but hopefully someone besides me will find
;**       them useful...



(macro mark_cut
   (
      (if (inq_marked)
            (cut)                   ; if a block is already marked, cut it
      ;else
         (
            (beginning_of_line)     ; otherwise, mark the current line
            (drop_anchor)
            (end_of_line)
         )
      )
   )
)


(macro mark_copy
   (
      (if (inq_marked)
            (copy)                  ; if a block is already marked, copy it
      ;else
         (
            (beginning_of_line)     ; otherwise, mark the current line
            (drop_anchor)
            (end_of_line)
         )
      )
   )
)

