From xemacs-m  Wed Dec 11 18:20:51 1996
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19]) by xemacs.cs.uiuc.edu (8.8.3/8.8.3) with ESMTP id SAA01759 for <xemacs-beta@xemacs.org>; Wed, 11 Dec 1996 18:20:50 -0600 (CST)
Received: (from steve@localhost)
          by altair.xemacs.org (8.8.4/8.8.4)
	  id QAA09406; Wed, 11 Dec 1996 16:30:43 -0800
Sender: steve@xemacs.org
To: xemacs-beta@xemacs.org
Subject: Re: Control-U Control-Y is broken in 19.15-b3
References: <32AF4ABA.7A130B60@amazon.com>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Eric Benson's message of Wed, 11 Dec 1996 15:58:50 -0800
Mime-Version: 1.0 (generated by tm-edit 7.95)
Content-Type: text/plain; charset=US-ASCII
Date: 11 Dec 1996 16:30:42 -0800
Message-ID: <m2lob44n9p.fsf@altair.xemacs.org>
Lines: 48
X-Mailer: Red Gnus v0.72/XEmacs 20.0

Thanks for the report Eric.

Please apply the following patch (Good for 20.0b31 & 19.15-b3).

*** xemacs-20.0-b31/lisp/prim/simple.el	Wed Dec  4 22:54:47 1996
--- xemacs-20.0-b32/lisp/prim/simple.el	Wed Dec 11 16:26:49 1996
***************
*** 1227,1234 ****
        ;; This is like exchange-point-and-mark, but doesn't activate the mark.
        ;; It is cleaner to avoid activation, even though the command
        ;; loop would deactivate the mark because we inserted text.
!       (goto-char (prog1 (mark t)
! 		   (set-marker (mark-marker) (point) (current-buffer)))))
    ;; If we do get all the way thru, make this-command indicate that.
    (setq this-command 'yank)
    nil)
--- 1227,1236 ----
        ;; This is like exchange-point-and-mark, but doesn't activate the mark.
        ;; It is cleaner to avoid activation, even though the command
        ;; loop would deactivate the mark because we inserted text.
!       ;; (But doesn't work in XEmacs)
!       ;(goto-char (prog1 (mark t)
! 		   ;(set-marker (mark-marker) (point) (current-buffer)))))
!       (exchange-point-and-mark t))
    ;; If we do get all the way thru, make this-command indicate that.
    (setq this-command 'yank)
    nil)


>>>>> "Eric" == Eric Benson <eb@amazon.com> writes:

Eric> Signaling: (wrong-type-argument markerp nil)
Eric>   set-marker(nil 261 #<buffer "foo">)
Eric>   (prog1 (mark t) (set-marker (mark-marker) (point) (current-buffer)))
Eric> )
Eric>   (goto-char (prog1 (mark t) (set-marker ... ... ...)))
Eric> )
Eric>   (if (consp arg) (goto-char (prog1 ... ...)))
Eric> )
Eric>   yank((4))
Eric>   call-interactively(yank)


-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
"That Bill Clinton.  He probably doesn't know how to log on to the
Internet."  -- Rush Limbaugh, noted Computer Expert

