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