diff options
| author | Juanma Barranquero | 2002-10-18 09:07:18 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2002-10-18 09:07:18 +0000 |
| commit | d49e7392f87656dfddf7a529fc7d312898524130 (patch) | |
| tree | ea3dd1872faee27e7134fbb4953c33e20d015940 | |
| parent | 79ef886b1d1e30b9d1a107d8f326dc1431288427 (diff) | |
| download | emacs-d49e7392f87656dfddf7a529fc7d312898524130.tar.gz emacs-d49e7392f87656dfddf7a529fc7d312898524130.zip | |
(vcursor-other-window): Fix typo.
| -rw-r--r-- | lisp/vcursor.el | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/lisp/vcursor.el b/lisp/vcursor.el index 25de4aa603e..9a48023de86 100644 --- a/lisp/vcursor.el +++ b/lisp/vcursor.el | |||
| @@ -93,14 +93,14 @@ | |||
| 93 | ;; other alternatives (search for "Oemacs"). There is also a keymap | 93 | ;; other alternatives (search for "Oemacs"). There is also a keymap |
| 94 | ;; which you can bind to a prefix key, which may give some more | 94 | ;; which you can bind to a prefix key, which may give some more |
| 95 | ;; intuitive alternatives in some cases, see `The vcursor keymap' below. | 95 | ;; intuitive alternatives in some cases, see `The vcursor keymap' below. |
| 96 | ;; | 96 | ;; |
| 97 | ;; Holding down control and shift and pressing insert (vcursor-copy) | 97 | ;; Holding down control and shift and pressing insert (vcursor-copy) |
| 98 | ;; copies one character from wherever the virtual cursor is to point; | 98 | ;; copies one character from wherever the virtual cursor is to point; |
| 99 | ;; point and the virtual cursor advance in the separate and equal | 99 | ;; point and the virtual cursor advance in the separate and equal |
| 100 | ;; station to which... (etc.). M-C-S-return (vcursor-copy-line) | 100 | ;; station to which... (etc.). M-C-S-return (vcursor-copy-line) |
| 101 | ;; copies to the end of the line instead of just one character, | 101 | ;; copies to the end of the line instead of just one character, |
| 102 | ;; C-S-delete or C-S-remove (vcursor-copy-word) copies a word. | 102 | ;; C-S-delete or C-S-remove (vcursor-copy-word) copies a word. |
| 103 | ;; | 103 | ;; |
| 104 | ;; A more general way of copying is to use C-S-tab, which is a toggle. | 104 | ;; A more general way of copying is to use C-S-tab, which is a toggle. |
| 105 | ;; In the "on" state, moving the virtual cursor will copy the | 105 | ;; In the "on" state, moving the virtual cursor will copy the |
| 106 | ;; moved-over text to the normal cursor position (including when going | 106 | ;; moved-over text to the normal cursor position (including when going |
| @@ -112,12 +112,12 @@ | |||
| 112 | ;; window. (See the function (vcursor-find-window) for details of how | 112 | ;; window. (See the function (vcursor-find-window) for details of how |
| 113 | ;; this window is chosen.) This gives you fingertip control over two | 113 | ;; this window is chosen.) This gives you fingertip control over two |
| 114 | ;; windows at once. | 114 | ;; windows at once. |
| 115 | ;; | 115 | ;; |
| 116 | ;; C-S-return (vcursor-disable) disables the virtual cursor, removing | 116 | ;; C-S-return (vcursor-disable) disables the virtual cursor, removing |
| 117 | ;; it so that it starts from point whenever you move it again --- note | 117 | ;; it so that it starts from point whenever you move it again --- note |
| 118 | ;; that simply moving the cursor and virtual cursor on top of one | 118 | ;; that simply moving the cursor and virtual cursor on top of one |
| 119 | ;; another does not have this effect. | 119 | ;; another does not have this effect. |
| 120 | ;; | 120 | ;; |
| 121 | ;; If you give C-S-return a positive prefix arg, it will also delete the | 121 | ;; If you give C-S-return a positive prefix arg, it will also delete the |
| 122 | ;; window (unless it's the current one). Whenever the virtual cursor | 122 | ;; window (unless it's the current one). Whenever the virtual cursor |
| 123 | ;; goes off-screen in its own window, point in that window is moved as | 123 | ;; goes off-screen in its own window, point in that window is moved as |
| @@ -131,7 +131,7 @@ | |||
| 131 | ;; remember the current cursor location for examining or copying from | 131 | ;; remember the current cursor location for examining or copying from |
| 132 | ;; that buffer. (I just hit C-S-right C-S-left, but I'm a hopeless | 132 | ;; that buffer. (I just hit C-S-right C-S-left, but I'm a hopeless |
| 133 | ;; lowbrow.) | 133 | ;; lowbrow.) |
| 134 | ;; | 134 | ;; |
| 135 | ;; There is also C-S-f6 (vcursor-other-window) which behaves like | 135 | ;; There is also C-S-f6 (vcursor-other-window) which behaves like |
| 136 | ;; C-x o on the virtual rather than the real cursor, except that it | 136 | ;; C-x o on the virtual rather than the real cursor, except that it |
| 137 | ;; will create another window if necessary. | 137 | ;; will create another window if necessary. |
| @@ -220,7 +220,7 @@ | |||
| 220 | ;; | 220 | ;; |
| 221 | ;; Key bindings | 221 | ;; Key bindings |
| 222 | ;; ============ | 222 | ;; ============ |
| 223 | ;; | 223 | ;; |
| 224 | ;; There is an alternative set of key bindings which will be used | 224 | ;; There is an alternative set of key bindings which will be used |
| 225 | ;; automatically for a PC if Oemacs is detected. This set uses separate | 225 | ;; automatically for a PC if Oemacs is detected. This set uses separate |
| 226 | ;; control, shift and meta keys with function keys 1 to 10. In | 226 | ;; control, shift and meta keys with function keys 1 to 10. In |
| @@ -244,7 +244,7 @@ | |||
| 244 | ;; | 244 | ;; |
| 245 | ;; If Emacs has set the variable window-system to nil, vcursor will | 245 | ;; If Emacs has set the variable window-system to nil, vcursor will |
| 246 | ;; assume that overlays cannot be displayed in a different face, | 246 | ;; assume that overlays cannot be displayed in a different face, |
| 247 | ;; and will instead use an string (the variable vcursor-string, by | 247 | ;; and will instead use a string (the variable vcursor-string, by |
| 248 | ;; default "**>") to show its position. This was first implemented | 248 | ;; default "**>") to show its position. This was first implemented |
| 249 | ;; in Emacs 19.29. Unlike the old-fashioned overlay arrow (as used | 249 | ;; in Emacs 19.29. Unlike the old-fashioned overlay arrow (as used |
| 250 | ;; by debuggers), this appears between existing text, which can | 250 | ;; by debuggers), this appears between existing text, which can |
| @@ -256,7 +256,7 @@ | |||
| 256 | ;; get an easy key binding for the vcursor keys on a generic terminal. | 256 | ;; get an easy key binding for the vcursor keys on a generic terminal. |
| 257 | ;; Consequently a special keymap is defined for you to use traditional | 257 | ;; Consequently a special keymap is defined for you to use traditional |
| 258 | ;; methods: the keymap, however, is available on any terminal type. | 258 | ;; methods: the keymap, however, is available on any terminal type. |
| 259 | ;; | 259 | ;; |
| 260 | ;; The vcursor keymap | 260 | ;; The vcursor keymap |
| 261 | ;; ================== | 261 | ;; ================== |
| 262 | ;; | 262 | ;; |
| @@ -285,7 +285,7 @@ | |||
| 285 | ;; does something else. To get this effect, set | 285 | ;; does something else. To get this effect, set |
| 286 | ;; vcursor-interpret-input to t. This is normally not a good idea as | 286 | ;; vcursor-interpret-input to t. This is normally not a good idea as |
| 287 | ;; interpreting input is very much slower than copying text. | 287 | ;; interpreting input is very much slower than copying text. |
| 288 | ;; | 288 | ;; |
| 289 | ;; Un-features | 289 | ;; Un-features |
| 290 | ;; =========== | 290 | ;; =========== |
| 291 | ;; | 291 | ;; |
| @@ -403,7 +403,7 @@ on loading vcursor and from the customize package." | |||
| 403 | ;;; "\M-[\C-f\M-\C-s" C-S-delete | 403 | ;;; "\M-[\C-f\M-\C-s" C-S-delete |
| 404 | ;;; "\M-[\C-f\M-\C-d" C-S-prior | 404 | ;;; "\M-[\C-f\M-\C-d" C-S-prior |
| 405 | ;;; "\M-[\C-fv" C-S-next | 405 | ;;; "\M-[\C-fv" C-S-next |
| 406 | ;;; | 406 | ;;; |
| 407 | ;;; "\M-[\C-f^" C-S-f1 | 407 | ;;; "\M-[\C-f^" C-S-f1 |
| 408 | ;;; "\M-[\C-f_" C-S-f2 | 408 | ;;; "\M-[\C-f_" C-S-f2 |
| 409 | ;;; "\M-[\C-f`" C-S-f3 | 409 | ;;; "\M-[\C-f`" C-S-f3 |
| @@ -420,7 +420,7 @@ on loading vcursor and from the customize package." | |||
| 420 | (global-set-key (vcursor-cs-binding "down") 'vcursor-next-line) | 420 | (global-set-key (vcursor-cs-binding "down") 'vcursor-next-line) |
| 421 | (global-set-key (vcursor-cs-binding "left") 'vcursor-backward-char) | 421 | (global-set-key (vcursor-cs-binding "left") 'vcursor-backward-char) |
| 422 | (global-set-key (vcursor-cs-binding "right") 'vcursor-forward-char) | 422 | (global-set-key (vcursor-cs-binding "right") 'vcursor-forward-char) |
| 423 | 423 | ||
| 424 | (global-set-key (vcursor-cs-binding "return") 'vcursor-disable) | 424 | (global-set-key (vcursor-cs-binding "return") 'vcursor-disable) |
| 425 | (global-set-key (vcursor-cs-binding "insert") 'vcursor-copy) | 425 | (global-set-key (vcursor-cs-binding "insert") 'vcursor-copy) |
| 426 | (global-set-key (vcursor-cs-binding "delete") 'vcursor-copy-word) | 426 | (global-set-key (vcursor-cs-binding "delete") 'vcursor-copy-word) |
| @@ -433,15 +433,15 @@ on loading vcursor and from the customize package." | |||
| 433 | (global-set-key (vcursor-cs-binding "down" t) 'vcursor-end-of-buffer) | 433 | (global-set-key (vcursor-cs-binding "down" t) 'vcursor-end-of-buffer) |
| 434 | (global-set-key (vcursor-cs-binding "prior") 'vcursor-scroll-down) | 434 | (global-set-key (vcursor-cs-binding "prior") 'vcursor-scroll-down) |
| 435 | (global-set-key (vcursor-cs-binding "next") 'vcursor-scroll-up) | 435 | (global-set-key (vcursor-cs-binding "next") 'vcursor-scroll-up) |
| 436 | 436 | ||
| 437 | (global-set-key (vcursor-cs-binding "f6") 'vcursor-other-window) | 437 | (global-set-key (vcursor-cs-binding "f6") 'vcursor-other-window) |
| 438 | (global-set-key (vcursor-cs-binding "f7") 'vcursor-goto) | 438 | (global-set-key (vcursor-cs-binding "f7") 'vcursor-goto) |
| 439 | 439 | ||
| 440 | (global-set-key (vcursor-cs-binding "select") | 440 | (global-set-key (vcursor-cs-binding "select") |
| 441 | 'vcursor-swap-point) ; DEC keyboards | 441 | 'vcursor-swap-point) ; DEC keyboards |
| 442 | (global-set-key (vcursor-cs-binding "tab" t) 'vcursor-swap-point) | 442 | (global-set-key (vcursor-cs-binding "tab" t) 'vcursor-swap-point) |
| 443 | 443 | ||
| 444 | (global-set-key (vcursor-cs-binding "find") | 444 | (global-set-key (vcursor-cs-binding "find") |
| 445 | 'vcursor-isearch-forward) ; DEC keyboards | 445 | 'vcursor-isearch-forward) ; DEC keyboards |
| 446 | (global-set-key (vcursor-cs-binding "f8") 'vcursor-isearch-forward) | 446 | (global-set-key (vcursor-cs-binding "f8") 'vcursor-isearch-forward) |
| 447 | 447 | ||
| @@ -484,7 +484,7 @@ characters. The default is simply to copy strings." | |||
| 484 | :group 'vcursor | 484 | :group 'vcursor |
| 485 | :version "20.3") | 485 | :version "20.3") |
| 486 | 486 | ||
| 487 | (defvar vcursor-overlay nil | 487 | (defvar vcursor-overlay nil |
| 488 | "Overlay for the virtual cursor. | 488 | "Overlay for the virtual cursor. |
| 489 | It is nil if that is not enabled.") | 489 | It is nil if that is not enabled.") |
| 490 | 490 | ||
| @@ -499,7 +499,7 @@ scrolling set this. It is used by the `vcursor-auto-disable' code.") | |||
| 499 | ;; could do some memq-ing with last-command instead, but this will | 499 | ;; could do some memq-ing with last-command instead, but this will |
| 500 | ;; automatically handle any new commands using the primitives. | 500 | ;; automatically handle any new commands using the primitives. |
| 501 | 501 | ||
| 502 | (defcustom vcursor-copy-flag nil | 502 | (defcustom vcursor-copy-flag nil |
| 503 | "*Non-nil means moving vcursor should copy characters moved over to point." | 503 | "*Non-nil means moving vcursor should copy characters moved over to point." |
| 504 | :type 'boolean | 504 | :type 'boolean |
| 505 | :group 'vcursor) | 505 | :group 'vcursor) |
| @@ -547,7 +547,7 @@ See vcursor-toggle-vcursor-map.") | |||
| 547 | ;; If vcursor-key-bindings is already set on loading, bind the keys now. | 547 | ;; If vcursor-key-bindings is already set on loading, bind the keys now. |
| 548 | ;; This hybrid way of doing it retains compatibility while allowing | 548 | ;; This hybrid way of doing it retains compatibility while allowing |
| 549 | ;; customize to work smoothly. | 549 | ;; customize to work smoothly. |
| 550 | (if vcursor-key-bindings | 550 | (if vcursor-key-bindings |
| 551 | (vcursor-bind-keys 'vcursor-key-bindings vcursor-key-bindings)) | 551 | (vcursor-bind-keys 'vcursor-key-bindings vcursor-key-bindings)) |
| 552 | 552 | ||
| 553 | (defun vcursor-locate () | 553 | (defun vcursor-locate () |
| @@ -599,7 +599,7 @@ Set `vcursor-window' to the returned value as a side effect." | |||
| 599 | (pos-visible-in-window-p (point) vcursor-window)) | 599 | (pos-visible-in-window-p (point) vcursor-window)) |
| 600 | (progn | 600 | (progn |
| 601 | (walk-windows | 601 | (walk-windows |
| 602 | (function | 602 | (function |
| 603 | (lambda (win) | 603 | (lambda (win) |
| 604 | (and (not winok) | 604 | (and (not winok) |
| 605 | (eq (current-buffer) (window-buffer win)) | 605 | (eq (current-buffer) (window-buffer win)) |
| @@ -845,7 +845,7 @@ not copy text until you turn it on again." | |||
| 845 | 845 | ||
| 846 | (defun vcursor-other-window (n &optional all-frames) | 846 | (defun vcursor-other-window (n &optional all-frames) |
| 847 | "Activate the virtual cursor in another window. | 847 | "Activate the virtual cursor in another window. |
| 848 | This is the next window cylically after one currently showing the | 848 | This is the next window cyclically after one currently showing the |
| 849 | virtual cursor, or else after the current selected window. If there | 849 | virtual cursor, or else after the current selected window. If there |
| 850 | is no other window, the current window is split. | 850 | is no other window, the current window is split. |
| 851 | 851 | ||