File:  [Research Unix] / researchv9 / cmd / emacs / macros / novice
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)

novice emacs novice mode, exit via escape-z
���^�����<00600000fffffffffffffffffffffffe
����^�~��7 While the character in question is an escape 
���<
|���~�~��8�~��7����get-count
 process escape count 
���<
 read the real character 
�� ���1~�28����* Represent escapes as meta characters *
!��� delete character 
���
 return 
�
�� delete 
��set-object
�4����� forward search 
 step forward 
���<Forward Search? 
|���~�� Search command aborted
-��~�� Search for last string 
-�2&� Push the value of the search string 
��� ���1&�2&������backward search
|���<Backward Search? 
�1��� ������|����4����� �����������set-object
�2����set-object
�3����qsave-buffer
|���<edit-file? 
������������|���<write to file? 
������1~���set-object
�� Return the result of the case 
��
set-object Sets marks around specified object
���<
|��~��7���1~�<
�28��� set mark for later use 
!���forward character
�2��3���backward character
�2��3���forward word
�2��3��2����3��2��3����2��3��2�3���2��3��2�3��� forward sentence 
�2���3��2����2���2��3���� for now, just honk 
��
get-count get the object count
���2~�8�6~����@^��~�~��8�~��7* while more digits *
���1~�3~�0��2~��8�6~����@��1~�* restack character after count *
�
yes-or-no ask yes-or-know question
���1^���> copy the question
!��@�y���� ����n������~�����
qsave-buffer querry and save buffer
|�������<Buffer has been modified, write to file?
�yes-or-no
�|�������

unix.superglobalmegacorp.com

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