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

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.