|
Server IP : 111.118.215.189 / Your IP : 18.217.89.171 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/emulation/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:01 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emulation/ws-mode.el ;;; in Emacs version 24.3.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@2 (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) (#$ . 559)) #@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) (#$ . 2096)) #@2 (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) (#$ . 2849)) #@2 (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) (#$ . 4147)) #@2 (defvar wordstar-C-j-map nil (#$ . 5156)) (put 'wordstar-mode 'mode-class 'special) #@2430 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 wordstar-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-right C-o wo other-window C-o wv split-window-below 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 (defalias 'wordstar-mode #[nil "\303 \210\304!\210\305\306\307\310!\207" [wordstar-mode-map mode-name major-mode kill-all-local-variables use-local-map "WordStar" wordstar-mode run-mode-hooks wordstar-mode-hook] 2 (#$ . 5249) 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 (#$ . 7919) 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 (#$ . 8220) "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 (#$ . 8491) nil]) #@37 Position marker 0 in WordStar mode. (defvar ws-marker-0 nil (#$ . 8908)) #@37 Position marker 1 in WordStar mode. (defvar ws-marker-1 nil (#$ . 8987)) #@37 Position marker 2 in WordStar mode. (defvar ws-marker-2 nil (#$ . 9066)) #@37 Position marker 3 in WordStar mode. (defvar ws-marker-3 nil (#$ . 9145)) #@37 Position marker 4 in WordStar mode. (defvar ws-marker-4 nil (#$ . 9224)) #@37 Position marker 5 in WordStar mode. (defvar ws-marker-5 nil (#$ . 9303)) #@37 Position marker 6 in WordStar mode. (defvar ws-marker-6 nil (#$ . 9382)) #@37 Position marker 7 in WordStar mode. (defvar ws-marker-7 nil (#$ . 9461)) #@37 Position marker 8 in WordStar mode. (defvar ws-marker-8 nil (#$ . 9540)) #@37 Position marker 9 in WordStar mode. (defvar ws-marker-9 nil (#$ . 9619)) #@40 Beginning of "Block" in WordStar mode. (defvar ws-block-begin-marker nil (#$ . 9698)) #@34 End of "Block" in WordStar mode. (defvar ws-block-end-marker nil (#$ . 9790)) #@41 String of last search in WordStar mode. (defvar ws-search-string nil (#$ . 9874)) #@75 Direction of last search in WordStar mode. t if forward, nil if backward. (defvar ws-search-direction t (#$ . 9962)) #@52 Position before last search etc. in WordStar mode. (defvar ws-last-cursorposition nil (#$ . 10085)) #@56 Last error message issued by a WordStar mode function. (defvar ws-last-errormessage nil (#$ . 10191)) #@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 (#$ . 10300)]) #@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 (#$ . 10522) 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 (#$ . 10713) 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 (#$ . 10904) 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 (#$ . 11095) 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 (#$ . 11286) 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 (#$ . 11477) 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 (#$ . 11668) 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 (#$ . 11859) 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 (#$ . 12050) 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 (#$ . 12241) 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 (#$ . 12432) 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 (#$ . 12652) 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 (#$ . 13112) 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 (#$ . 13288) 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 (#$ . 13500) 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 (#$ . 13684) 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 (#$ . 13900) 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 (#$ . 14074) 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 (#$ . 14512) 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 (#$ . 14892) 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 (#$ . 15227) 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 (#$ . 15436) 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 (#$ . 15645) 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 (#$ . 15854) 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 (#$ . 16063) 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 (#$ . 16272) 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 (#$ . 16481) 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 (#$ . 16690) 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 (#$ . 16899) 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 (#$ . 17108) 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 (#$ . 17317) 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 (#$ . 17559) "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 (#$ . 18015) 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 (#$ . 18249) 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 (#$ . 18446) 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 (#$ . 18661) 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 (#$ . 18929) 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 (#$ . 19103) 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 (#$ . 19297) 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 (#$ . 19500) 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 (#$ . 19793) "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 (#$ . 20071) nil]) (provide 'ws-mode)