From xemacs-m  Fri Dec 13 16:02:25 1996
Received: from venus.Sun.COM (venus.Sun.COM [192.9.25.5]) by xemacs.cs.uiuc.edu (8.8.3/8.8.3) with SMTP id QAA09718 for <xemacs-beta@xemacs.org>; Fri, 13 Dec 1996 16:02:25 -0600 (CST)
Received: from Eng.Sun.COM ([129.146.1.25]) by venus.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id OAA11162; Fri, 13 Dec 1996 14:01:55 -0800
Received: from kindra.eng.sun.com by Eng.Sun.COM (SMI-8.6/SMI-5.3)
	id OAA04566; Fri, 13 Dec 1996 14:01:53 -0800
Received: from xemacs.eng.sun.com by kindra.eng.sun.com (SMI-8.6/SMI-SVR4)
	id OAA14724; Fri, 13 Dec 1996 14:01:52 -0800
Received: by xemacs.eng.sun.com (SMI-8.6/SMI-SVR4)
	id OAA00581; Fri, 13 Dec 1996 14:01:51 -0800
Date: Fri, 13 Dec 1996 14:01:51 -0800
Message-Id: <199612132201.OAA00581@xemacs.eng.sun.com>
From: Martin Buchholz <mrb@Eng.Sun.COM>
To: Sudish Joseph <sudish@mindspring.com>
Cc: XEmacs beta <xemacs-beta@xemacs.org>
Subject: xemacs-20.0-b31 
In-Reply-To: <yviazpzjovrl.fsf@atreides.mindspring.com>
References: <yviazpzjovrl.fsf@atreides.mindspring.com>
Reply-To: Martin Buchholz <mrb@Eng.Sun.COM>
Mime-Version: 1.0 (generated by tm-edit 7.94)
Content-Type: text/plain; charset=US-ASCII

>>>>> "Sudish" == Sudish Joseph <sudish@mindspring.com> writes:

I've applied this patch to my workspace.

Martin

Sudish> Also, this patch didn't make it in.  It's needed on gnuattached tty's
Sudish> on XEmacsen started on X displays.  Redump after patching, obviously.

Sudish> --- x-init.el~	Sun Nov 10 03:11:35 1996
Sudish> +++ x-init.el	Fri Dec 13 00:27:12 1996
Sudish> @@ -153,10 +153,19 @@
Sudish>      (if (featurep 'mule)
Sudish>          (init-mule-x-win))
Sudish>      ;; these are only ever called if zmacs-regions is true.
Sudish> -    (add-hook 'zmacs-deactivate-region-hook 'x-disown-selection)
Sudish> -    (add-hook 'zmacs-activate-region-hook   'x-activate-region-as-selection)
Sudish> -    (add-hook 'zmacs-update-region-hook     'x-activate-region-as-selection)
Sudish> -
Sudish> +    (add-hook 'zmacs-deactivate-region-hook
Sudish> +	      #'(lambda ()
Sudish> +		  (if (console-on-window-system-p)
Sudish> +		      (x-disown-selection))))
Sudish> +    (add-hook 'zmacs-activate-region-hook
Sudish> +	      #'(lambda ()
Sudish> +		  (if (console-on-window-system-p)
Sudish> +		      (x-activate-region-as-selection))))
Sudish> +    (add-hook 'zmacs-update-region-hook
Sudish> +	      #'(lambda ()
Sudish> +		  (if (console-on-window-system-p)
Sudish> +		      (x-activate-region-as-selection))))
Sudish> + 
Sudish>      ;; Motif-ish bindings
Sudish>      ;; The following two were generally unliked.
Sudish>      ;;(define-key global-map '(shift delete)   'x-kill-primary-selection)

