;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu May 26 13:38:34 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/ws-mode.el ;;; emacs version 19.24.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/ws-mode.el' was compiled for Emacs 19")) (defvar wordstar-mode-map nil "\ ") (defvar wordstar-C-j-map nil "\ ") (defvar wordstar-C-k-map nil "\ ") (defvar wordstar-C-o-map nil "\ ") (defvar wordstar-C-q-map nil "\ ") (byte-code "(    ##########\n### ##\f##########\n#\n#\n#\n#\n#\n#\n@A#\nBC#\nDE#\nFG#\nHI#\nJK#\nȁK#\nLM#\nʁM#\nNO#\ńO#\nPQ#\nЁQ#\nRS#\nԁS#\nTU#\nցU#\nVW#\nځW#\nXY#\nY#\nZ[#\n[#\n\\]#\n]#\n^_#\n_#\n`a#\na#\nbc#\n#\nde#\ne#\nfg#\ng#\nhO#\nO#\nij#\nj# # Lk# ʁk# Jl# ȁl# mn# ؁n# Vo# ځo# pq# ہq# rs# ts# \\u# u# # vw# xy# z{# |}#\f#\f~#\f#\f#\f#\f#\f@#\fB#\fD#\fF#\fH#\f#\fƁ#\fJ#\fȁ#\fL#\fʁ#\fN#\f́#\fP#\fЁ#\fV#\fځ#\fp#\fہ#\fX#\f#\f\\#\fけ#\f^#\f偒#\f#\ff#\f쁓#\fi#\f#\f#" [wordstar-mode-map make-keymap wordstar-C-k-map wordstar-C-o-map wordstar-C-q-map define-key "" backward-word "" fill-paragraph "" scroll-up "" forward-char "" previous-line "" forward-word "" delete-char "" backward-char " " indent-for-tab-command "\n" help-for-help " " "\f" ws-repeat-search "" open-line "" "" quoted-insert "" "" scroll-down "" "" kill-word "" keyboard-quit "" overwrite-mode "" scroll-down-line "" next-line "" kill-complete-line "" scroll-up-line " " nil "0" ws-set-marker-0 "1" ws-set-marker-1 "2" ws-set-marker-2 "3" ws-set-marker-3 "4" ws-set-marker-4 "5" ws-set-marker-5 "6" ws-set-marker-6 "7" ws-set-marker-7 "8" ws-set-marker-8 "9" ws-set-marker-9 "b" ws-begin-block "c" ws-copy-block "d" save-buffers-kill-emacs "f" find-file "h" ws-show-markers "i" ws-indent-block "k" ws-end-block "p" ws-print-block "q" kill-emacs "r" insert-file "s" save-some-buffers "t" ws-mark-word "u" ws-exdent-block "v" ws-move-block "w" ws-write-block "x" "y" ws-delete-block center-line switch-to-buffer "j" justify-current-line kill-buffer "l" list-buffers "m" auto-fill-mode " " set-fill-column "wd" delete-other-windows "wh" split-window-horizontally "wo" other-window "wv" split-window-vertically ws-find-marker-0 ws-find-marker-1 ws-find-marker-2 ws-find-marker-3 ws-find-marker-4 ws-find-marker-5 ws-find-marker-6 ws-find-marker-7 ws-find-marker-8 ws-find-marker-9 "a" ws-query-replace ws-goto-block-begin end-of-buffer end-of-line ws-search ws-goto-block-end ws-undo ws-last-cursorp beginning-of-buffer beginning-of-line ws-last-error ws-kill-eol "" ws-kill-bol] 4) (defalias 'wordstar-mode #[nil " \n!ʼn" [kill-all-local-variables use-local-map wordstar-mode-map "WordStar" mode-name wordstar-mode major-mode] 2 "\ Major mode with WordStar-like key bindings. BUGS: - Help menus with WordStar commands (C-j just calls help-for-help) are not implemented - Options for search and replace - Show markers (C-k h) is somewhat strange - Search and replace (C-q a) is only available in forward direction No key bindings beginning with ESC are installed, they will work Emacs-like. The key bindings are: C-a backward-word C-b fill-paragraph C-c scroll-up-line C-d forward-char C-e previous-line C-f forward-word C-g delete-char C-h backward-char C-i indent-for-tab-command C-j help-for-help C-k ordstar-C-k-map C-l ws-repeat-search C-n open-line C-p quoted-insert C-r scroll-down-line C-s backward-char C-t kill-word C-u keyboard-quit C-v overwrite-mode C-w scroll-down C-x next-line C-y kill-complete-line C-z scroll-up C-k 0 ws-set-marker-0 C-k 1 ws-set-marker-1 C-k 2 ws-set-marker-2 C-k 3 ws-set-marker-3 C-k 4 ws-set-marker-4 C-k 5 ws-set-marker-5 C-k 6 ws-set-marker-6 C-k 7 ws-set-marker-7 C-k 8 ws-set-marker-8 C-k 9 ws-set-marker-9 C-k b ws-begin-block C-k c ws-copy-block C-k d save-buffers-kill-emacs C-k f find-file C-k h ws-show-markers C-k i ws-indent-block C-k k ws-end-block C-k p ws-print-block C-k q kill-emacs C-k r insert-file C-k s save-some-buffers C-k t ws-mark-word C-k u ws-exdent-block C-k C-u keyboard-quit C-k v ws-move-block C-k w ws-write-block C-k x kill-emacs C-k y ws-delete-block C-o c center-line C-o b switch-to-buffer C-o j justify-current-line C-o k kill-buffer C-o l list-buffers C-o m auto-fill-mode C-o r set-fill-column C-o C-u keyboard-quit C-o wd delete-other-windows C-o wh split-window-horizontally C-o wo other-window C-o wv split-window-vertically C-q 0 ws-find-marker-0 C-q 1 ws-find-marker-1 C-q 2 ws-find-marker-2 C-q 3 ws-find-marker-3 C-q 4 ws-find-marker-4 C-q 5 ws-find-marker-5 C-q 6 ws-find-marker-6 C-q 7 ws-find-marker-7 C-q 8 ws-find-marker-8 C-q 9 ws-find-marker-9 C-q a ws-query-replace C-q b ws-to-block-begin C-q c end-of-buffer C-q d end-of-line C-q f ws-search C-q k ws-to-block-end C-q l ws-undo C-q p ws-last-cursorp C-q r beginning-of-buffer C-q C-u keyboard-quit C-q w ws-last-error C-q y ws-kill-eol C-q DEL ws-kill-bol " nil]) (defalias 'center-paragraph #[nil " n\f!` ` \"*" [forward-paragraph newline 1 end backward-paragraph center-region] 3 "\ Center each line in the paragraph at or after point. See center-line for more info." nil]) (defalias 'center-region #[(from to) " V \n) }bm?$ y*" [from to tem center-line 1] 2 "\ Center each line starting in the region. See center-line for more info." "r"]) (defalias 'center-line #[nil "y  iy\f \fZ Zƥ\\j*" [nil line-length 0 delete-horizontal-space left-margin fill-column 2] 3 "\ Center the line point is on, within the width specified by `fill-column'. This means adjusting the indentation to match the distance between the end of the text and `fill-column'." nil]) (defalias 'scroll-down-line #[nil "!" [scroll-down 1] 2 "\ Scroll one line down." nil]) (defalias 'scroll-up-line #[nil "!" [scroll-up 1] 2 "\ Scroll one line up." nil]) (defvar ws-marker-0 nil "\ Position marker 0 in WordStar mode.") (defvar ws-marker-1 nil "\ Position marker 1 in WordStar mode.") (defvar ws-marker-2 nil "\ Position marker 2 in WordStar mode.") (defvar ws-marker-3 nil "\ Position marker 3 in WordStar mode.") (defvar ws-marker-4 nil "\ Position marker 4 in WordStar mode.") (defvar ws-marker-5 nil "\ Position marker 5 in WordStar mode.") (defvar ws-marker-6 nil "\ Position marker 6 in WordStar mode.") (defvar ws-marker-7 nil "\ Position marker 7 in WordStar mode.") (defvar ws-marker-8 nil "\ Position marker 8 in WordStar mode.") (defvar ws-marker-9 nil "\ Position marker 9 in WordStar mode.") (defvar ws-block-begin-marker nil "\ Beginning of \"Block\" in WordStar mode.") (defvar ws-block-end-marker nil "\ End of \"Block\" in WordStar mode.") (defvar ws-search-string nil "\ String of last search in WordStar mode.") (defvar ws-search-direction t "\ Direction of last search in WordStar mode. T if forward, NIL if backward.") (defvar ws-last-cursorposition nil "\ Position before last search etc. in WordStar mode.") (defvar ws-last-errormessage nil "\ Last error message issued by a WordStar mode function.") (defalias 'ws-error #[(string) "!" [string ws-last-errormessage error] 2 "\ Report error of a WordStar special function. Error message is saved in ws-last-errormessage for recovery with C-q w."]) (defalias 'ws-set-marker-0 #[nil " !" [point-marker ws-marker-0 message "Marker 0 set"] 2 "\ In WordStar mode: Set marker 0 to current cursor position." nil]) (defalias 'ws-set-marker-1 #[nil " !" [point-marker ws-marker-1 message "Marker 1 set"] 2 "\ In WordStar mode: Set marker 1 to current cursor position." nil]) (defalias 'ws-set-marker-2 #[nil " !" [point-marker ws-marker-2 message "Marker 2 set"] 2 "\ In WordStar mode: Set marker 2 to current cursor position." nil]) (defalias 'ws-set-marker-3 #[nil " !" [point-marker ws-marker-3 message "Marker 3 set"] 2 "\ In WordStar mode: Set marker 3 to current cursor position." nil]) (defalias 'ws-set-marker-4 #[nil " !" [point-marker ws-marker-4 message "Marker 4 set"] 2 "\ In WordStar mode: Set marker 4 to current cursor position." nil]) (defalias 'ws-set-marker-5 #[nil " !" [point-marker ws-marker-5 message "Marker 5 set"] 2 "\ In WordStar mode: Set marker 5 to current cursor position." nil]) (defalias 'ws-set-marker-6 #[nil " !" [point-marker ws-marker-6 message "Marker 6 set"] 2 "\ In WordStar mode: Set marker 6 to current cursor position." nil]) (defalias 'ws-set-marker-7 #[nil " !" [point-marker ws-marker-7 message "Marker 7 set"] 2 "\ In WordStar mode: Set marker 7 to current cursor position." nil]) (defalias 'ws-set-marker-8 #[nil " !" [point-marker ws-marker-8 message "Marker 8 set"] 2 "\ In WordStar mode: Set marker 8 to current cursor position." nil]) (defalias 'ws-set-marker-9 #[nil " !" [point-marker ws-marker-9 message "Marker 9 set"] 2 "\ In WordStar mode: Set marker 9 to current cursor position." nil]) (defalias 'ws-begin-block #[nil " !" [point-marker ws-block-begin-marker message "Block begin marker set"] 2 "\ In WordStar mode: Set block begin marker to current cursor position." nil]) (defalias 'ws-show-markers #[nil " >b!!#!! 5 b!!9!!)!" [ws-block-begin-marker ws-block-end-marker message "Block begin marker" sit-for 2 "Block begin marker not set" "Block end marker" "Block end marker not set" "" "Block markers not set"] 2 "\ In WordStar mode: Show block markers." nil]) (defalias 'ws-indent-block #[nil "!" [ws-error "Indent block not yet implemented"] 2 "\ In WordStar mode: Indent block (not yet implemented)." nil]) (defalias 'ws-end-block #[nil " !" [point-marker ws-block-end-marker message "Block end marker set"] 2 "\ In WordStar mode: Set block end marker to current cursor position." nil]) (defalias 'ws-print-block #[nil "!" [message "Don't do this. Write block to a file (C-k w) and print this file."] 2 "\ In WordStar mode: Print block." nil]) (defalias 'ws-mark-word #[nil "v! v! )" [1 sit-for ws-end-block -1 ws-begin-block] 2 "\ In WordStar mode: Mark current word as block." nil]) (defalias 'ws-exdent-block #[nil "!" [ws-error "This won't be done -- not yet implemented."] 2 "\ I don't know what this (C-k u) should do." nil]) (defalias 'ws-move-block #[nil "\" \" \" b  b )+Ȃ4 3ɂ4!" [ws-block-begin-marker ws-block-end-marker kill-region yank region-beginning point-marker region-end ws-error "Block end marker not set" "Block begin marker not set" "Block markers not set"] 3 "\ In WordStar mode: Move block to current cursor position." nil]) (defalias 'ws-write-block #[nil " ! \f#)ǂ% $Ȃ%!" [ws-block-begin-marker ws-block-end-marker read-file-name "Write block to file: " filename write-region ws-error "Block end marker not set" "Block begin marker not set" "Block markers not set"] 4 "\ In WordStar mode: Write block to file." nil]) (defalias 'ws-delete-block #[nil "  \"Éł% $Ƃ%!" [ws-block-begin-marker ws-block-end-marker kill-region nil ws-error "Block end marker not set" "Block begin marker not set" "Block markers not set"] 3 "\ In WordStar mode: Delete block." nil]) (defalias 'ws-find-marker-0 #[nil "\n b!" [ws-marker-0 point-marker ws-last-cursorposition ws-error "Marker 0 not set"] 2 "\ In WordStar mode: Go to marker 0." nil]) (defalias 'ws-find-marker-1 #[nil "\n b!" [ws-marker-1 point-marker ws-last-cursorposition ws-error "Marker 1 not set"] 2 "\ In WordStar mode: Go to marker 1." nil]) (defalias 'ws-find-marker-2 #[nil "\n b!" [ws-marker-2 point-marker ws-last-cursorposition ws-error "Marker 2 not set"] 2 "\ In WordStar mode: Go to marker 2." nil]) (defalias 'ws-find-marker-3 #[nil "\n b!" [ws-marker-3 point-marker ws-last-cursorposition ws-error "Marker 3 not set"] 2 "\ In WordStar mode: Go to marker 3." nil]) (defalias 'ws-find-marker-4 #[nil "\n b!" [ws-marker-4 point-marker ws-last-cursorposition ws-error "Marker 4 not set"] 2 "\ In WordStar mode: Go to marker 4." nil]) (defalias 'ws-find-marker-5 #[nil "\n b!" [ws-marker-5 point-marker ws-last-cursorposition ws-error "Marker 5 not set"] 2 "\ In WordStar mode: Go to marker 5." nil]) (defalias 'ws-find-marker-6 #[nil "\n b!" [ws-marker-6 point-marker ws-last-cursorposition ws-error "Marker 6 not set"] 2 "\ In WordStar mode: Go to marker 6." nil]) (defalias 'ws-find-marker-7 #[nil "\n b!" [ws-marker-7 point-marker ws-last-cursorposition ws-error "Marker 7 not set"] 2 "\ In WordStar mode: Go to marker 7." nil]) (defalias 'ws-find-marker-8 #[nil "\n b!" [ws-marker-8 point-marker ws-last-cursorposition ws-error "Marker 8 not set"] 2 "\ In WordStar mode: Go to marker 8." nil]) (defalias 'ws-find-marker-9 #[nil "\n b!" [ws-marker-9 point-marker ws-last-cursorposition ws-error "Marker 9 not set"] 2 "\ In WordStar mode: Go to marker 9." nil]) (defalias 'ws-goto-block-begin #[nil "\n b!" [ws-block-begin-marker point-marker ws-last-cursorposition ws-error "Block begin marker not set"] 2 "\ In WordStar mode: Go to block begin marker." nil]) (defalias 'ws-search #[(string) "! Ě  \n !7 ̚5  \n !7 )" [message "Forward (f) or backward (b)" read-char direction 70 string ws-search-string t ws-search-direction point-marker ws-last-cursorposition search-forward 66 nil search-backward keyboard-quit] 3 "\ In WordStar mode: Search string, remember string for repetition." "sSearch for: "]) (defalias 'ws-goto-block-end #[nil "\n b!" [ws-block-end-marker point-marker ws-last-cursorposition ws-error "Block end marker not set"] 2 "\ In WordStar mode: Go to block end marker." nil]) (defalias 'ws-undo #[nil " !" [undo message "Repeat C-q l to undo more changes."] 2 "\ In WordStar mode: Undo and give message about undoing more changes." nil]) (defalias 'ws-goto-last-cursorposition #[nil "\n b!" [ws-last-cursorposition point-marker ws-error "No last cursor position available."] 3 "\ In WordStar mode: " nil]) (defalias 'ws-last-error #[nil "!!" [ws-last-errormessage message "No WordStar error yet."] 2 "\ In WordStar mode: repeat last error message. This will only work for errors raised by WordStar mode functions." nil]) (defalias 'ws-kill-eol #[nil "``\")" [p nil kill-region] 3 "\ In WordStar mode: Kill to end of line (like WordStar, not like Emacs)." nil]) (defalias 'ws-kill-bol #[nil "`y`\")" [p 0 kill-region] 3 "\ In WordStar mode: Kill to beginning of line (like WordStar, not like Emacs)." nil]) (defalias 'kill-complete-line #[nil "ym !`y `\")" [0 error "End of buffer" beg 1 kill-region] 3 "\ Kill the complete line." nil]) (defalias 'ws-repeat-search #[nil " \n \n!\n!!" [point-marker ws-last-cursorposition ws-search-string ws-search-direction search-forward search-backward ws-error "No search to repeat"] 2 "\ In WordStar mode: Repeat last search." nil]) (defalias 'ws-query-replace #[(from to) " \"" [from ws-search-string t ws-search-direction point-marker ws-last-cursorposition query-replace to] 3 "\ In WordStar mode: Search string, remember string for repetition." "sReplace: \nsWith: "]) (defalias 'ws-copy-block #[nil "\" \" \" b  b )+Ȃ4 3ɂ4!" [ws-block-begin-marker ws-block-end-marker copy-region-as-kill yank region-beginning point-marker region-end ws-error "Block end marker not set" "Block begin marker not set" "Block markers not set"] 3 "\ In WordStar mode: Copy block to current cursor position." nil])