Return to spell1 CVS log

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

Annotation of researchv9/cmd/emacs/macros/spell1, revision 1.1.1.1

1.1       root        1: �runs the spell command on the current buffer [MACRO]
                      2: 
                      3:  This macro runs spell on the file in the current buffer, and
                      4:  finds all of the misspelled words in the buffer, allowing the
                      5:  user to edit them.
                      6: 
                      7:  Move the cursor to the word to be found and type .
                      8:  Type ^Z to go to next match of the same word, or to return to the list
                      9:  of misspelled words if no match is found.
                     10:  Repeat the above until done, then type � to exit this macro.
                     11: 
                     12: 0<Executing Spell
                     13: 0          indicate that execution is in progress
                     14:                     save the text file
                     15: F                    put the filename on the stack
                     16: 1<.exec
                     17: 2                    put .exec in the lower window
                     18: &spell -&�       spell <filename> >.exec
                     19: 0<Enter M-0^Z to exit, or move cursor to word and enter ^Z to find it.
                     20: ^�7~   while the cursor is moved to the next word and  is typed
                     21:        <\<
                     22:        &�+�+ concatenate "\<", the word, and "\>" on the stack
                     23:        <\>
                     24:        0>   duplicate the search word on the stack
                     25:        �    goto the top of the text file
                     26:        ^�0� while the word is found in the text file
                     27:                0<Enter ^Z to find next occurence of word, or to return to word list.
                     28:                |�� �       if edit returns failure (�)
                     29:                        � ��           goto eof so search fails
                     30:                �                      end if
                     31:                                      move the cursor past the word
                     32:                0>           duplicate the word on the stack
                     33:        �              end while
                     34:        -             pop the word from the stack
                     35:        &   goto the next word in .exec
                     36:        0<Enter M-0^Z to exit, or move cursor to word and enter ^Z to find it.
                     37: �             end while
                     38:   return to the text file and save the changes
                     39: 1            drop spelling list window to signal end of spell
                     40: 

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