File:  [Research Unix] / researchv9 / cmd / emacs / macros / spell
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:21:59 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv9-SUN3_old, researchv9-SUN3, HEAD
researchv9-SUN3(old)

�spell run spell on the buffer
version 4.7, warren montgomery
1in-case we have 2
<spell 
F�&<|fgrep -v -x -f $HOME/.dict
�&�B<.exec
�-remove trailing newline
�
create empty line on top to prime loop
2�prime text window
^�while more spell words
�!��<SPELL?
���exit by moving to end of spell list
� \<\>pick up word
�>make 2 copies
�go to top of text
^���while more occurances
|���if the user just exits, do nothing
� ���if the user exits with 0, make the next search fail
�>�-�remove search word
next-case, put in dictionary
�dB<...
push word, current buffer, ...
%
put word in new buffer
-<$HOME/.dict
push dictionary file
B%write, and prepare to return
��n-��?B<...
help, save buffer name
<~EMACS/macros/spell_help
��<Continue?
help done, now go back
B%� note extra back compensates for forward at end of loop 
����anything else, just beep
�1return to 1 window mode


unix.superglobalmegacorp.com

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