;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\304\306\307\310& \210\311\312\313\314\315DD\316\317\320%\207" [custom-declare-group wordstar nil "WordStar emulation within Emacs." :prefix "wordstar-" "ws-" :group emulations custom-declare-variable wordstar-mode-lighter funcall function #[0 "\300\207" [" WordStar"] 1 ""] "Lighter shown in the modeline for `wordstar' mode." :type string] 10) (defvar wordstar-C-k-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\331#\210\301\333\334#\210\301\335\334#\210\301\336\337#\210\301\340\337#\210\301\341\342#\210\301\343\342#\210\301\344\345#\210\301\346\345#\210\301\347\350#\210\301\351\350#\210\301\352\353#\210\301\354\353#\210\301\355\356#\210\301\357\356#\210\301\360\361#\210\301\362\361#\210\301\363\364#\210\301\365\364#\210\301\366\367#\210\301\370\367#\210\301\371\372#\210\301\373\372#\210\301\374\375#\210\301\376\377#\210\301\201@\201A#\210\301\201B\201A#\210\301\201C\201D#\210\301\201E\201D#\210\301\201F\337#\210\301\201G\337#\210\301\201H\201I#\210\301\201J\201I#\210\207" [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 ""] 5)) (defvar wordstar-C-o-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\310#\210\301\311\310#\210\301\312\313#\210\301\314\313#\210\301\315\316#\210\301\317\316#\210\301\320\321#\210\301\322\321#\210\301\323\324#\210\301\325\324#\210\301\326\327#\210\301\330\327#\210\301\331\332#\210\301\333\334#\210\301\335\336#\210\301\337\340#\210\301\341\342#\210\207" [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] 5)) (defvar wordstar-C-q-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\331#\210\301\333\334#\210\301\335\334#\210\301\336\337#\210\301\340\337#\210\301\341\342#\210\301\343\342#\210\301\344\345#\210\301\346\345#\210\301\347\350#\210\301\351\350#\210\301\352\353#\210\301\354\353#\210\301\355\356#\210\301\357\356#\210\301\360\361#\210\301\362\361#\210\301\363\364#\210\301\365\366#\210\301\367\366#\210\301\370\371#\210\301\372\371#\210\301\373\374#\210\207" [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" "r" beginning-of-buffer "" "s" beginning-of-line "" "" keyboard-quit "w" ws-last-error "" "y" ws-kill-eol "" "" ws-kill-bol] 5)) (defvar wordstar-mode-map (byte-code "\303 \304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331#\210\304\332\333#\210\304\334\335#\210\304\336 #\210\304\337\340#\210\304\341\n#\210\304\342\343#\210\304\344\324#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210\304\355\356#\210\304\357\360#\210\304\361\362#\210\207" [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] 5)) (defvar wordstar-C-j-map nil)#@95 Non-nil if Wordstar mode is enabled. Use the command `wordstar-mode' to change this variable. (defvar wordstar-mode nil (#$ . 4929)) (make-variable-buffer-local 'wordstar-mode)#@918 Minor 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 is a minor mode. If called interactively, toggle the `Wordstar mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `wordstar-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'wordstar-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203_\302 \203P\211\302 \232\203_\317\320\321\203[\322\202\\\323\324$\210\210\325 \210\207" [wordstar-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks wordstar-mode-hook wordstar-mode-on-hook wordstar-mode-off-hook called-interactively-p any message "%s %sabled%s" "Wordstar mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 5112) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar wordstar-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [wordstar-mode-map wordstar-mode-hook variable-documentation put "Hook run after entering or leaving `wordstar-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode wordstar-mode wordstar-mode-lighter] 6) (defalias 'turn-on-wordstar-mode #[0 "\301 ?\205?\205\300\302!\207" [wordstar-mode minibufferp 1] 2]) (put 'global-wordstar-mode 'globalized-minor-mode t) (defvar wordstar-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \207" [make-variable-buffer-local wordstar-mode-major-mode custom-declare-variable global-wordstar-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Global Wordstar mode is enabled.\nSee the `global-wordstar-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-wordstar-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)#@459 Toggle Wordstar mode in all buffers. With prefix ARG, enable Global Wordstar mode if ARG is positive; otherwise, disable it. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. Wordstar mode is enabled in all buffers where `turn-on-wordstar-mode' would do it. See `wordstar-mode' for more information on Wordstar mode. (fn &optional ARG) (defalias 'global-wordstar-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203N\314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202]\323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \211\203\203\211@r\211q\210 \203s\325 \210\202{\n\203{\302\326!\210)A\266\202\202_\210\327\330\306\301!\203\220\331\202\221\332\"\210\333\334!\203\272\335\301!\210\303 \203\251\211\303 \232\203\272\336\337\340\306\301!\203\266\341\202\267\342\343$\210\210\344 \210\306\301!\207" [global-minor-modes global-wordstar-mode wordstar-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-wordstar-mode-enable-in-buffers find-file-hook global-wordstar-mode-check-buffers change-major-mode-hook global-wordstar-mode-cmhh remove-hook buffer-list turn-on-wordstar-mode -1 run-hooks global-wordstar-mode-hook global-wordstar-mode-on-hook global-wordstar-mode-off-hook called-interactively-p any customize-mark-as-set message "%s %sabled%s" "Global Wordstar mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 7984) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar global-wordstar-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [global-wordstar-mode-map global-wordstar-mode-hook variable-documentation put "Hook run after entering or leaving `global-wordstar-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-wordstar-mode boundp] 6) (defvar wordstar-mode-set-explicitly nil nil) (make-variable-buffer-local 'wordstar-mode-set-explicitly) (defalias 'wordstar-mode-set-explicitly #[0 "\301\211\207" [wordstar-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put wordstar-mode-set-explicitly definition-name global-wordstar-mode add-hook wordstar-mode-hook] 4) (defvar global-wordstar-mode-buffers nil) (defalias 'global-wordstar-mode-enable-in-buffers #[0 "\305\211\211\2059\211@\306!\2032r\211q\210 \204/\n =\204/\f\203,\304\307!\210\310 \210\202/\310 \210 )A\266\202\202\207" [global-wordstar-mode-buffers wordstar-mode-set-explicitly wordstar-mode-major-mode major-mode wordstar-mode nil buffer-live-p -1 turn-on-wordstar-mode] 5]) (put 'global-wordstar-mode-enable-in-buffers 'definition-name 'global-wordstar-mode) (defalias 'global-wordstar-mode-check-buffers #[0 "\300 \210\301\302\303\"\207" [global-wordstar-mode-enable-in-buffers remove-hook post-command-hook global-wordstar-mode-check-buffers] 3]) (put 'global-wordstar-mode-check-buffers 'definition-name 'global-wordstar-mode) (defalias 'global-wordstar-mode-cmhh #[0 "p\211\235\203 \266\202\211B\210\301\302\303\"\207" [global-wordstar-mode-buffers add-hook post-command-hook global-wordstar-mode-check-buffers] 3]) (put 'global-wordstar-mode-cmhh 'definition-name 'global-wordstar-mode)#@96 Center each line in the paragraph at or after point. See `wordstar-center-line' for more info. (defalias 'wordstar-center-paragraph #[0 "\212\300 \210n\204\f\301\302!\210`\303 \210\304`\")\207" [forward-paragraph newline 1 backward-paragraph wordstar-center-region] 4 (#$ . 11621) nil])#@98 Center each line starting in the region. See `wordstar-center-line' for more info. (fn FROM TO) (defalias 'wordstar-center-region #[514 "V\203\f\211\262\262\212\214}\210b\210m?\205#\300 \210\301y\210\202*\207" [wordstar-center-line 1] 4 (#$ . 11915) "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 #[0 "\212\302\303 \210\304 \210\302\210\304 \210i\262\303 \210 ZZ\305\245\\j)\207" [left-margin fill-column nil beginning-of-line delete-horizontal-space 2] 4 (#$ . 12190) nil])#@37 Position marker 0 in WordStar mode. (defvar ws-marker-0 nil (#$ . 12590))#@37 Position marker 1 in WordStar mode. (defvar ws-marker-1 nil (#$ . 12669))#@37 Position marker 2 in WordStar mode. (defvar ws-marker-2 nil (#$ . 12748))#@37 Position marker 3 in WordStar mode. (defvar ws-marker-3 nil (#$ . 12827))#@37 Position marker 4 in WordStar mode. (defvar ws-marker-4 nil (#$ . 12906))#@37 Position marker 5 in WordStar mode. (defvar ws-marker-5 nil (#$ . 12985))#@37 Position marker 6 in WordStar mode. (defvar ws-marker-6 nil (#$ . 13064))#@37 Position marker 7 in WordStar mode. (defvar ws-marker-7 nil (#$ . 13143))#@37 Position marker 8 in WordStar mode. (defvar ws-marker-8 nil (#$ . 13222))#@37 Position marker 9 in WordStar mode. (defvar ws-marker-9 nil (#$ . 13301))#@40 Beginning of "Block" in WordStar mode. (defvar ws-block-begin-marker nil (#$ . 13380))#@34 End of "Block" in WordStar mode. (defvar ws-block-end-marker nil (#$ . 13472))#@41 String of last search in WordStar mode. (defvar ws-search-string nil (#$ . 13556))#@76 Direction of last search in WordStar mode. t if forward, nil if backward. (defvar ws-search-direction t (#$ . 13644))#@52 Position before last search etc. in WordStar mode. (defvar ws-last-cursorposition nil (#$ . 13768))#@56 Last error message issued by a WordStar mode function. (defvar ws-last-errormessage nil (#$ . 13873))#@133 Report error of a WordStar special function. Error message is saved in `ws-last-errormessage' for recovery with C-q w. (fn STRING) (defalias 'ws-error #[257 "\211\301!\207" [ws-last-errormessage error] 3 (#$ . 13981)])#@70 In WordStar mode: Set block begin marker to current cursor position. (defalias 'ws-begin-block #[0 "\301 \302\303!\207" [ws-block-begin-marker point-marker message "Block begin marker set"] 2 (#$ . 14208) nil])#@39 In WordStar mode: Show block markers. (defalias 'ws-show-markers #[0 "\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 (#$ . 14425) nil])#@55 In WordStar mode: Indent block (not yet implemented). (defalias 'ws-indent-block #[0 "\300\301!\207" [ws-error "Indent block not yet implemented"] 2 (#$ . 14882) nil])#@68 In WordStar mode: Set block end marker to current cursor position. (defalias 'ws-end-block #[0 "\301 \302\303!\207" [ws-block-end-marker point-marker message "Block end marker set"] 2 (#$ . 15055) nil])#@32 In WordStar mode: Print block. (defalias 'ws-print-block #[0 "\300\301!\207" [message "Don't do this. Write block to a file (C-k w) and print this file"] 2 (#$ . 15264) nil])#@47 In WordStar mode: Mark current word as block. (defalias 'ws-mark-word #[0 "\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 (#$ . 15444) nil])#@43 I don't know what this (C-k u) should do. (defalias 'ws-exdent-block #[0 "\300\301!\207" [ws-error "This won't be done -- not yet implemented"] 2 (#$ . 15657) nil])#@58 In WordStar mode: Move block to current cursor position. (defalias 'ws-move-block #[0 "\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 (#$ . 15827) nil])#@40 In WordStar mode: Write block to file. (defalias 'ws-write-block #[0 "\203 \203\302\303!\304 #\207\305\203\306\202# \203\"\307\202#\310!\207" [ws-block-begin-marker ws-block-end-marker 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"] 5 (#$ . 16262) nil])#@33 In WordStar mode: Delete block. (defalias 'ws-delete-block #[0 "\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 (#$ . 16628) nil])#@45 In WordStar mode: Go to block begin marker. (defalias 'ws-goto-block-begin #[0 "\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 (#$ . 16960) nil])#@79 In WordStar mode: Search string, remember string for repetition. (fn STRING) (defalias 'ws-search #[257 "\303\304!\210\305 \211\226\306=\203\307\310 \311!\207\211\226\312=\203*\313\310 \314!\207\315 \207" [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] 4 (#$ . 17199) "sSearch for: "])#@43 In WordStar mode: Go to block end marker. (defalias 'ws-goto-block-end #[0 "\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 (#$ . 17636) nil])#@69 In WordStar mode: Undo and give message about undoing more changes. (defalias 'ws-undo #[0 "\300 \210\301\302!\207" [undo message "Repeat C-q l to undo more changes"] 2 (#$ . 17867) nil])#@54 In WordStar mode: Go to position before last search. (defalias 'ws-goto-last-cursorposition #[0 "\203\n\301 \211b\207\302\303!\207" [ws-last-cursorposition point-marker ws-error "No last cursor position available"] 3 (#$ . 18060) nil])#@112 In WordStar mode: repeat last error message. This will only work for errors raised by WordStar mode functions. (defalias 'ws-last-error #[0 "\203 \301\302\"\207\301\303!\207" [ws-last-errormessage message "%s" "No WordStar error yet"] 3 (#$ . 18305) nil])#@72 In WordStar mode: Kill to end of line (like WordStar, not like Emacs). (defalias 'ws-kill-eol #[0 "`\300\210\301`\"\207" [nil kill-region] 4 (#$ . 18569) nil])#@78 In WordStar mode: Kill to beginning of line (like WordStar, not like Emacs). (defalias 'ws-kill-bol #[0 "`\300 \210\301`\"\207" [beginning-of-line kill-region] 4 (#$ . 18736) nil])#@25 Kill the complete line. (defalias 'kill-complete-line #[0 "\300 \210m\203 \301\302!\210`\303y\210\304`\"\207" [beginning-of-line error "End of buffer" 1 kill-region] 4 (#$ . 18923) nil])#@39 In WordStar mode: Repeat last search. (defalias 'ws-repeat-search #[0 "\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 (#$ . 19117) nil])#@80 In WordStar mode: Search string, remember string for repetition. (fn FROM TO) (defalias 'ws-query-replace #[514 "\303\304 \305\"\207" [ws-search-string ws-search-direction ws-last-cursorposition t point-marker query-replace] 5 (#$ . 19407) "sReplace: \nsWith: "])#@58 In WordStar mode: Copy block to current cursor position. (defalias 'ws-copy-block #[0 "\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 (#$ . 19683) nil])#@22 (fn &rest INDICES) (defalias 'ws-set-marker '(macro . #[128 "\300\211\2037\211A\262\242\262\301\302\303\304\"!\300\303\305\"\306\307\302\303\310\n\"!\311BB\312\303\313\n\"D\257B\262\202\314\237B\207" [nil defun intern format "ws-set-marker-%d" "In WordStar mode: Set marker %d to current cursor position" (interactive) setq "ws-marker-%d" ((point-marker)) message "Marker %d set" progn] 13 (#$ . 20126)]))#@59 In WordStar mode: Set marker 0 to current cursor position (defalias 'ws-set-marker-0 #[0 "\301 \302\303!\207" [ws-marker-0 point-marker message "Marker 0 set"] 2 (#$ . 20555) nil])#@59 In WordStar mode: Set marker 1 to current cursor position (defalias 'ws-set-marker-1 #[0 "\301 \302\303!\207" [ws-marker-1 point-marker message "Marker 1 set"] 2 (#$ . 20742) nil])#@59 In WordStar mode: Set marker 2 to current cursor position (defalias 'ws-set-marker-2 #[0 "\301 \302\303!\207" [ws-marker-2 point-marker message "Marker 2 set"] 2 (#$ . 20929) nil])#@59 In WordStar mode: Set marker 3 to current cursor position (defalias 'ws-set-marker-3 #[0 "\301 \302\303!\207" [ws-marker-3 point-marker message "Marker 3 set"] 2 (#$ . 21116) nil])#@59 In WordStar mode: Set marker 4 to current cursor position (defalias 'ws-set-marker-4 #[0 "\301 \302\303!\207" [ws-marker-4 point-marker message "Marker 4 set"] 2 (#$ . 21303) nil])#@59 In WordStar mode: Set marker 5 to current cursor position (defalias 'ws-set-marker-5 #[0 "\301 \302\303!\207" [ws-marker-5 point-marker message "Marker 5 set"] 2 (#$ . 21490) nil])#@59 In WordStar mode: Set marker 6 to current cursor position (defalias 'ws-set-marker-6 #[0 "\301 \302\303!\207" [ws-marker-6 point-marker message "Marker 6 set"] 2 (#$ . 21677) nil])#@59 In WordStar mode: Set marker 7 to current cursor position (defalias 'ws-set-marker-7 #[0 "\301 \302\303!\207" [ws-marker-7 point-marker message "Marker 7 set"] 2 (#$ . 21864) nil])#@59 In WordStar mode: Set marker 8 to current cursor position (defalias 'ws-set-marker-8 #[0 "\301 \302\303!\207" [ws-marker-8 point-marker message "Marker 8 set"] 2 (#$ . 22051) nil])#@59 In WordStar mode: Set marker 9 to current cursor position (defalias 'ws-set-marker-9 #[0 "\301 \302\303!\207" [ws-marker-9 point-marker message "Marker 9 set"] 2 (#$ . 22238) nil])#@22 (fn &rest INDICES) (defalias 'ws-find-marker '(macro . #[128 "\300\211\203A\211A\262\242\262\301\302\303\304\"!\300\303\305\"\306\307\302\303\310\n\"!\311\312\313\302\303\310\"!DE\314\303\315\f\"DF\257B\262\202\311\237B\207" [nil defun intern format "ws-find-marker-%d" "In WordStar mode: Go to marker %d." (interactive) if "ws-marker-%d" progn (setq ws-last-cursorposition (point-marker)) goto-char ws-error "Marker %d not set"] 17 (#$ . 22425)]))#@35 In WordStar mode: Go to marker 0. (defalias 'ws-find-marker-0 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-0 ws-last-cursorposition point-marker ws-error "Marker 0 not set"] 2 (#$ . 22899) nil])#@35 In WordStar mode: Go to marker 1. (defalias 'ws-find-marker-1 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-1 ws-last-cursorposition point-marker ws-error "Marker 1 not set"] 2 (#$ . 23105) nil])#@35 In WordStar mode: Go to marker 2. (defalias 'ws-find-marker-2 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-2 ws-last-cursorposition point-marker ws-error "Marker 2 not set"] 2 (#$ . 23311) nil])#@35 In WordStar mode: Go to marker 3. (defalias 'ws-find-marker-3 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-3 ws-last-cursorposition point-marker ws-error "Marker 3 not set"] 2 (#$ . 23517) nil])#@35 In WordStar mode: Go to marker 4. (defalias 'ws-find-marker-4 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-4 ws-last-cursorposition point-marker ws-error "Marker 4 not set"] 2 (#$ . 23723) nil])#@35 In WordStar mode: Go to marker 5. (defalias 'ws-find-marker-5 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-5 ws-last-cursorposition point-marker ws-error "Marker 5 not set"] 2 (#$ . 23929) nil])#@35 In WordStar mode: Go to marker 6. (defalias 'ws-find-marker-6 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-6 ws-last-cursorposition point-marker ws-error "Marker 6 not set"] 2 (#$ . 24135) nil])#@35 In WordStar mode: Go to marker 7. (defalias 'ws-find-marker-7 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-7 ws-last-cursorposition point-marker ws-error "Marker 7 not set"] 2 (#$ . 24341) nil])#@35 In WordStar mode: Go to marker 8. (defalias 'ws-find-marker-8 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-8 ws-last-cursorposition point-marker ws-error "Marker 8 not set"] 2 (#$ . 24547) nil])#@35 In WordStar mode: Go to marker 9. (defalias 'ws-find-marker-9 #[0 "\203\n\302 b\207\303\304!\207" [ws-marker-9 ws-last-cursorposition point-marker ws-error "Marker 9 not set"] 2 (#$ . 24753) nil]) (provide 'ws-mode)