Mercurial > hg > xemacs-beta

diff lisp/msw-init.el @ 487:54fa1a5c2d12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
line wrap: on
line diff
--- a/lisp/msw-init.el	Sat Apr 28 02:10:57 2001 +0000
+++ b/lisp/msw-init.el	Sat Apr 28 07:48:46 2001 +0000
@@ -43,23 +43,6 @@
 (defun init-post-mswindows-win (console)
   "Initialize mswindows GUI at startup (post).  Don't call this."
   (unless mswindows-post-win-initted
-    (if (featurep 'toolbar)
-	(if (featurep 'infodock)
-	    (require 'id-x-toolbar)
-	  (init-x-toolbar)))
-    (if (featurep 'gutter) (init-gutter))
-    (add-hook 'zmacs-deactivate-region-hook
-	      (lambda ()
-		(if (console-on-window-system-p)
-		    (disown-selection))))
-    (add-hook 'zmacs-activate-region-hook
-	      (lambda ()
-		(if (console-on-window-system-p)
-		    (activate-region-as-selection))))
-    (add-hook 'zmacs-update-region-hook
-	      (lambda ()
-		(if (console-on-window-system-p)
-		    (activate-region-as-selection))))
     ;; Old-style mswindows bindings. The new-style mswindows bindings
     ;; (namely Ctrl-X, Ctrl-C and Ctrl-V) are already spoken for by XEmacs.
     (global-set-key '(shift delete)   'kill-primary-selection)
@@ -69,8 +52,5 @@
 
     (global-set-key '(meta f4)	      'save-buffers-kill-emacs)
 
-    ;; Random stuff
-    (global-set-key 'menu	'popup-mode-menu)
-
     (setq mswindows-post-win-initted t)))