home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
wp
/
bmacs.zip
/
MARKCUT.M
< prev
next >
Wrap
Text File
|
1986-08-17
|
1KB
|
48 lines
;** 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)
)
)
)
)