HOME

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defvar wordstar-C-k-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\332#\210\302\334\335#\210\302\336\335#\210\302\337\340#\210\302\341\340#\210\302\342\343#\210\302\344\343#\210\302\345\346#\210\302\347\346#\210\302\350\351#\210\302\352\351#\210\302\353\354#\210\302\355\354#\210\302\356\357#\210\302\360\357#\210\302\361\362#\210\302\363\362#\210\302\364\365#\210\302\366\365#\210\302\367\370#\210\302\371\370#\210\302\372\373#\210\302\374\373#\210\302\375\376#\210\302\377\201@#\210\302\201A\201B#\210\302\201C\201B#\210\302\201D\201E#\210\302\201F\201E#\210\302\201G\340#\210\302\201H\340#\210\302\201I\201J#\210\302\201K\201J#\210)\207" [map make-keymap define-key " " 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 "" keyboard-quit "v" ws-move-block "" "w" ws-write-block "" "x" "" "y" ws-delete-block ""] 4))
#@2 
(defvar wordstar-C-o-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\311#\210\302\313\314#\210\302\315\314#\210\302\316\317#\210\302\320\317#\210\302\321\322#\210\302\323\322#\210\302\324\325#\210\302\326\325#\210\302\327\330#\210\302\331\330#\210\302\332\333#\210\302\334\335#\210\302\336\337#\210\302\340\341#\210\302\342\343#\210)\207" [map make-keymap define-key " " nil "c" wordstar-center-line "" "b" switch-to-buffer "" "j" justify-current-line "\n" "k" kill-buffer "" "l" list-buffers "\f" "m" auto-fill-mode "
" "r" set-fill-column "" "" keyboard-quit "wd" delete-other-windows "wh" split-window-right "wo" other-window "wv" split-window-below] 4) (#$ . 1927))
(defvar wordstar-C-q-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\332#\210\302\334\335#\210\302\336\335#\210\302\337\340#\210\302\341\340#\210\302\342\343#\210\302\344\343#\210\302\345\346#\210\302\347\346#\210\302\350\351#\210\302\352\351#\210\302\353\354#\210\302\355\354#\210\302\356\357#\210\302\360\357#\210\302\361\362#\210\302\363\362#\210\302\364\365#\210\302\366\365#\210\302\367\370#\210\302\371\372#\210\302\373\372#\210\302\374\375#\210\302\376\375#\210\302\377\201@#\210)\207" [map make-keymap define-key " " nil "0" ws-find-marker-0 "1" ws-find-marker-1 "2" ws-find-marker-2 "3" ws-find-marker-3 "4" ws-find-marker-4 "5" ws-find-marker-5 "6" ws-find-marker-6 "7" ws-find-marker-7 "8" ws-find-marker-8 "9" ws-find-marker-9 "a" ws-query-replace "
" "b" ws-goto-block-begin "" "c" end-of-buffer "" "d" end-of-line "" "f" ws-search "" "k" ws-goto-block-end "" "l" ws-undo "\f" "p" ws-last-cursorp "" "r" beginning-of-buffer "" "s" beginning-of-line "" "" keyboard-quit "w" ws-last-error "" "y" ws-kill-eol "" "" ws-kill-bol] 4))
(defvar wordstar-mode-map (byte-code "\304 \305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\305\324\325#\210\305\326\327#\210\305\330\331#\210\305\332	#\210\305\333\334#\210\305\335\336#\210\305\337\n#\210\305\340\341#\210\305\342#\210\305\343\344#\210\305\345\325#\210\305\346\347#\210\305\350\351#\210\305\352\353#\210\305\354\355#\210\305\356\357#\210\305\360\361#\210\305\362\363#\210)\207" [map wordstar-C-k-map wordstar-C-o-map wordstar-C-q-map make-keymap define-key "
" backward-word "" fill-paragraph "" scroll-up-command "" 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-command "" "" kill-word "" keyboard-quit "" overwrite-mode "" scroll-down-line "" next-line "" kill-complete-line "" scroll-up-line] 4))
(defvar wordstar-C-j-map nil)
(put 'wordstar-mode 'mode-class 'special)
(defvar wordstar-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [wordstar-mode-hook variable-documentation put "Hook run after entering WordStar mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp wordstar-mode-map definition-name wordstar-mode] 4)
(defvar wordstar-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [wordstar-mode-abbrev-table wordstar-mode-map variable-documentation put purecopy "Keymap for `wordstar-mode'." boundp wordstar-mode-syntax-table definition-name wordstar-mode (lambda (#1=#:def-tmp-var) (defvar wordstar-mode-syntax-table #1#)) make-syntax-table "Syntax table for `wordstar-mode'." (lambda (#1#) (defvar wordstar-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `wordstar-mode'." derived-mode-parent] 5)
#@493 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.

This mode runs the hook `wordstar-mode-hook', as the final or penultimate step
during initialization.

\{wordstar-mode-map}
(defalias 'wordstar-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
)\315\316!\207" [delay-mode-hooks major-mode mode-name wordstar-mode-map wordstar-mode-syntax-table wordstar-mode-abbrev-table make-local-variable t kill-all-local-variables wordstar-mode "WordStar" use-local-map set-syntax-table run-mode-hooks wordstar-mode-hook local-abbrev-table] 2 (#$ . 6183) nil])
#@96 Center each line in the paragraph at or after point.
See `wordstar-center-line' for more info.
(defalias 'wordstar-center-paragraph #[nil "\212\301 \210n\204\f\302\303!\210`\304 \210\305`\"*\207" [end forward-paragraph newline 1 backward-paragraph wordstar-center-region] 3 (#$ . 7078) nil])
#@84 Center each line starting in the region.
See `wordstar-center-line' for more info.
(defalias 'wordstar-center-region #[(from to) "	V\203
	\n)\212\214	}\210b\210m?\205$\303 \210\304y\210\202*\207" [from to tem wordstar-center-line 1] 2 (#$ . 7379) "r"])
#@181 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'.
(defalias 'wordstar-center-line #[nil "\212\303\304 \210\305 \210\303\210\305 \210i\304 \210	\306\n	#\307\245\\j*\207" [line-length left-margin fill-column nil beginning-of-line delete-horizontal-space - 2] 5 (#$ . 7650) nil])
#@37 Position marker 0 in WordStar mode.
(defvar ws-marker-0 nil (#$ . 8067))
#@37 Position marker 1 in WordStar mode.
(defvar ws-marker-1 nil (#$ . 8146))
#@37 Position marker 2 in WordStar mode.
(defvar ws-marker-2 nil (#$ . 8225))
#@37 Position marker 3 in WordStar mode.
(defvar ws-marker-3 nil (#$ . 8304))
#@37 Position marker 4 in WordStar mode.
(defvar ws-marker-4 nil (#$ . 8383))
#@37 Position marker 5 in WordStar mode.
(defvar ws-marker-5 nil (#$ . 8462))
#@37 Position marker 6 in WordStar mode.
(defvar ws-marker-6 nil (#$ . 8541))
#@37 Position marker 7 in WordStar mode.
(defvar ws-marker-7 nil (#$ . 8620))
#@37 Position marker 8 in WordStar mode.
(defvar ws-marker-8 nil (#$ . 8699))
#@37 Position marker 9 in WordStar mode.
(defvar ws-marker-9 nil (#$ . 8778))
#@40 Beginning of "Block" in WordStar mode.
(defvar ws-block-begin-marker nil (#$ . 8857))
#@34 End of "Block" in WordStar mode.
(defvar ws-block-end-marker nil (#$ . 8949))
#@41 String of last search in WordStar mode.
(defvar ws-search-string nil (#$ . 9033))
#@75 Direction of last search in WordStar mode. t if forward, nil if backward.
(defvar ws-search-direction t (#$ . 9121))
#@52 Position before last search etc. in WordStar mode.
(defvar ws-last-cursorposition nil (#$ . 9244))
#@56 Last error message issued by a WordStar mode function.
(defvar ws-last-errormessage nil (#$ . 9349))
#@118 Report error of a WordStar special function. Error message is saved
in ws-last-errormessage for recovery with C-q w.
(defalias 'ws-error #[(string) "\302!\207" [string ws-last-errormessage error] 2 (#$ . 9457)])
#@60 In WordStar mode: Set marker 0 to current cursor position.
(defalias 'ws-set-marker-0 #[nil "\301 \302\303!\207" [ws-marker-0 point-marker message "Marker 0 set"] 2 (#$ . 9678) nil])
#@60 In WordStar mode: Set marker 1 to current cursor position.
(defalias 'ws-set-marker-1 #[nil "\301 \302\303!\207" [ws-marker-1 point-marker message "Marker 1 set"] 2 (#$ . 9868) nil])
#@60 In WordStar mode: Set marker 2 to current cursor position.
(defalias 'ws-set-marker-2 #[nil "\301 \302\303!\207" [ws-marker-2 point-marker message "Marker 2 set"] 2 (#$ . 10058) nil])
#@60 In WordStar mode: Set marker 3 to current cursor position.
(defalias 'ws-set-marker-3 #[nil "\301 \302\303!\207" [ws-marker-3 point-marker message "Marker 3 set"] 2 (#$ . 10249) nil])
#@60 In WordStar mode: Set marker 4 to current cursor position.
(defalias 'ws-set-marker-4 #[nil "\301 \302\303!\207" [ws-marker-4 point-marker message "Marker 4 set"] 2 (#$ . 10440) nil])
#@60 In WordStar mode: Set marker 5 to current cursor position.
(defalias 'ws-set-marker-5 #[nil "\301 \302\303!\207" [ws-marker-5 point-marker message "Marker 5 set"] 2 (#$ . 10631) nil])
#@60 In WordStar mode: Set marker 6 to current cursor position.
(defalias 'ws-set-marker-6 #[nil "\301 \302\303!\207" [ws-marker-6 point-marker message "Marker 6 set"] 2 (#$ . 10822) nil])
#@60 In WordStar mode: Set marker 7 to current cursor position.
(defalias 'ws-set-marker-7 #[nil "\301 \302\303!\207" [ws-marker-7 point-marker message "Marker 7 set"] 2 (#$ . 11013) nil])
#@60 In WordStar mode: Set marker 8 to current cursor position.
(defalias 'ws-set-marker-8 #[nil "\301 \302\303!\207" [ws-marker-8 point-marker message "Marker 8 set"] 2 (#$ . 11204) nil])
#@60 In WordStar mode: Set marker 9 to current cursor position.
(defalias 'ws-set-marker-9 #[nil "\301 \302\303!\207" [ws-marker-9 point-marker message "Marker 9 set"] 2 (#$ . 11395) nil])
#@70 In WordStar mode: Set block begin marker to current cursor position.
(defalias 'ws-begin-block #[nil "\301 \302\303!\207" [ws-block-begin-marker point-marker message "Block begin marker set"] 2 (#$ . 11586) nil])
#@39 In WordStar mode: Show block markers.
(defalias 'ws-show-markers #[nil "\204	\203>\212\203b\210\302\303!\210\304\305!\210\202#\302\306!\210\304\305!\210	\2035	b\210\302\307!\210\304\305!\210\2029\302\310!\210\302\311!)\207\302\312!\207" [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 (#$ . 11806) nil])
#@55 In WordStar mode: Indent block (not yet implemented).
(defalias 'ws-indent-block #[nil "\300\301!\207" [ws-error "Indent block not yet implemented"] 2 (#$ . 12266) nil])
#@68 In WordStar mode: Set block end marker to current cursor position.
(defalias 'ws-end-block #[nil "\301 \302\303!\207" [ws-block-end-marker point-marker message "Block end marker set"] 2 (#$ . 12442) nil])
#@32 In WordStar mode: Print block.
(defalias 'ws-print-block #[nil "\300\301!\207" [message "Don't do this. Write block to a file (C-k w) and print this file."] 2 (#$ . 12654) nil])
#@47 In WordStar mode: Mark current word as block.
(defalias 'ws-mark-word #[nil "\212\300v\210\301\300!\210\302 \210\303v\210\301\300!\210\304 )\207" [1 sit-for ws-end-block -1 ws-begin-block] 2 (#$ . 12838) nil])
#@43 I don't know what this (C-k u) should do.
(defalias 'ws-exdent-block #[nil "\300\301!\207" [ws-error "This won't be done -- not yet implemented."] 2 (#$ . 13054) nil])
#@58 In WordStar mode: Move block to current cursor position.
(defalias 'ws-move-block #[nil "\203\"	\203\"\302	\"\210\303 \210\212\304 b\210\305 \306 b\210\305 \211)\207\307\203+\310\2024	\2033\311\2024\312!\207" [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 (#$ . 13228) nil])
#@40 In WordStar mode: Write block to file.
(defalias 'ws-write-block #[nil "\203	\203\303\304!\305	\n#)\207\306\203\307\202%	\203$\310\202%\311!\207" [ws-block-begin-marker ws-block-end-marker filename read-file-name "Write block to file: " write-region ws-error "Block end marker not set" "Block begin marker not set" "Block markers not set"] 4 (#$ . 13666) nil])
#@33 In WordStar mode: Delete block.
(defalias 'ws-delete-block #[nil "\203	\203\302	\"\210\303\211\211\207\304\203\305\202%	\203$\306\202%\307!\207" [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"] 4 (#$ . 14046) nil])
#@35 In WordStar mode: Go to marker 0.
(defalias 'ws-find-marker-0 #[nil "\203\n\302 b\207\303\304!\207" [ws-marker-0 ws-last-cursorposition point-marker ws-error "Marker 0 not set"] 2 (#$ . 14381) nil])
#@35 In WordStar mode: Go to marker 1.
(defalias 'ws-find-marker-1 #[nil "\203\n\302 b\207\303\304!\207" [ws-marker-1 ws-last-cursorposition point-marker ws-error "Marker 1 not set"] 2 (#$ . 14590) nil])
#@35 In WordStar mode: Go to marker 2.
(defalias 'ws-find-marker-2 #[nil "\203\n\302 b\207\303\304!\207" [ws-marker-2 ws-last-cursorposition point-marker ws-error "Marker 2 not set"] 2 (#$ . 14799) nil])
#@35 In WordStar mode: Go to marker 3.
(defalias 'ws-find-marker-3 #[nil "\203\n\302 b\207\303\304!\207" [ws-marker-3 ws-last-cursorposition point-marker ws-error "Marker 3 not set"] 2 (#$ . 15008) nil])
#@35 In WordStar mode: Go to marker 4.
(defalias 'ws-find-marker-4 #[nil "\203\n\302 b\207\303\304!\207" [ws-marker-4 ws-last-cursorposition point-marker ws-error "Marker 4 not set"] 2 (#$ . 15217) nil])
#@35 In WordStar mode: Go to marker 5.
(defalias 'ws-find-marker-5 #[nil "\203\n\302 b\207\303\304!\207" [ws-marker-5 ws-last-cursorposition point-marker ws-error "Marker 5 not set"] 2 (#$ . 15426) nil])
#@35 In WordStar mode: Go to marker 6.
(defalias 'ws-find-marker-6 #[nil "\203\n\302 b\207\303\304!\207" [ws-marker-6 ws-last-cursorposition point-marker ws-error "Marker 6 not set"] 2 (#$ . 15635) nil])
#@35 In WordStar mode: Go to marker 7.
(defalias 'ws-find-marker-7 #[nil "\203\n\302 b\207\303\304!\207" [ws-marker-7 ws-last-cursorposition point-marker ws-error "Marker 7 not set"] 2 (#$ . 15844) nil])
#@35 In WordStar mode: Go to marker 8.
(defalias 'ws-find-marker-8 #[nil "\203\n\302 b\207\303\304!\207" [ws-marker-8 ws-last-cursorposition point-marker ws-error "Marker 8 not set"] 2 (#$ . 16053) nil])
#@35 In WordStar mode: Go to marker 9.
(defalias 'ws-find-marker-9 #[nil "\203\n\302 b\207\303\304!\207" [ws-marker-9 ws-last-cursorposition point-marker ws-error "Marker 9 not set"] 2 (#$ . 16262) nil])
#@45 In WordStar mode: Go to block begin marker.
(defalias 'ws-goto-block-begin #[nil "\203\n\302 b\207\303\304!\207" [ws-block-begin-marker ws-last-cursorposition point-marker ws-error "Block begin marker not set"] 2 (#$ . 16471) nil])
#@66 In WordStar mode: Search string, remember string for repetition.
(defalias 'ws-search #[(string) "\305\306!\210\307 \211\226\310\232\203	\311\312 \313	!\2021\226\314\232\203/	\315\312 \316	!\2021\317 )\207" [direction string ws-search-string ws-search-direction ws-last-cursorposition message "Forward (f) or backward (b)" read-char 70 t point-marker search-forward 66 nil search-backward keyboard-quit] 3 (#$ . 16713) "sSearch for: "])
#@43 In WordStar mode: Go to block end marker.
(defalias 'ws-goto-block-end #[nil "\203\n\302 b\207\303\304!\207" [ws-block-end-marker ws-last-cursorposition point-marker ws-error "Block end marker not set"] 2 (#$ . 17169) nil])
#@69 In WordStar mode: Undo and give message about undoing more changes.
(defalias 'ws-undo #[nil "\300 \210\301\302!\207" [undo message "Repeat C-q l to undo more changes."] 2 (#$ . 17403) nil])
#@20 In WordStar mode: 
(defalias 'ws-goto-last-cursorposition #[nil "\203\n\301 \211b\207\302\303!\207" [ws-last-cursorposition point-marker ws-error "No last cursor position available."] 3 (#$ . 17600) nil])
#@112 In WordStar mode: repeat last error message.
This will only work for errors raised by WordStar mode functions.
(defalias 'ws-last-error #[nil "\203	\301\302\"\207\301\303!\207" [ws-last-errormessage message "%s" "No WordStar error yet."] 3 (#$ . 17815) nil])
#@72 In WordStar mode: Kill to end of line (like WordStar, not like Emacs).
(defalias 'ws-kill-eol #[nil "`\301\210\302`\")\207" [p nil kill-region] 3 (#$ . 18083) nil])
#@78 In WordStar mode: Kill to beginning of line
(like WordStar, not like Emacs).
(defalias 'ws-kill-bol #[nil "`\301 \210\302`\")\207" [p beginning-of-line kill-region] 3 (#$ . 18257) nil])
#@25 Kill the complete line.
(defalias 'kill-complete-line #[nil "\301 \210m\203\302\303!\210`\304y\210\305`\")\207" [beg beginning-of-line error "End of buffer" 1 kill-region] 3 (#$ . 18451) nil])
#@39 In WordStar mode: Repeat last search.
(defalias 'ws-repeat-search #[nil "\303 	\203\n\203\304	!\207\305	!\207\306\307!\207" [ws-last-cursorposition ws-search-string ws-search-direction point-marker search-forward search-backward ws-error "No search to repeat"] 2 (#$ . 18654) nil])
#@66 In WordStar mode: Search string, remember string for repetition.
(defalias 'ws-query-replace #[(from to) "\305\306 \307\f\"\207" [from ws-search-string ws-search-direction ws-last-cursorposition to t point-marker query-replace] 3 (#$ . 18947) "sReplace: \nsWith: "])
#@58 In WordStar mode: Copy block to current cursor position.
(defalias 'ws-copy-block #[nil "\203\"	\203\"\302	\"\210\303 \210\212\304 b\210\305 \306 b\210\305 \211)\207\307\203+\310\2024	\2033\311\2024\312!\207" [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 (#$ . 19225) nil])
(provide 'ws-mode)