;
;   .emacsrc sample for MicroEmacs 4.00
;
; macros copyright by Tsutomu Onishi 1996
;

;
;	initialize
;

set $discmd FALSE
set $asave 80

;	Set Default Global modes

add-global-mode "MAGIC"



;
;	macros
;

store-procedure delete-a-line
	set %ccol $curcol
	set $line ""
	!force delete-next-character
	!force set $curcol %ccol
!endm


store-procedure dup-a-line
	set %ccol $curcol
	set %dup &cat $line "~r"
	beginning-of-line
	insert-string %dup
	set $curcol %ccol
	set %dup ""
!endm


store-procedure quote-yank
	set %s_line $curline
	yank
	!if &not &equ $curcol 0
		newline
	!endif
	set %e_line $curline
	set $curline %s_line
	!while &less %s_line %e_line
		insert-string "> "
		beginning-of-line
		next-line
		set %s_line &add %s_line 1
	!endwhile
!endm


;
;	bindings
;

bind-to-key undo ^Z
bind-to-key execute-procedure ^XX

macro-to-key delete-a-line M-L
macro-to-key dup-a-line ^X^D
macro-to-key quote-yank M-Y


set $discmd TRUE