%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/obsolete/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/obsolete/ws-mode.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

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


(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" [#1=" WordStar"] 1 #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\211\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\211\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\364#\210\301\366\367#\210\301\370\371#\210\301\372\371#\210\301\373\374#\210\301\375\374#\210\301\376\377#\210\211\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" "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] 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\211\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 (#$ . 5334))
(make-variable-buffer-local 'wordstar-mode)
#@629 Minor mode with WordStar-like key bindings.

If called interactively, enable Wordstar mode if ARG is positive, and
disable it if ARG is zero or negative.  If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.

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.

(fn &optional ARG)
(defalias 'wordstar-mode #[256 "\301 \302=\203
?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203B\301 \2032\211\301 \232\203B\313\314\315\203=\316\202>\317#\266\210\320 \210\207" [wordstar-mode current-message toggle prefix-numeric-value 0 run-hooks wordstar-mode-hook wordstar-mode-on-hook wordstar-mode-off-hook called-interactively-p any " in current buffer" message "Wordstar mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 5518) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar wordstar-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\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.)" add-minor-mode wordstar-mode wordstar-mode-lighter nil] 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)
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317&\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 :group global-wordstar :type boolean] 12)
#@353 Toggle Wordstar mode in all buffers.
With prefix ARG, enable Global Wordstar mode if ARG is positive;
otherwise, disable it.  If called from Lisp, enable the mode if
ARG is omitted or nil.

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 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\321 \210\202[	\203[\301\322!\210)A\266\202\202?\210\323\324\305\300!\203p\325\202q\326\"\210\327\330!\203\233\331\300!\210\302 \203\211\211\302 \232\203\233\332\333\334\305\300!\203\226\335\202\227\336#\266\210\337 \210\305\300!\207" [global-wordstar-mode wordstar-mode current-message set-default toggle default-value prefix-numeric-value 0 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 "Global Wordstar mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 7927) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar global-wordstar-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\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.)" add-minor-mode global-wordstar-mode nil 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\262\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\f\210\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`\"\262)\207" [forward-paragraph newline 1 backward-paragraph wordstar-center-region] 4 (#$ . 11247) 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 (#$ . 11547) "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\305	#\306\245\\j\262)\207" [left-margin fill-column nil beginning-of-line delete-horizontal-space - 2] 6 (#$ . 11823) nil])
#@37 Position marker 0 in WordStar mode.
(defvar ws-marker-0 nil (#$ . 12234))
#@37 Position marker 1 in WordStar mode.
(defvar ws-marker-1 nil (#$ . 12314))
#@37 Position marker 2 in WordStar mode.
(defvar ws-marker-2 nil (#$ . 12394))
#@37 Position marker 3 in WordStar mode.
(defvar ws-marker-3 nil (#$ . 12474))
#@37 Position marker 4 in WordStar mode.
(defvar ws-marker-4 nil (#$ . 12554))
#@37 Position marker 5 in WordStar mode.
(defvar ws-marker-5 nil (#$ . 12634))
#@37 Position marker 6 in WordStar mode.
(defvar ws-marker-6 nil (#$ . 12714))
#@37 Position marker 7 in WordStar mode.
(defvar ws-marker-7 nil (#$ . 12794))
#@37 Position marker 8 in WordStar mode.
(defvar ws-marker-8 nil (#$ . 12874))
#@37 Position marker 9 in WordStar mode.
(defvar ws-marker-9 nil (#$ . 12954))
#@40 Beginning of "Block" in WordStar mode.
(defvar ws-block-begin-marker nil (#$ . 13034))
#@34 End of "Block" in WordStar mode.
(defvar ws-block-end-marker nil (#$ . 13127))
#@41 String of last search in WordStar mode.
(defvar ws-search-string nil (#$ . 13212))
#@76 Direction of last search in WordStar mode.  t if forward, nil if backward.
(defvar ws-search-direction t (#$ . 13301))
#@52 Position before last search etc. in WordStar mode.
(defvar ws-last-cursorposition nil (#$ . 13426))
#@56 Last error message issued by a WordStar mode function.
(defvar ws-last-errormessage nil (#$ . 13532))
#@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 (#$ . 13641)])
#@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 (#$ . 13869) 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 (#$ . 14087) 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 (#$ . 14545) 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 (#$ . 14719) 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 (#$ . 14929) 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 (#$ . 15110) 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 (#$ . 15324) 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 (#$ . 15495) 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 (#$ . 15931) 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 (#$ . 16298) 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 (#$ . 16631) nil])
#@79 In WordStar mode: Search string, remember string for repetition.

(fn STRING)
(defalias 'ws-search #[257 "\303\304!\210\305 \211\226\306\232\203\307\310 \311!\2020\211\226\312\232\203.\313\310 \314!\2020\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 (#$ . 16871) "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 (#$ . 17319) 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 (#$ . 17551) 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 (#$ . 17745) 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 (#$ . 17991) 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 (#$ . 18256) 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 (#$ . 18424) 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 (#$ . 18612) 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 (#$ . 18807) 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 (#$ . 19098) "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 (#$ . 19375) 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 (#$ . 19819)]))
#@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 (#$ . 20249) 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 (#$ . 20437) 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 (#$ . 20625) 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 (#$ . 20813) 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 (#$ . 21001) 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 (#$ . 21189) 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 (#$ . 21377) 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 (#$ . 21565) 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 (#$ . 21753) 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 (#$ . 21941) 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 (#$ . 22129)]))
#@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 (#$ . 22604) 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 (#$ . 22811) 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 (#$ . 23018) 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 (#$ . 23225) 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 (#$ . 23432) 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 (#$ . 23639) 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 (#$ . 23846) 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 (#$ . 24053) 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 (#$ . 24260) 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 (#$ . 24467) nil])
(provide 'ws-mode)

Zerion Mini Shell 1.0