aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2002-10-18 09:07:18 +0000
committerJuanma Barranquero2002-10-18 09:07:18 +0000
commitd49e7392f87656dfddf7a529fc7d312898524130 (patch)
treeea3dd1872faee27e7134fbb4953c33e20d015940
parent79ef886b1d1e30b9d1a107d8f326dc1431288427 (diff)
downloademacs-d49e7392f87656dfddf7a529fc7d312898524130.tar.gz
emacs-d49e7392f87656dfddf7a529fc7d312898524130.zip
(vcursor-other-window): Fix typo.
-rw-r--r--lisp/vcursor.el38
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.
489It is nil if that is not enabled.") 489It 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.
848This is the next window cylically after one currently showing the 848This is the next window cyclically after one currently showing the
849virtual cursor, or else after the current selected window. If there 849virtual cursor, or else after the current selected window. If there
850is no other window, the current window is split. 850is no other window, the current window is split.
851 851