Mercurial > hg > xemacs-beta
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 486:a83afd50994d | 487:54fa1a5c2d12 |
|---|---|
| 2086 (if shifted-motion-keys-select-region | 2086 (if shifted-motion-keys-select-region |
| 2087 (putf this-command-properties 'shifted-motion-command t)) | 2087 (putf this-command-properties 'shifted-motion-command t)) |
| 2088 (setq zmacs-region-stays t)) | 2088 (setq zmacs-region-stays t)) |
| 2089 ((and (getf last-command-properties 'shifted-motion-command) | 2089 ((and (getf last-command-properties 'shifted-motion-command) |
| 2090 unshifted-motion-keys-deselect-region) | 2090 unshifted-motion-keys-deselect-region) |
| 2091 (setq zmacs-region-stays nil)) | 2091 (setq zmacs-region-stays nil))))) |
| 2092 (t | |
| 2093 (setq zmacs-region-stays t))))) | |
| 2094 | 2092 |
| 2095 (defun forward-char-command (&optional arg buffer) | 2093 (defun forward-char-command (&optional arg buffer) |
| 2096 "Move point right ARG characters (left if ARG negative) in BUFFER. | 2094 "Move point right ARG characters (left if ARG negative) in BUFFER. |
| 2097 On attempt to pass end of buffer, stop and signal `end-of-buffer'. | 2095 On attempt to pass end of buffer, stop and signal `end-of-buffer'. |
| 2098 On attempt to pass beginning of buffer, stop and signal `beginning-of-buffer'. | 2096 On attempt to pass beginning of buffer, stop and signal `beginning-of-buffer'. |
| 3891 (defvar zmacs-update-region-hook nil | 3889 (defvar zmacs-update-region-hook nil |
| 3892 "Function or functions called when the active region changes. | 3890 "Function or functions called when the active region changes. |
| 3893 This is called after each command that sets `zmacs-region-stays' to t. | 3891 This is called after each command that sets `zmacs-region-stays' to t. |
| 3894 See the variable `zmacs-regions'.") | 3892 See the variable `zmacs-regions'.") |
| 3895 | 3893 |
| 3894 (add-hook 'zmacs-deactivate-region-hook 'disown-selection) | |
| 3895 (add-hook 'zmacs-activate-region-hook 'activate-region-as-selection) | |
| 3896 (add-hook 'zmacs-update-region-hook 'activate-region-as-selection) | |
| 3897 | |
| 3896 (defvar zmacs-region-extent nil | 3898 (defvar zmacs-region-extent nil |
| 3897 "The extent of the zmacs region; don't use this.") | 3899 "The extent of the zmacs region; don't use this.") |
| 3898 | 3900 |
| 3899 (defvar zmacs-region-rectangular-p nil | 3901 (defvar zmacs-region-rectangular-p nil |
| 3900 "Whether the zmacs region is a rectangle; don't use this.") | 3902 "Whether the zmacs region is a rectangle; don't use this.") |