Mercurial > emacs
comparison lisp/emulation/ws-mode.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 0f4506820432 |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 40 (setq wordstar-mode-map (make-keymap)) | 40 (setq wordstar-mode-map (make-keymap)) |
| 41 ;; (setq wordstar-C-j-map (make-keymap)) ; later, perhaps | 41 ;; (setq wordstar-C-j-map (make-keymap)) ; later, perhaps |
| 42 (setq wordstar-C-k-map (make-keymap)) | 42 (setq wordstar-C-k-map (make-keymap)) |
| 43 (setq wordstar-C-o-map (make-keymap)) | 43 (setq wordstar-C-o-map (make-keymap)) |
| 44 (setq wordstar-C-q-map (make-keymap)) | 44 (setq wordstar-C-q-map (make-keymap)) |
| 45 | 45 |
| 46 (define-key wordstar-mode-map "\C-a" 'backward-word) | 46 (define-key wordstar-mode-map "\C-a" 'backward-word) |
| 47 (define-key wordstar-mode-map "\C-b" 'fill-paragraph) | 47 (define-key wordstar-mode-map "\C-b" 'fill-paragraph) |
| 48 (define-key wordstar-mode-map "\C-c" 'scroll-up) | 48 (define-key wordstar-mode-map "\C-c" 'scroll-up) |
| 49 (define-key wordstar-mode-map "\C-d" 'forward-char) | 49 (define-key wordstar-mode-map "\C-d" 'forward-char) |
| 50 (define-key wordstar-mode-map "\C-e" 'previous-line) | 50 (define-key wordstar-mode-map "\C-e" 'previous-line) |
| 66 (define-key wordstar-mode-map "\C-v" 'overwrite-mode) | 66 (define-key wordstar-mode-map "\C-v" 'overwrite-mode) |
| 67 (define-key wordstar-mode-map "\C-w" 'scroll-down-line) | 67 (define-key wordstar-mode-map "\C-w" 'scroll-down-line) |
| 68 (define-key wordstar-mode-map "\C-x" 'next-line) | 68 (define-key wordstar-mode-map "\C-x" 'next-line) |
| 69 (define-key wordstar-mode-map "\C-y" 'kill-complete-line) | 69 (define-key wordstar-mode-map "\C-y" 'kill-complete-line) |
| 70 (define-key wordstar-mode-map "\C-z" 'scroll-up-line) | 70 (define-key wordstar-mode-map "\C-z" 'scroll-up-line) |
| 71 | 71 |
| 72 ;; wordstar-C-k-map | 72 ;; wordstar-C-k-map |
| 73 | 73 |
| 74 (define-key wordstar-C-k-map " " ()) | 74 (define-key wordstar-C-k-map " " ()) |
| 75 (define-key wordstar-C-k-map "0" 'ws-set-marker-0) | 75 (define-key wordstar-C-k-map "0" 'ws-set-marker-0) |
| 76 (define-key wordstar-C-k-map "1" 'ws-set-marker-1) | 76 (define-key wordstar-C-k-map "1" 'ws-set-marker-1) |
| 77 (define-key wordstar-C-k-map "2" 'ws-set-marker-2) | 77 (define-key wordstar-C-k-map "2" 'ws-set-marker-2) |
| 78 (define-key wordstar-C-k-map "3" 'ws-set-marker-3) | 78 (define-key wordstar-C-k-map "3" 'ws-set-marker-3) |
| 114 (define-key wordstar-C-k-map "\C-w" 'ws-write-block) | 114 (define-key wordstar-C-k-map "\C-w" 'ws-write-block) |
| 115 (define-key wordstar-C-k-map "x" 'save-buffers-kill-emacs) | 115 (define-key wordstar-C-k-map "x" 'save-buffers-kill-emacs) |
| 116 (define-key wordstar-C-k-map "\C-x" 'save-buffers-kill-emacs) | 116 (define-key wordstar-C-k-map "\C-x" 'save-buffers-kill-emacs) |
| 117 (define-key wordstar-C-k-map "y" 'ws-delete-block) | 117 (define-key wordstar-C-k-map "y" 'ws-delete-block) |
| 118 (define-key wordstar-C-k-map "\C-y" 'ws-delete-block) | 118 (define-key wordstar-C-k-map "\C-y" 'ws-delete-block) |
| 119 | 119 |
| 120 ;; wordstar-C-j-map not yet implemented | 120 ;; wordstar-C-j-map not yet implemented |
| 121 | 121 |
| 122 ;; wordstar-C-o-map | 122 ;; wordstar-C-o-map |
| 123 | 123 |
| 124 (define-key wordstar-C-o-map " " ()) | 124 (define-key wordstar-C-o-map " " ()) |
| 125 (define-key wordstar-C-o-map "c" 'wordstar-center-line) | 125 (define-key wordstar-C-o-map "c" 'wordstar-center-line) |
| 126 (define-key wordstar-C-o-map "\C-c" 'wordstar-center-line) | 126 (define-key wordstar-C-o-map "\C-c" 'wordstar-center-line) |
| 127 (define-key wordstar-C-o-map "b" 'switch-to-buffer) | 127 (define-key wordstar-C-o-map "b" 'switch-to-buffer) |
| 128 (define-key wordstar-C-o-map "\C-b" 'switch-to-buffer) | 128 (define-key wordstar-C-o-map "\C-b" 'switch-to-buffer) |
| 139 (define-key wordstar-C-o-map "\C-u" 'keyboard-quit) | 139 (define-key wordstar-C-o-map "\C-u" 'keyboard-quit) |
| 140 (define-key wordstar-C-o-map "wd" 'delete-other-windows) | 140 (define-key wordstar-C-o-map "wd" 'delete-other-windows) |
| 141 (define-key wordstar-C-o-map "wh" 'split-window-horizontally) | 141 (define-key wordstar-C-o-map "wh" 'split-window-horizontally) |
| 142 (define-key wordstar-C-o-map "wo" 'other-window) | 142 (define-key wordstar-C-o-map "wo" 'other-window) |
| 143 (define-key wordstar-C-o-map "wv" 'split-window-vertically) | 143 (define-key wordstar-C-o-map "wv" 'split-window-vertically) |
| 144 | 144 |
| 145 ;; wordstar-C-q-map | 145 ;; wordstar-C-q-map |
| 146 (define-key wordstar-C-q-map " " ()) | 146 (define-key wordstar-C-q-map " " ()) |
| 147 (define-key wordstar-C-q-map "0" 'ws-find-marker-0) | 147 (define-key wordstar-C-q-map "0" 'ws-find-marker-0) |
| 148 (define-key wordstar-C-q-map "1" 'ws-find-marker-1) | 148 (define-key wordstar-C-q-map "1" 'ws-find-marker-1) |
| 149 (define-key wordstar-C-q-map "2" 'ws-find-marker-2) | 149 (define-key wordstar-C-q-map "2" 'ws-find-marker-2) |
| 334 (delete-horizontal-space) | 334 (delete-horizontal-space) |
| 335 (end-of-line) | 335 (end-of-line) |
| 336 (delete-horizontal-space) | 336 (delete-horizontal-space) |
| 337 (setq line-length (current-column)) | 337 (setq line-length (current-column)) |
| 338 (beginning-of-line) | 338 (beginning-of-line) |
| 339 (indent-to | 339 (indent-to |
| 340 (+ left-margin | 340 (+ left-margin |
| 341 (/ (- fill-column left-margin line-length) 2)))))) | 341 (/ (- fill-column left-margin line-length) 2)))))) |
| 342 | 342 |
| 343 (defun scroll-down-line () | 343 (defun scroll-down-line () |
| 344 "Scroll one line down." | 344 "Scroll one line down." |
| 345 (interactive) | 345 (interactive) |
| 366 | 366 |
| 367 (defvar ws-block-begin-marker nil "Beginning of \"Block\" in WordStar mode.") | 367 (defvar ws-block-begin-marker nil "Beginning of \"Block\" in WordStar mode.") |
| 368 (defvar ws-block-end-marker nil "End of \"Block\" in WordStar mode.") | 368 (defvar ws-block-end-marker nil "End of \"Block\" in WordStar mode.") |
| 369 | 369 |
| 370 (defvar ws-search-string nil "String of last search in WordStar mode.") | 370 (defvar ws-search-string nil "String of last search in WordStar mode.") |
| 371 (defvar ws-search-direction t | 371 (defvar ws-search-direction t |
| 372 "Direction of last search in WordStar mode. t if forward, nil if backward.") | 372 "Direction of last search in WordStar mode. t if forward, nil if backward.") |
| 373 | 373 |
| 374 (defvar ws-last-cursorposition nil | 374 (defvar ws-last-cursorposition nil |
| 375 "Position before last search etc. in WordStar mode.") | 375 "Position before last search etc. in WordStar mode.") |
| 376 | 376 |
| 377 (defvar ws-last-errormessage nil | 377 (defvar ws-last-errormessage nil |
| 378 "Last error message issued by a WordStar mode function.") | 378 "Last error message issued by a WordStar mode function.") |
| 379 | 379 |
| 380 ;;;;;;;;;;; | 380 ;;;;;;;;;;; |
| 381 ;; wordstar special functions: | 381 ;; wordstar special functions: |
| 382 | 382 |
| 508 | 508 |
| 509 (defun ws-move-block () | 509 (defun ws-move-block () |
| 510 "In WordStar mode: Move block to current cursor position." | 510 "In WordStar mode: Move block to current cursor position." |
| 511 (interactive) | 511 (interactive) |
| 512 (if (and ws-block-begin-marker ws-block-end-marker) | 512 (if (and ws-block-begin-marker ws-block-end-marker) |
| 513 (let () | 513 (let () |
| 514 (kill-region ws-block-begin-marker ws-block-end-marker) | 514 (kill-region ws-block-begin-marker ws-block-end-marker) |
| 515 (yank) | 515 (yank) |
| 516 (save-excursion | 516 (save-excursion |
| 517 (goto-char (region-beginning)) | 517 (goto-char (region-beginning)) |
| 518 (setq ws-block-begin-marker (point-marker)) | 518 (setq ws-block-begin-marker (point-marker)) |
| 700 (let ((p (point))) | 700 (let ((p (point))) |
| 701 (end-of-line) | 701 (end-of-line) |
| 702 (kill-region p (point)))) | 702 (kill-region p (point)))) |
| 703 | 703 |
| 704 (defun ws-kill-bol () | 704 (defun ws-kill-bol () |
| 705 "In WordStar mode: Kill to beginning of line | 705 "In WordStar mode: Kill to beginning of line |
| 706 \(like WordStar, not like Emacs)." | 706 \(like WordStar, not like Emacs)." |
| 707 (interactive) | 707 (interactive) |
| 708 (let ((p (point))) | 708 (let ((p (point))) |
| 709 (beginning-of-line) | 709 (beginning-of-line) |
| 710 (kill-region (point) p))) | 710 (kill-region (point) p))) |
| 728 (search-backward ws-search-string)) | 728 (search-backward ws-search-string)) |
| 729 (ws-error "No search to repeat"))) | 729 (ws-error "No search to repeat"))) |
| 730 | 730 |
| 731 (defun ws-query-replace (from to) | 731 (defun ws-query-replace (from to) |
| 732 "In WordStar mode: Search string, remember string for repetition." | 732 "In WordStar mode: Search string, remember string for repetition." |
| 733 (interactive "sReplace: | 733 (interactive "sReplace: |
| 734 sWith: " ) | 734 sWith: " ) |
| 735 (setq ws-search-string from) | 735 (setq ws-search-string from) |
| 736 (setq ws-search-direction t) | 736 (setq ws-search-direction t) |
| 737 (setq ws-last-cursorposition (point-marker)) | 737 (setq ws-last-cursorposition (point-marker)) |
| 738 (query-replace from to)) | 738 (query-replace from to)) |