Mercurial > hg > xemacs-beta
comparison lisp/msw-init.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 | abe6d1db359e |
children | f3244b2b4053 |
comparison
equal
deleted
inserted
replaced
486:a83afd50994d | 487:54fa1a5c2d12 |
---|---|
41 (setq mswindows-win-initted t))) | 41 (setq mswindows-win-initted t))) |
42 | 42 |
43 (defun init-post-mswindows-win (console) | 43 (defun init-post-mswindows-win (console) |
44 "Initialize mswindows GUI at startup (post). Don't call this." | 44 "Initialize mswindows GUI at startup (post). Don't call this." |
45 (unless mswindows-post-win-initted | 45 (unless mswindows-post-win-initted |
46 (if (featurep 'toolbar) | |
47 (if (featurep 'infodock) | |
48 (require 'id-x-toolbar) | |
49 (init-x-toolbar))) | |
50 (if (featurep 'gutter) (init-gutter)) | |
51 (add-hook 'zmacs-deactivate-region-hook | |
52 (lambda () | |
53 (if (console-on-window-system-p) | |
54 (disown-selection)))) | |
55 (add-hook 'zmacs-activate-region-hook | |
56 (lambda () | |
57 (if (console-on-window-system-p) | |
58 (activate-region-as-selection)))) | |
59 (add-hook 'zmacs-update-region-hook | |
60 (lambda () | |
61 (if (console-on-window-system-p) | |
62 (activate-region-as-selection)))) | |
63 ;; Old-style mswindows bindings. The new-style mswindows bindings | 46 ;; Old-style mswindows bindings. The new-style mswindows bindings |
64 ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs. | 47 ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs. |
65 (global-set-key '(shift delete) 'kill-primary-selection) | 48 (global-set-key '(shift delete) 'kill-primary-selection) |
66 (global-set-key '(control delete) 'delete-primary-selection) | 49 (global-set-key '(control delete) 'delete-primary-selection) |
67 (global-set-key '(shift insert) 'yank-clipboard-selection) | 50 (global-set-key '(shift insert) 'yank-clipboard-selection) |
68 (global-set-key '(control insert) 'copy-primary-selection) | 51 (global-set-key '(control insert) 'copy-primary-selection) |
69 | 52 |
70 (global-set-key '(meta f4) 'save-buffers-kill-emacs) | 53 (global-set-key '(meta f4) 'save-buffers-kill-emacs) |
71 | 54 |
72 ;; Random stuff | |
73 (global-set-key 'menu 'popup-mode-menu) | |
74 | |
75 (setq mswindows-post-win-initted t))) | 55 (setq mswindows-post-win-initted t))) |
76 | 56 |