Mercurial > hg > xemacs-beta
diff lisp/simple.el @ 487:54fa1a5c2d12
[xemacs-hg @ 2001-04-28 07:48:36 by ben]
misc changes, some for 21.4
remove bogus lines setting zmacs_region_stays to 0.
remove debug lines.
Correct general info about init file.
Fix up Cygwin section.
More contributions.
Fix spurious setting of zmacs-region-stays to t after a non-shift
motion command.
Sync up with FSF 20.7, to fix bugs handling some etags line formats.
Move non-window-system specific code that was duplicated in
all window systems into the generic code.
* gutter.el (init-gutter): Removed. (unused)
Clean up the rectangle code w.r.t. selections. You'll now get
the right text copied into the primary selection (but not the
clipboard yet, unfortunately -- that really requires defining
our own rectangle type).
| author | ben |
|---|---|
| date | Sat, 28 Apr 2001 07:48:46 +0000 |
| parents | 0784d089fdc9 |
| children | 7039e6323819 |
line wrap: on
line diff
--- a/lisp/simple.el Sat Apr 28 02:10:57 2001 +0000 +++ b/lisp/simple.el Sat Apr 28 07:48:46 2001 +0000 @@ -2088,9 +2088,7 @@ (setq zmacs-region-stays t)) ((and (getf last-command-properties 'shifted-motion-command) unshifted-motion-keys-deselect-region) - (setq zmacs-region-stays nil)) - (t - (setq zmacs-region-stays t))))) + (setq zmacs-region-stays nil))))) (defun forward-char-command (&optional arg buffer) "Move point right ARG characters (left if ARG negative) in BUFFER. @@ -3893,6 +3891,10 @@ This is called after each command that sets `zmacs-region-stays' to t. See the variable `zmacs-regions'.") +(add-hook 'zmacs-deactivate-region-hook 'disown-selection) +(add-hook 'zmacs-activate-region-hook 'activate-region-as-selection) +(add-hook 'zmacs-update-region-hook 'activate-region-as-selection) + (defvar zmacs-region-extent nil "The extent of the zmacs region; don't use this.")