Return to shift CVS log

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

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

1.1     ! root        1: �             shift marked area right or (arg != 1) left
        !             2: 
        !             3:       C. Douglas Blewett, modified by Joe Steffen
        !             4: 
        !             5:       Shift a region right or left.  An argument of != 1 shift
        !             6:       left, otherwise right.  This is useful for programing in
        !             7:       an indented language.
        !             8:       
        !             9:       The last line is shifted only if the region contains some 
        !            10:       part of it.  This allows shifting a region containing the
        !            11:       last line even if it does not end with a newline character.
        !            12:       
        !            13: 12�                          Mark the bottom
        !            14: 4�0=                               Get one line number
        !            15:                                     Goto the other end of the region
        !            16: 3�0=                               Get the other line number
        !            17:                                     Return to the original end of the region
        !            18: |�
        !            19:        �3~34  If cursor is at the top of the region
        !            20:                                             Goto the bottom
        !            21:        �
        !            22: �
        !            23:                                       The cursor is now at the bottom
        !            24:                                       If at beginning of line
        !            25:                                              Goto to previous line
        !            26: 4�0=                               Get the bottom line number
        !            27:                                     Goto the top
        !            28: 3�0=                               Get the top line number
        !            29:                                     Goto the bottom
        !            30: 5�12~43              Number of lines
        !            31: 5�11~51               Plus 1
        !            32: ^�5�12~51    Loop count times
        !            33:        &|�
        !            34:                �1~1     Arg == 1 insert
        !            35:                               
        !            36:                �
        !            37:                �                      Delete
        !            38:                        !�11~64        White space
        !            39:                                �`             Space
        !            40:                                        
        !            41:                                �
        !            42:                                �I     Tab
        !            43:                                        
        !            44:                                �
        !            45:                        �
        !            46:                �
        !            47:        �
        !            48:        &                             Advance to next line
        !            49: �
        !            50: 12                         Goto the bottom
        !            51: 

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