;;; Inertly recovered online-help source contexts. ;;; Original System 46 file: nzwei/comtab.115 ;;; Exact source bytes follow each generated provenance comment. ;;; Source bytes 11266:11630; lines 252-262; sha256 d26e05a12bca5e898c892dab39626d49c7a334bc3527789f8a99620c36997ce1 (DEFCOM COM-EXTENDED-COMMAND "" () (LET ((ANS (GET-EXTENDED-COMMAND (FORMAT NIL "Extended command:~:[ (Arg = ~A.)~]" (NOT *NUMERIC-ARG-P*) (FORMAT-ARGUMENT *NUMERIC-ARG-P* *NUMERIC-ARG*)) *COMTAB*))) (COND ((EQUAL ANS "") (BEEP) DIS-NONE) (T (LET ((*CURRENT-COMMAND* (CDR ANS))) (FUNCALL *CURRENT-COMMAND*)))))) ;;; Source bytes 11950:12029; lines 274-274; sha256 2a4ce45c278795697684136d5490f3118d23797f227c346ca8420f7c30916c2d (DEFPROP COM-EXTENDED-COMMAND DOCUMENT-EXTENDED-COMMAND DOCUMENTATION-FUNCTION) ;;; Source bytes 12030:12416; lines 275-282; sha256 9c144c64e8e213f0938a11c724cc28059e40ac3fcc7523f5efdfd88e189276e4 (DEFUN DOCUMENT-EXTENDED-COMMAND (COMMAND CHAR OP) (COND ((EQ OP ':NAME) "a prefix for extended commands") ((MEMQ OP '(:FULL :SHORT)) (FORMAT T "Completing reads and executes a command from the mini buffer") (COND ((EQ OP ':FULL) (SETQ COMMAND (GET-EXTENDED-COMMAND "Type a command to document:" *COMTAB*)) (OR (EQUAL COMMAND "") (PRINT-DOC OP (CDR COMMAND) CHAR))))))) ;;; Source bytes 13195:13791; lines 304-318; sha256 432ef9fc1474489b391e16ecb09b1d71a91ece1a71ec6acecc8481c258c466fa (DEFCOM COM-ANY-EXTENDED-COMMAND "Execute any loaded zwei command, even if not assigned" () (LET ((ANS (COMPLETING-READ-FROM-MINI-BUFFER (FORMAT NIL "Command:~:[ (Arg = ~A)~]" (NOT *NUMERIC-ARG-P*) (FORMAT-ARGUMENT *NUMERIC-ARG-P* *NUMERIC-ARG*)) *COMMAND-ALIST* NIL NIL "You are typing the name of a ZWEI command." #'(LAMBDA (X) (LET ((STANDARD-OUTPUT *TYPEOUT-WINDOW*)) (PRINT-DOC ':FULL (CDR X))))))) (COND ((EQUAL ANS "") (BEEP) DIS-NONE) (T (LET ((*CURRENT-COMMAND* (CDR ANS))) (FUNCALL *CURRENT-COMMAND*)))))) ;;; Source bytes 25496:34373; lines 605-856; sha256 741aac143c72796ef35eecf04e2ece30a723f0b331cc76891a56a3497b60af80 (DEFUN INITIALIZE-STANDARD-COMTABS () (SETQ *STANDARD-COMTAB* (SET-COMTAB NIL '((0 200) COM-STANDARD #\BS COM-STANDARD #/F COM-FORWARD #/B COM-BACKWARD #/N COM-DOWN-REAL-LINE #/P COM-UP-REAL-LINE #/V COM-NEXT-SCREEN #/V COM-PREVIOUS-SCREEN #/V COM-SCROLL-OTHER-WINDOW #/A COM-BEGINNING-OF-LINE #/E COM-END-OF-LINE #/R COM-MOVE-TO-SCREEN-EDGE #/< COM-GOTO-BEGINNING #/> COM-GOTO-END #/< COM-MARK-BEGINNING #/> COM-MARK-END #\SP COM-SET-POP-MARK #/@ COM-SET-POP-MARK #\SP COM-PUSH-POP-POINT-EXPLICIT #\SP COM-MOVE-TO-PREVIOUS-POINT #\CR COM-INSERT-CRS #/O COM-MAKE-ROOM #/O COM-SPLIT-LINE #/O COM-THIS-INDENTATION #/^ COM-DELETE-INDENTATION #/^ COM-DELETE-INDENTATION #/D COM-DELETE-FORWARD #\RUBOUT COM-RUBOUT #\RUBOUT COM-TAB-HACKING-RUBOUT #/K COM-KILL-LINE #\CLEAR COM-CLEAR #\BREAK COM-BREAK #/W COM-SAVE-REGION #/W COM-KILL-REGION #/W COM-APPEND-NEXT-KILL #/Y COM-YANK #/Y COM-YANK-POP #/L COM-RECENTER-WINDOW ; #\FF COM-RECENTER-WINDOW #\FF COM-COMPLETE-REDISPLAY #/! COM-COMPLETE-REDISPLAY #/U COM-QUADRUPLE-NUMERIC-ARG #/- COM-NEGATE-NUMERIC-ARG #/- COM-NEGATE-NUMERIC-ARG #/- COM-NEGATE-NUMERIC-ARG (#/0 10.) COM-NUMBERS (#/0 10.) COM-NUMBERS (#/0 10.) COM-NUMBERS #/T COM-EXCHANGE-CHARACTERS #/T COM-EXCHANGE-WORDS #/T COM-EXCHANGE-SEXPS #/F COM-FORWARD-WORD #/B COM-BACKWARD-WORD #/K COM-KILL-SENTENCE #/D COM-KILL-WORD #\RUBOUT COM-BACKWARD-KILL-WORD #/@ COM-MARK-WORD #/F COM-FORWARD-SEXP #/N COM-FORWARD-LIST #/B COM-BACKWARD-SEXP #/P COM-BACKWARD-LIST #/K COM-KILL-SEXP #\RUBOUT COM-BACKWARD-KILL-SEXP #/@ COM-MARK-SEXP #/) COM-FORWARD-UP-LIST #/( COM-BACKWARD-UP-LIST #/U COM-BACKWARD-UP-LIST #/[ COM-BEGINNING-OF-DEFUN #/] COM-END-OF-DEFUN #/A COM-BEGINNING-OF-DEFUN #/E COM-END-OF-DEFUN #/D COM-DOWN-LIST #/( COM-MAKE-/(/) #/) COM-MOVE-OVER-/) ; #/G COM-FORMAT-CODE #/] COM-FORWARD-PARAGRAPH #/[ COM-BACKWARD-PARAGRAPH #/H COM-MARK-PARAGRAPH #/E COM-FORWARD-SENTENCE #/A COM-BACKWARD-SENTENCE #/G COM-BEEP #\TAB COM-INSERT-TAB #\TAB COM-INDENT-FOR-LISP #\TAB COM-INDENT-DIFFERENTLY #\LF COM-INDENT-NEW-LINE #/Q COM-INDENT-SEXP #/; COM-INDENT-FOR-COMMENT #/; COM-INDENT-FOR-COMMENT #/; COM-KILL-COMMENT #/N COM-DOWN-COMMENT-LINE #/P COM-UP-COMMENT-LINE #/Q COM-FILL-PARAGRAPH #/G COM-FILL-REGION #/\ COM-DELETE-HORIZONTAL-SPACE #\CR COM-BACK-TO-INDENTATION #/M COM-BACK-TO-INDENTATION #\CR COM-BACK-TO-INDENTATION #/M COM-BACK-TO-INDENTATION #/U COM-UPPERCASE-WORD #/L COM-LOWERCASE-WORD #/C COM-UPPERCASE-INITIAL #/\ COM-INDENT-REGION #\FF COM-INSERT-FF #\TAB COM-INSERT-TAB #/S COM-CENTER-LINE #/= COM-COUNT-LINES-REGION #/= COM-FAST-WHERE-AM-I #/S COM-INCREMENTAL-SEARCH #/R COM-REVERSE-INCREMENTAL-SEARCH #/ COM-EVALUATE-MINI-BUFFER #/ COM-COMPILE-DEFUN #/ COM-EVALUATE-DEFUN #/ COM-EVALUATE-DEFUN-VERBOSE #/ COM-EVALUATE-DEFUN-HACK #/? COM-SELF-DOCUMENT #/? COM-SELF-DOCUMENT #/? COM-DOCUMENTATION #\HELP COM-DOCUMENTATION #/Q COM-VARIOUS-QUANTITIES #/X COM-EXTENDED-COMMAND #/X COM-ANY-EXTENDED-COMMAND #/< COM-MARK-BEGINNING #/> COM-MARK-END #\LF COM-INDENT-NEW-COMMENT-LINE #/% COM-REPLACE-STRING #/% COM-QUERY-REPLACE #/H COM-MARK-DEFUN #/R COM-REPOSITION-WINDOW #/' COM-UPCASE-DIGIT #/ COM-FIND-PATTERN #/Z COM-QUIT #\END COM-QUIT #/~ COM-NOT-MODIFIED #/& COM-FROB-LISP-CONDITIONAL #/$ COM-FROB-DO #/ COM-QUICK-ARGLIST #/ COM-BRIEF-DOCUMENTATION #/ COM-LONG-DOCUMENTATION #/J COM-CHANGE-FONT-CHAR #/J COM-CHANGE-FONT-WORD #/J COM-CHANGE-DEFAULT-FONT #/# COM-TEXT-JUSTIFIER-CHANGE-FONT-WORD #/_ COM-TEXT-JUSTIFIER-UNDERLINE-WORD #/# COM-GOTO-CHARACTER #\MOUSE-1-1 COM-MOUSE-MARK-REGION #\MOUSE-1-2 COM-MOUSE-MOVE-REGION #\MOUSE-2-1 COM-MOUSE-MARK-THING #\MOUSE-2-2 COM-MOUSE-KILL-YANK ) (MAKE-COMMAND-ALIST '(;; COM*: COM-INSTALL-COMMAND COM-ARGLIST COM-KEEP-LINES COM-FLUSH-LINES COM-HOW-MANY COM-COUNT-LINES COM-QUERY-REPLACE COM-REPLACE-STRING COM-OCCUR COM-LIST-ALL-DIRECTORY-NAMES COM-VIEW-DIRECTORY COM-COMPILE-REGION COM-COMPILE-BUFFER COM-EVALUATE-REGION COM-EVALUATE-BUFFER COM-VIEW-Q-REGISTER COM-LIST-Q-REGISTERS COM-KILL-Q-REGISTER COM-LIST-VARIABLES COM-VARIABLE-APROPOS COM-VARIABLE-DOCUMENT COM-VARIABLE-SET COM-GRIND-DEFINITION COM-GRIND-S-EXPRESSION COM-EVALUATE-INTO-BUFFER COM-TRACE COM-VIEW-LOGIN-DIRECTORY COM-VIEW-XGP-QUEUE COM-VIEW-TTY-USERS COM-VIEW-MAIL COM-ATOM-QUERY-REPLACE COM-FORMAT-CODE COM-MULTIPLE-QUERY-REPLACE COM-MULTIPLE-QUERY-REPLACE-FROM-BUFFER COM-QUERY-EXCHANGE COM-QUERY-REPLACE-LAST-KILL COM-QUERY-REPLACE-LET-BINDING COM-FIND-UNBALANCED-PARENTHESES COM-MACRO-EXPAND-SEXP COM-UNDO COM-FILL-LONG-COMMENT COM-UNCOMMENT-REGION COM-SORT-LINES COM-SORT-PARAGRAPHS COM-SORT-VIA-KEYBOARD-MACROS ;; DOC: COM-LIST-COMMANDS COM-APROPOS COM-WHERE-IS COM-DESCRIBE-COMMAND ;; FILES: COM-INSERT-FILE COM-WRITE-REGION COM-APPEND-TO-FILE COM-PREPEND-TO-FILE COM-VIEW-FILE COM-LIST-FILES COM-RENAME-FILE COM-COPY-FILE COM-DELETE-FILE ;; MODES: COM-LISP-MODE COM-TEXT-MODE COM-FUNDAMENTAL-MODE COM-PL1-MODE COM-BOLIO-MODE COM-ELECTRIC-PL1-MODE COM-ATOM-WORD-MODE COM-EMACS-MODE COM-OVERWRITE-MODE COM-TECO-MODE COM-MACSYMA-MODE COM-AUTO-FILL-MODE COM-WORD-ABBREV-MODE COM-INSERT-WORD-ABBREVS COM-KILL-ALL-WORD-ABBREVS COM-LIST-WORD-ABBREVS COM-DEFINE-WORD-ABBREVS COM-EDIT-WORD-ABBREVS COM-LIST-SOME-WORD-ABBREVS COM-WRITE-WORD-ABBREV-FILE COM-READ-WORD-ABBREV-FILE COM-MAKE-WORD-ABBREV COM-EDIT-TAB-STOPS COM-MIDAS-MODE COM-ELECTRIC-SHIFT-LOCK-MODE ;; FONT, KBDMAC, DIRED COM-SET-FONTS COM-INSTALL-MACRO COM-VIEW-KBD-MACRO )))) (SETQ *STANDARD-CONTROL-X-COMTAB* (SET-COMTAB NIL '(#/G COM-PREFIX-BEEP #/D COM-DISPLAY-DIRECTORY #/N COM-SET-GOAL-COLUMN #/P COM-MARK-PAGE #/X COM-SWAP-POINT-AND-MARK #/G COM-OPEN-GET-Q-REG #/X COM-PUT-Q-REG #/L COM-COUNT-LINES-PAGE #\RUBOUT COM-BACKWARD-KILL-SENTENCE #/; COM-SET-COMMENT-COL #/. COM-SET-FILL-PREFIX #/F COM-SET-FILL-COLUMN #/U COM-UPPERCASE-REGION #/L COM-LOWERCASE-REGION #/O COM-DELETE-BLANK-LINES #/I COM-INDENT-RIGIDLY #/= COM-WHERE-AM-I #/[ COM-PREVIOUS-PAGE #/] COM-NEXT-PAGE #/H COM-MARK-WHOLE #/C COM-QUIT #/J COM-CHANGE-FONT-REGION #/( COM-START-KBD-MACRO #/) COM-END-KBD-MACRO #/E COM-CALL-LAST-KBD-MACRO #/Q COM-KBD-MACRO-QUERY #/ COM-REPEAT-LAST-MINI-BUFFER-COMMAND #/T COM-EXCHANGE-LINES #/T COM-EXCHANGE-REGIONS #/# COM-TEXT-JUSTIFIER-CHANGE-FONT-REGION #/_ COM-TEXT-JUSTIFIER-UNDERLINE-REGION #\SP COM-MOVE-TO-DEFAULT-PREVIOUS-POINT ))) (SET-COMTAB-CONTROL-INDIRECTION *STANDARD-CONTROL-X-COMTAB*) (SET-COMTAB *STANDARD-COMTAB* (LIST #/X (MAKE-EXTENDED-COMMAND *STANDARD-CONTROL-X-COMTAB*))) (SETQ *COMPLETING-READER-COMTAB* (SET-COMTAB NIL '(#/ COM-COMPLETE #\SP COM-SELF-INSERT-AND-COMPLETE #/) COM-SELF-INSERT-AND-COMPLETE #/? COM-LIST-COMPLETIONS #/Q COM-QUOTED-INSERT #\HELP COM-DOCUMENT-COMPLETING-READ #// COM-COMPLETION-APROPOS #\CR COM-COMPLETE-AND-EXIT #/G COM-MINI-BUFFER-BEEP #\CR COM-COMPLETE-AND-EXIT #\END COM-COMPLETE-AND-EXIT #\MOUSE-1-1 COM-MOUSE-END-OF-MINI-BUFFER #\MOUSE-3-1 COM-MOUSE-LIST-COMPLETIONS #/Z :UNDEFINED #/Z :UNDEFINED #/Z :UNDEFINED))) (SET-COMTAB-INDIRECTION *COMPLETING-READER-COMTAB* *STANDARD-COMTAB*) (SETQ *CONTROL-R-COMTAB* (SET-COMTAB NIL '(#/ COM-EXIT-CONTROL-R #\END COM-EXIT-CONTROL-R))) (SET-COMTAB-INDIRECTION *CONTROL-R-COMTAB* *STANDARD-COMTAB*) (SETQ *RECURSIVE-EDIT-COMTAB* (SET-COMTAB NIL '(#/ COM-EXIT-CONTROL-R #\END COM-EXIT-CONTROL-R #/G COM-RECURSIVE-EDIT-BEEP))) (SET-COMTAB-INDIRECTION *RECURSIVE-EDIT-COMTAB* *STANDARD-COMTAB*) (SETQ *STANDALONE-COMTAB* (SET-COMTAB NIL '(#/ COM-QUIT))) (SET-COMTAB-INDIRECTION *STANDALONE-COMTAB* *STANDARD-COMTAB*) ) ;;; Source bytes 42127:42846; lines 1092-1108; sha256 d7ee4502612b36ea7c3aa7cb18c46edf14b9e716f450affd2a357eda889a696b (DEFUN INITIALIZE-MINI-BUFFER () (SETQ *MINI-BUFFER-RING* NIL *MINI-BUFFER-REPEATED-COMMAND* NIL) (SETQ *MINI-BUFFER-MULTI-LINE-COMTAB* (SET-COMTAB NIL '(#\HELP COM-DOCUMENT-CONTAINING-COMMAND #\CR COM-END-OF-MINI-BUFFER #\END COM-END-OF-MINI-BUFFER #/G COM-MINI-BUFFER-BEEP #/Z :UNDEFINED #/Z :UNDEFINED #/Z :UNDEFINED #/Y COM-POP-MINI-BUFFER-RING #\MOUSE-1-2 COM-MOUSE-END-OF-MINI-BUFFER ))) (SET-COMTAB-INDIRECTION *MINI-BUFFER-MULTI-LINE-COMTAB* *STANDARD-COMTAB*) (SETQ *MINI-BUFFER-COMTAB* (SET-COMTAB NIL '(#\CR COM-END-OF-MINI-BUFFER))) (SET-COMTAB-INDIRECTION *MINI-BUFFER-COMTAB* *MINI-BUFFER-MULTI-LINE-COMTAB*) (INITIALIZE-MINI-BUFFER-WINDOW))