Return to registers CVS log

Up to [Research Unix] / researchv9 / cmd / emacs / macros

researchv9-SUN3(old)

�		Put the current area into a register

C. Douglas Blewett (MH3-C-319) Version 4

This file contains two routines for implementing registers
(like those found in MIT EMACS or TECO).  M-P copies the current
area into the named register.  M-G copies the named register
to the current point.

	<_______reg:
	+					Get the string
	<Put Area into Register? 
	<_______reg:
	>
	|�				Conditional
		�&			Check for Null string
			-
		�				Null Check End
		� 				Default
			B%		Remember current buffer
			�%		Pickup the current area
			<.registers
						Go to .registers
			�			Go the top of the buffer
			0>
			|�		Conditional
				��	Check for reg already here
					�0>�-	Remove
				�		Check for reg End
			�			Conditional End
			�
--	Meta Moon and install
			�		Return to orig. buf.
		�
	�

�		Get (insert) the contents of a register
	<_______reg:
	+					Get the string
	<Get Area from Register? 
	<_______reg:
	>
	|�				Conditional
		�&			Check for Null string
			-
		�				Null Check End
		� 				Default
			B%		Remember current buffer
			<.registers
						Go to .registers
			0>
			�			Go the top of the buffer
			|�		Conditional
				��	Check for reg already here
					���	Pickup the text
				�		Check for reg End
				� 		Default
				-0<Cannot find a register by that name.
					<
				�
			�			Conditional End
			%		Return to orig. buf.
		�	
	�	


This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.