Mercurial > hg > xemacs-beta

diff lisp/gtk-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 0784d089fdc9
children 7039e6323819
line wrap: on
line diff
--- a/lisp/gtk-init.el	Sat Apr 28 02:10:57 2001 +0000
+++ b/lisp/gtk-init.el	Sat Apr 28 07:48:46 2001 +0000
@@ -126,11 +126,6 @@
 
 (defun init-post-gtk-win ()
   (unless gtk-post-win-initted
-    (if (and (not (featurep 'infodock)) (featurep 'toolbar))
-        (init-x-toolbar))
-    (if (and (featurep 'infodock) (featurep 'toolbar))
-	(require 'id-x-toolbar))
-
     (when (featurep 'mule)
       (define-specifier-tag 'mule-fonts
 	(lambda (device) (eq 'gtk (device-type device))))
@@ -187,20 +182,6 @@
 	 )
        'global '(mule-fonts) 'append))
     
-    (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))))
-
-    (define-key global-map 'menu 'popup-mode-menu)
     (setq gtk-post-win-initted t)))
     
 (push '("-geometry" . gtk-init-handle-geometry) command-switch-alist)