diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-08-07 15:39:04 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-08-07 15:39:04 -0400 |
| commit | 9852377f7860205876bbea901d534213d3cca639 (patch) | |
| tree | 07f057a0f550cd3906fce8234b8baf9c69b50d79 /lisp/cus-start.el | |
| parent | d064e6a60d02274435b8e44743ade46e4fa65a20 (diff) | |
| download | emacs-9852377f7860205876bbea901d534213d3cca639.tar.gz | |
Change `select-active-region' mechanics.
Save region text prior to buffer modification.
Set window selection lazily, during `deactivate-mark' or after each
command when the region is temporarily active.
* lisp/cus-start.el: Add custom declaration for select-active-regions.
* lisp/mouse.el (mouse-drag-track): Remove hacks to deal with old
select-active-regions implementation.
(mouse-yank-at-click): Doc fix.
* lisp/simple.el (select-active-regions): Move to keyboard.c.
(deactivate-mark): Used saved-region-selection.
(select-active-region): Function removed.
(activate-mark, set-mark, push-mark-command)
(handle-shift-selection): Don't call it.
(keyboard-quit): Avoid adding the region to the window selection.
* src/insdel.c (prepare_to_modify_buffer): Save active region text to
Vsaved_region_selection.
* src/keyboard.c (Vselect_active_regions): Move from simple.el.
(Vsaved_region_selection, Qx_set_selection, QPRIMARY, Qlazy): New
vars.
(command_loop_1): Set window selection prior to deactivating the
mark.
* src/xselect.c (QPRIMARY): Move to keyboard.c.
Diffstat (limited to 'lisp/cus-start.el')
| -rw-r--r-- | lisp/cus-start.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 1e8898290fb..10214d39a0d 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -197,6 +197,11 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of (help-char keyboard character) (help-event-list keyboard (repeat (sexp :format "%v"))) (menu-prompting menu boolean) + (select-active-regions killing + (choice (const :tag "lazy" lazy) + (const :tag "always" t) + (const :tag "off" nil)) + "24.1") (suggest-key-bindings keyboard (choice (const :tag "off" nil) (integer :tag "time" 2) (other :tag "on"))) |