ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/obsolete/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/obsolete/ws-mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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) (#$ . 1929))
(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)
#@165 Hook run after entering WordStar mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar wordstar-mode-hook nil (#$ . 5027))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp wordstar-mode-map put definition-name wordstar-mode] 4)
(defvar wordstar-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [wordstar-mode-map variable-documentation put purecopy "Keymap for `wordstar-mode'." boundp wordstar-mode-syntax-table definition-name wordstar-mode] 5)
(defvar wordstar-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [wordstar-mode-syntax-table variable-documentation put purecopy "Syntax table for `wordstar-mode'." wordstar-mode-abbrev-table definition-name wordstar-mode] 5)
(defvar wordstar-mode-abbrev-table (progn (define-abbrev-table 'wordstar-mode-abbrev-table nil) wordstar-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [wordstar-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `wordstar-mode'." wordstar-mode derived-mode-parent nil] 5)
#@478 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 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 (#$ . 6301) 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 (#$ . 7181) 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 (#$ . 7482) "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 (#$ . 7753) nil])
#@37 Position marker 0 in WordStar mode.
(defvar ws-marker-0 nil (#$ . 8170))
#@37 Position marker 1 in WordStar mode.
(defvar ws-marker-1 nil (#$ . 8249))
#@37 Position marker 2 in WordStar mode.
(defvar ws-marker-2 nil (#$ . 8328))
#@37 Position marker 3 in WordStar mode.
(defvar ws-marker-3 nil (#$ . 8407))
#@37 Position marker 4 in WordStar mode.
(defvar ws-marker-4 nil (#$ . 8486))
#@37 Position marker 5 in WordStar mode.
(defvar ws-marker-5 nil (#$ . 8565))
#@37 Position marker 6 in WordStar mode.
(defvar ws-marker-6 nil (#$ . 8644))
#@37 Position marker 7 in WordStar mode.
(defvar ws-marker-7 nil (#$ . 8723))
#@37 Position marker 8 in WordStar mode.
(defvar ws-marker-8 nil (#$ . 8802))
#@37 Position marker 9 in WordStar mode.
(defvar ws-marker-9 nil (#$ . 8881))
#@40 Beginning of "Block" in WordStar mode.
(defvar ws-block-begin-marker nil (#$ . 8960))
#@34 End of "Block" in WordStar mode.
(defvar ws-block-end-marker nil (#$ . 9052))
#@41 String of last search in WordStar mode.
(defvar ws-search-string nil (#$ . 9136))
#@75 Direction of last search in WordStar mode. t if forward, nil if backward.
(defvar ws-search-direction t (#$ . 9224))
#@52 Position before last search etc. in WordStar mode.
(defvar ws-last-cursorposition nil (#$ . 9347))
#@56 Last error message issued by a WordStar mode function.
(defvar ws-last-errormessage nil (#$ . 9452))
#@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 (#$ . 9560)])
#@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 (#$ . 9781) 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 (#$ . 9971) 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 (#$ . 10161) 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 (#$ . 10352) 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 (#$ . 10543) 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 (#$ . 10734) 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 (#$ . 10925) 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 (#$ . 11116) 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 (#$ . 11307) 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 (#$ . 11498) 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 (#$ . 11689) nil])
#@39 In WordStar mode: Show block markers.
(defalias 'ws-show-markers #[nil "\204 \203> \212\203 b\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 (#$ . 11909) 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 (#$ . 12369) 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 (#$ . 12545) 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 (#$ . 12757) 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 (#$ . 12941) 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 (#$ . 13157) 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 (#$ . 13331) 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 (#$ . 13769) 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 (#$ . 14149) 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 (#$ . 14484) 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 (#$ . 14693) 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 (#$ . 14902) 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 (#$ . 15111) 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 (#$ . 15320) 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 (#$ . 15529) 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 (#$ . 15738) 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 (#$ . 15947) 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 (#$ . 16156) 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 (#$ . 16365) 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 (#$ . 16574) 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 (#$ . 16816) "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 (#$ . 17272) 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 (#$ . 17506) 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 (#$ . 17703) 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 (#$ . 17918) 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 (#$ . 18186) 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 (#$ . 18360) 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 (#$ . 18554) 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 (#$ . 18757) 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 (#$ . 19050) "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 (#$ . 19328) nil])
(provide 'ws-mode)
Kontol Shell Bypass