home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / wp / bmacs.zip / MARKCUT.M < prev    next >
Text File  |  1986-08-17  |  1KB  |  48 lines
  1. ;** Barbara Becker - Aug 16, 1986
  2. ;**
  3. ;** mark_cut   Normal cut operation except: If no area is marked, instead of
  4. ;**            an error message, this macro marks the current line.
  5. ;**
  6. ;** mark_copy  Same as above for copy operation.
  7. ;**
  8. ;** If these macros are assigned to the Grey-Minus and Grey-Plus they make
  9. ;** for very quick line copies or moves. To move a line, just hit the
  10. ;** Grey-Minus key twice then follow the normal insert procedure. To copy,
  11. ;** hit the Grey-Plus twice, etc.
  12. ;**
  13. ;** Note: These are my first macros, and are probably the equivalent of
  14. ;**       printf("Hello, world"), but hopefully someone besides me will find
  15. ;**       them useful...
  16.  
  17.  
  18.  
  19. (macro mark_cut
  20.    (
  21.       (if (inq_marked)
  22.             (cut)                   ; if a block is already marked, cut it
  23.       ;else
  24.          (
  25.             (beginning_of_line)     ; otherwise, mark the current line
  26.             (drop_anchor)
  27.             (end_of_line)
  28.          )
  29.       )
  30.    )
  31. )
  32.  
  33.  
  34. (macro mark_copy
  35.    (
  36.       (if (inq_marked)
  37.             (copy)                  ; if a block is already marked, copy it
  38.       ;else
  39.          (
  40.             (beginning_of_line)     ; otherwise, mark the current line
  41.             (drop_anchor)
  42.             (end_of_line)
  43.          )
  44.       )
  45.    )
  46. )
  47.  
  48.