42 |
(setq wordstar-C-k-map (make-keymap)) |
(setq wordstar-C-k-map (make-keymap)) |
43 |
(setq wordstar-C-o-map (make-keymap)) |
(setq wordstar-C-o-map (make-keymap)) |
44 |
(setq wordstar-C-q-map (make-keymap)) |
(setq wordstar-C-q-map (make-keymap)) |
45 |
|
|
46 |
(define-key wordstar-mode-map "\C-a" 'backward-word) |
(define-key wordstar-mode-map "\C-a" 'backward-word) |
47 |
(define-key wordstar-mode-map "\C-b" 'fill-paragraph) |
(define-key wordstar-mode-map "\C-b" 'fill-paragraph) |
48 |
(define-key wordstar-mode-map "\C-c" 'scroll-up) |
(define-key wordstar-mode-map "\C-c" 'scroll-up) |
68 |
(define-key wordstar-mode-map "\C-x" 'next-line) |
(define-key wordstar-mode-map "\C-x" 'next-line) |
69 |
(define-key wordstar-mode-map "\C-y" 'kill-complete-line) |
(define-key wordstar-mode-map "\C-y" 'kill-complete-line) |
70 |
(define-key wordstar-mode-map "\C-z" 'scroll-up-line) |
(define-key wordstar-mode-map "\C-z" 'scroll-up-line) |
71 |
|
|
72 |
;; wordstar-C-k-map |
;; wordstar-C-k-map |
73 |
|
|
74 |
(define-key wordstar-C-k-map " " ()) |
(define-key wordstar-C-k-map " " ()) |
75 |
(define-key wordstar-C-k-map "0" 'ws-set-marker-0) |
(define-key wordstar-C-k-map "0" 'ws-set-marker-0) |
76 |
(define-key wordstar-C-k-map "1" 'ws-set-marker-1) |
(define-key wordstar-C-k-map "1" 'ws-set-marker-1) |
116 |
(define-key wordstar-C-k-map "\C-x" 'save-buffers-kill-emacs) |
(define-key wordstar-C-k-map "\C-x" 'save-buffers-kill-emacs) |
117 |
(define-key wordstar-C-k-map "y" 'ws-delete-block) |
(define-key wordstar-C-k-map "y" 'ws-delete-block) |
118 |
(define-key wordstar-C-k-map "\C-y" 'ws-delete-block) |
(define-key wordstar-C-k-map "\C-y" 'ws-delete-block) |
119 |
|
|
120 |
;; wordstar-C-j-map not yet implemented |
;; wordstar-C-j-map not yet implemented |
121 |
|
|
122 |
;; wordstar-C-o-map |
;; wordstar-C-o-map |
123 |
|
|
124 |
(define-key wordstar-C-o-map " " ()) |
(define-key wordstar-C-o-map " " ()) |
125 |
(define-key wordstar-C-o-map "c" 'wordstar-center-line) |
(define-key wordstar-C-o-map "c" 'wordstar-center-line) |
126 |
(define-key wordstar-C-o-map "\C-c" 'wordstar-center-line) |
(define-key wordstar-C-o-map "\C-c" 'wordstar-center-line) |
141 |
(define-key wordstar-C-o-map "wh" 'split-window-horizontally) |
(define-key wordstar-C-o-map "wh" 'split-window-horizontally) |
142 |
(define-key wordstar-C-o-map "wo" 'other-window) |
(define-key wordstar-C-o-map "wo" 'other-window) |
143 |
(define-key wordstar-C-o-map "wv" 'split-window-vertically) |
(define-key wordstar-C-o-map "wv" 'split-window-vertically) |
144 |
|
|
145 |
;; wordstar-C-q-map |
;; wordstar-C-q-map |
146 |
(define-key wordstar-C-q-map " " ()) |
(define-key wordstar-C-q-map " " ()) |
147 |
(define-key wordstar-C-q-map "0" 'ws-find-marker-0) |
(define-key wordstar-C-q-map "0" 'ws-find-marker-0) |
336 |
(delete-horizontal-space) |
(delete-horizontal-space) |
337 |
(setq line-length (current-column)) |
(setq line-length (current-column)) |
338 |
(beginning-of-line) |
(beginning-of-line) |
339 |
(indent-to |
(indent-to |
340 |
(+ left-margin |
(+ left-margin |
341 |
(/ (- fill-column left-margin line-length) 2)))))) |
(/ (- fill-column left-margin line-length) 2)))))) |
342 |
|
|
343 |
(defun scroll-down-line () |
(defun scroll-down-line () |
368 |
(defvar ws-block-end-marker nil "End of \"Block\" in WordStar mode.") |
(defvar ws-block-end-marker nil "End of \"Block\" in WordStar mode.") |
369 |
|
|
370 |
(defvar ws-search-string nil "String of last search in WordStar mode.") |
(defvar ws-search-string nil "String of last search in WordStar mode.") |
371 |
(defvar ws-search-direction t |
(defvar ws-search-direction t |
372 |
"Direction of last search in WordStar mode. t if forward, nil if backward.") |
"Direction of last search in WordStar mode. t if forward, nil if backward.") |
373 |
|
|
374 |
(defvar ws-last-cursorposition nil |
(defvar ws-last-cursorposition nil |
375 |
"Position before last search etc. in WordStar mode.") |
"Position before last search etc. in WordStar mode.") |
376 |
|
|
377 |
(defvar ws-last-errormessage nil |
(defvar ws-last-errormessage nil |
378 |
"Last error message issued by a WordStar mode function.") |
"Last error message issued by a WordStar mode function.") |
379 |
|
|
380 |
;;;;;;;;;;; |
;;;;;;;;;;; |
510 |
"In WordStar mode: Move block to current cursor position." |
"In WordStar mode: Move block to current cursor position." |
511 |
(interactive) |
(interactive) |
512 |
(if (and ws-block-begin-marker ws-block-end-marker) |
(if (and ws-block-begin-marker ws-block-end-marker) |
513 |
(let () |
(let () |
514 |
(kill-region ws-block-begin-marker ws-block-end-marker) |
(kill-region ws-block-begin-marker ws-block-end-marker) |
515 |
(yank) |
(yank) |
516 |
(save-excursion |
(save-excursion |
702 |
(kill-region p (point)))) |
(kill-region p (point)))) |
703 |
|
|
704 |
(defun ws-kill-bol () |
(defun ws-kill-bol () |
705 |
"In WordStar mode: Kill to beginning of line |
"In WordStar mode: Kill to beginning of line |
706 |
\(like WordStar, not like Emacs)." |
\(like WordStar, not like Emacs)." |
707 |
(interactive) |
(interactive) |
708 |
(let ((p (point))) |
(let ((p (point))) |
730 |
|
|
731 |
(defun ws-query-replace (from to) |
(defun ws-query-replace (from to) |
732 |
"In WordStar mode: Search string, remember string for repetition." |
"In WordStar mode: Search string, remember string for repetition." |
733 |
(interactive "sReplace: |
(interactive "sReplace: |
734 |
sWith: " ) |
sWith: " ) |
735 |
(setq ws-search-string from) |
(setq ws-search-string from) |
736 |
(setq ws-search-direction t) |
(setq ws-search-direction t) |