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

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.