Return to kbd_mac CVS log

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

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

1.1     ! root        1: �name_kbdmac  names keyboard macro. prompts for name
        !             2: <save
        !             3: 2�
turn off autosave, but first save its current status
        !             4: B                     save current buffer name
        !             5: <kbdmac
        !             6:                      go to kbdmac buffer
        !             7: <$HOME/.emacs_kbd
        !             8:                      read in the default kbdmac file
        !             9:                      pause to show it off, with a recursive edit. 
        !            10: <Name for this kbdmac? 
        !            11: 0>                   copy this file name on kill stack
        !            12: �$HOME/.kbdmac.dir/km.-set up line w/filename for macro
        !            13: &-          kill the first line putting filename on stack 
        !            14:                      write to new name
        !            15: �fix.kmac.doc
        !            16: <save
        !            17: 2
restore save mode status
        !            18: 
        !            19: ,fix.kmac.doc fix kboard macro documentation and return to
        !            20:                        orig buffer 
        !            21:                        requires macroname(top) and orig buffer(2)
        !            22:                        in stack
        !            23: <$HOME/.kbdmac.dir/README.doc
        !            24:                      now read in the documentation file
        !            25: <kbdmac.doc
        !            26:                      rename the buffer
        !            27: �km.-:     make a copy of the filename with the "km.*: "
        !            28: &-                put it on the kill stack twice
        !            29: |� �         search for the new file name
        !            30:                -<:
        !            31:                     if found - pop filename and go past the ":" 
        !            32:        �
        !            33:        ��              if not found go to endof file
        !            34:                 $HOME/.kbdmac.dir/-set up new documentation line
        !            35:        �               
        !            36: �                      
        !            37:                       edit the documentation recursively
        !            38:                      save the new file...
        !            39:                      return to original buffer
        !            40: <kbdmac.doc
        !            41:                      kill kbdmac.doc buffer
        !            42: 
        !            43: �execute_named_kbdmac executes named keyboard macro <arg> times
        !            44:        
        !            45:        
        !            46:        FIRST SET UP THE NAME OF THE KEYBOARD MACRO FILE
        !            47: <save
        !            48: 2�
turn off autosave, but first save its current status
        !            49: B                     save current buffer name
        !            50: <Execute kbdmac name: 
        !            51: <kbdmac
        !            52: �-  go to and clear kbdmac buffer
        !            53: -&$HOME/.kbdmac.dir/km.      set up filename of macro
        !            54:                              then return to original buffer
        !            55: ^��12~                  While (arg--)
        !            56:        B                      save current buffer name
        !            57:        <kbdmac
        !            58:                              go to kbdmac buffer
        !            59:        &                     get prevously set up filename of macro
        !            60:        %              switch kbdmac filename and orig buffer name
        !            61:                              then return to original buffer
        !            62:                               execute from the keyboard macro filename
        !            63: �                              
        !            64: <kbdmac
        !            65:                              kill kbdmac buffer
        !            66: <save
        !            67: 2
                  restore save mode status
        !            68: 
        !            69: �edit_named_kbdmac edits named keyboard macro
        !            70: <save
        !            71: 2�
turn off autosave, but first save its current status
        !            72: B                             save current buffer name
        !            73: <kbdmac
        !            74:                      go to kbdmac buffer
        !            75: < (Edit kbdmacro) name:
        !            76: 0>                   copy this file name on kill stack
        !            77: �$HOME/.kbdmac.dir/km.-set up line w/filename for macro
        !            78: &-          kill the first line putting filename on stack 
        !            79:                      read in the  appropriate kbdmac file
        !            80:                      pause to show it off, with a recursive edit. 
        !            81:                      rewrite file
        !            82: �fix.kmac.doc
        !            83: <save
        !            84: 2
restore save mode status
        !            85: 
        !            86: �get.input gets a line of input from the terminal for use in kbdmacros
        !            87: <input:
        !            88: 

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