Mercurial > emacs
comparison lisp/emulation/pc-select.el @ 56083:d62a2b6e582e
Doc fixes: say "PC Selection mode", not "`pc-selection-mode'".
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 13 Jun 2004 22:02:49 +0000 |
parents | 695cf19ef79e |
children | cac7024af280 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
56082:36284d653673 | 56083:d62a2b6e582e |
---|---|
59 ;; Dan Nicolaescu <done@ece.arizona.ro> suggested suppressing the | 59 ;; Dan Nicolaescu <done@ece.arizona.ro> suggested suppressing the |
60 ;; scroll-up/scroll-down error. | 60 ;; scroll-up/scroll-down error. |
61 ;; Eli Barzilay (eli@cs.bgu.ac.il) suggested the sexps functions and | 61 ;; Eli Barzilay (eli@cs.bgu.ac.il) suggested the sexps functions and |
62 ;; keybindings. | 62 ;; keybindings. |
63 ;; | 63 ;; |
64 ;; Ok, some details about the idea of pc-selection-mode: | 64 ;; Ok, some details about the idea of PC Selection mode: |
65 ;; | 65 ;; |
66 ;; o The standard keys for moving around (right, left, up, down, home, end, | 66 ;; o The standard keys for moving around (right, left, up, down, home, end, |
67 ;; prior, next, called "move-keys" from now on) will always de-activate | 67 ;; prior, next, called "move-keys" from now on) will always de-activate |
68 ;; the mark. | 68 ;; the mark. |
69 ;; o If you press "Shift" together with the "move-keys", the region | 69 ;; o If you press "Shift" together with the "move-keys", the region |
112 "The hook to run when pc-selection-mode is toggled." | 112 "The hook to run when pc-selection-mode is toggled." |
113 :type 'hook | 113 :type 'hook |
114 :group 'pc-select) | 114 :group 'pc-select) |
115 | 115 |
116 (defvar pc-select-saved-settings-alist nil | 116 (defvar pc-select-saved-settings-alist nil |
117 "The values of the variables before `pc-selection-mode' was toggled on. | 117 "The values of the variables before PC Selection mode was toggled on. |
118 When `pc-selection-mode' is toggled on, it sets quite a few variables | 118 When PC Selection mode is toggled on, it sets quite a few variables |
119 for its own purposes. This alist holds the original values of the | 119 for its own purposes. This alist holds the original values of the |
120 variables `pc-selection-mode' had set, so that these variables can be | 120 variables PC Selection mode had set, so that these variables can be |
121 restored to their original values when `pc-selection-mode' is toggled off.") | 121 restored to their original values when PC Selection mode is toggled off.") |
122 | 122 |
123 (defvar pc-select-map nil | 123 (defvar pc-select-map nil |
124 "The keymap used as the global map when `pc-selection-mode' is on." ) | 124 "The keymap used as the global map when PC Selection mode is on." ) |
125 | 125 |
126 (defvar pc-select-saved-global-map nil | 126 (defvar pc-select-saved-global-map nil |
127 "The global map that was in effect when `pc-selection-mode' was toggled on.") | 127 "The global map that was in effect when PC Selection mode was toggled on.") |
128 | 128 |
129 (defvar pc-select-key-bindings-alist nil | 129 (defvar pc-select-key-bindings-alist nil |
130 "This alist holds all the key bindings `pc-selection-mode' sets.") | 130 "This alist holds all the key bindings PC Selection mode sets.") |
131 | 131 |
132 (defvar pc-select-default-key-bindings nil | 132 (defvar pc-select-default-key-bindings nil |
133 "These key bindings always get set by `pc-selection-mode'.") | 133 "These key bindings always get set by PC Selection mode.") |
134 | 134 |
135 (unless pc-select-default-key-bindings | 135 (unless pc-select-default-key-bindings |
136 (let ((lst | 136 (let ((lst |
137 ;; This is to avoid confusion with the delete-selection-mode | 137 ;; This is to avoid confusion with the delete-selection-mode |
138 ;; On simple displays you cant see that a region is active and | 138 ;; On simple displays you cant see that a region is active and |
248 `pc-select-selection-keys-only' is nil.") | 248 `pc-select-selection-keys-only' is nil.") |
249 | 249 |
250 (defvar pc-select-old-M-delete-binding nil | 250 (defvar pc-select-old-M-delete-binding nil |
251 "Holds the old mapping of [M-delete] in the `function-key-map'. | 251 "Holds the old mapping of [M-delete] in the `function-key-map'. |
252 This variable holds the value associated with [M-delete] in the | 252 This variable holds the value associated with [M-delete] in the |
253 `function-key-map' before `pc-selection-mode' had changed that | 253 `function-key-map' before PC Selection mode had changed that |
254 association.") | 254 association.") |
255 | 255 |
256 ;;;; | 256 ;;;; |
257 ;; misc | 257 ;; misc |
258 ;;;; | 258 ;;;; |
840 | 840 |
841 M-LEFT and M-RIGHT move back or forward one word or sexp, disabling the mark. | 841 M-LEFT and M-RIGHT move back or forward one word or sexp, disabling the mark. |
842 S-M-LEFT and S-M-RIGHT move back or forward one word or sexp, leaving the mark | 842 S-M-LEFT and S-M-RIGHT move back or forward one word or sexp, leaving the mark |
843 behind. To control whether these keys move word-wise or sexp-wise set the | 843 behind. To control whether these keys move word-wise or sexp-wise set the |
844 variable `pc-select-meta-moves-sexps' after loading pc-select.el but before | 844 variable `pc-select-meta-moves-sexps' after loading pc-select.el but before |
845 turning `pc-selection-mode' on. | 845 turning PC Selection mode on. |
846 | 846 |
847 C-DOWN and C-UP move back or forward a paragraph, disabling the mark. | 847 C-DOWN and C-UP move back or forward a paragraph, disabling the mark. |
848 S-C-DOWN and S-C-UP move back or forward a paragraph, leaving the mark behind. | 848 S-C-DOWN and S-C-UP move back or forward a paragraph, leaving the mark behind. |
849 | 849 |
850 HOME moves to beginning of line, disabling the mark. | 850 HOME moves to beginning of line, disabling the mark. |
862 S-INSERT yanks text from the kill ring (`yank'). | 862 S-INSERT yanks text from the kill ring (`yank'). |
863 C-INSERT copies the region into the kill ring (`copy-region-as-kill'). | 863 C-INSERT copies the region into the kill ring (`copy-region-as-kill'). |
864 | 864 |
865 In addition, certain other PC bindings are imitated (to avoid this, set | 865 In addition, certain other PC bindings are imitated (to avoid this, set |
866 the variable `pc-select-selection-keys-only' to t after loading pc-select.el | 866 the variable `pc-select-selection-keys-only' to t after loading pc-select.el |
867 but before calling `pc-selection-mode'): | 867 but before calling PC Selection mode): |
868 | 868 |
869 F6 other-window | 869 F6 other-window |
870 DELETE delete-char | 870 DELETE delete-char |
871 C-DELETE kill-line | 871 C-DELETE kill-line |
872 M-DELETE kill-word | 872 M-DELETE kill-word |
972 (defcustom pc-selection-mode nil | 972 (defcustom pc-selection-mode nil |
973 "Toggle PC Selection mode. | 973 "Toggle PC Selection mode. |
974 Change mark behaviour to emulate Motif, MAC or MS-Windows cut and paste style, | 974 Change mark behaviour to emulate Motif, MAC or MS-Windows cut and paste style, |
975 and cursor movement commands. | 975 and cursor movement commands. |
976 This mode enables Delete Selection mode and Transient Mark mode. | 976 This mode enables Delete Selection mode and Transient Mark mode. |
977 You must modify via \\[customize] for this variable to have an effect." | 977 Setting this variable directly does not take effect; |
978 you must modify it using \\[customize] or \\[pc-selection-mode]." | |
978 :set (lambda (symbol value) | 979 :set (lambda (symbol value) |
979 (pc-selection-mode (if value 1 -1))) | 980 (pc-selection-mode (if value 1 -1))) |
980 :initialize 'custom-initialize-default | 981 :initialize 'custom-initialize-default |
981 :type 'boolean | 982 :type 'boolean |
982 :group 'pc-select | 983 :group 'pc-select |