Return to registers CVS log

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

Annotation of researchv9/cmd/emacs/macros/registers, revision 1.1

1.1     ! root        1: �             Put the current area into a register
        !             2: 
        !             3: C. Douglas Blewett (MH3-C-319) Version 4
        !             4: 
        !             5: This file contains two routines for implementing registers
        !             6: (like those found in MIT EMACS or TECO).  M-P copies the current
        !             7: area into the named register.  M-G copies the named register
        !             8: to the current point.
        !             9: 
        !            10:        <_______reg:
        !            11:        +                                     Get the string
        !            12:        <Put Area into Register? 
        !            13:        <_______reg:
        !            14:        >
        !            15:        |�                            Conditional
        !            16:                �&                    Check for Null string
        !            17:                        -
        !            18:                �                              Null Check End
        !            19:                �                              Default
        !            20:                        B%           Remember current buffer
        !            21:                        �%            Pickup the current area
        !            22:                        <.registers
        !            23:                                             Go to .registers
        !            24:                        �                      Go the top of the buffer
        !            25:                        0>
        !            26:                        |�            Conditional
        !            27:                                ��     Check for reg already here
        !            28:                                        �0>�-  Remove
        !            29:                                �              Check for reg End
        !            30:                        �                      Conditional End
        !            31:                        �&--  Meta Moon and install
        !            32:                        �            Return to orig. buf.
        !            33:                �
        !            34:        �
        !            35: 
        !            36: �             Get (insert) the contents of a register
        !            37:        <_______reg:
        !            38:        +                                     Get the string
        !            39:        <Get Area from Register? 
        !            40:        <_______reg:
        !            41:        >
        !            42:        |�                            Conditional
        !            43:                �&                    Check for Null string
        !            44:                        -
        !            45:                �                              Null Check End
        !            46:                �                              Default
        !            47:                        B%           Remember current buffer
        !            48:                        <.registers
        !            49:                                             Go to .registers
        !            50:                        0>
        !            51:                        �                      Go the top of the buffer
        !            52:                        |�            Conditional
        !            53:                                ��     Check for reg already here
        !            54:                                        ���   Pickup the text
        !            55:                                �              Check for reg End
        !            56:                                �              Default
        !            57:                                -0<Cannot find a register by that name.
        !            58:                                        <
        !            59:                                �
        !            60:                        �                      Conditional End
        !            61:                        %          Return to orig. buf.
        !            62:                �      
        !            63:        �      
        !            64: 

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