Article View: gnu.emacs.bug
Article #99453Re: x-mouse-set-point and hscroll
From: Stewart Clamen
Date: Thu, 13 Sep 1990 04:23
Date: Thu, 13 Sep 1990 04:23
64 lines
3079 bytes
3079 bytes
My previous fix to x-mouse-set-point doesn't handle the fencepost case
where the buffer is scrolled to the left by 1. What follows are
context diffs between the (original) distributed and new, corrected,
file, and between my first attempt at a fix and the new one:
--------------------------------------------------
*** x-mouse.el.new Thu Sep 13 00:16:53 1990
--- x-mouse.el.orig Thu Mar 24 04:04:42 1988
***************
*** 141,150 ****
(if relative-coordinate
(progn
(move-to-window-line rel-y)
! (move-to-column (+ rel-x -1 (max (window-hscroll) 1)
! (current-column)))))))
!
!
(defun x-mouse-set-mark (arg)
"Select Emacs window mouse is on, and set mark at mouse position.
--- 141,147 ----
(if relative-coordinate
(progn
(move-to-window-line rel-y)
! (move-to-column (+ rel-x (current-column)))))))
(defun x-mouse-set-mark (arg)
"Select Emacs window mouse is on, and set mark at mouse position.
--------------------------------------------------
Or
--------------------------------------------------
*** x-mouse.el.new Thu Sep 13 00:16:53 1990
--- x-mouse.el.bug Mon Aug 27 15:38:59 1990
***************
*** 141,150 ****
(if relative-coordinate
(progn
(move-to-window-line rel-y)
! (move-to-column (+ rel-x -1 (max (window-hscroll) 1)
! (current-column)))))))
!
!
(defun x-mouse-set-mark (arg)
"Select Emacs window mouse is on, and set mark at mouse position.
--- 141,147 ----
(if relative-coordinate
(progn
(move-to-window-line rel-y)
! (move-to-column (+ rel-x -1 (window-hscroll) (current-column)))))))
(defun x-mouse-set-mark (arg)
"Select Emacs window mouse is on, and set mark at mouse position.
--
Stewart M. Clamen Internet: clamen@cs.cmu.edu
School of Computer Science UUCP: uunet!"clamen@cs.cmu.edu"
Carnegie Mellon University Phone: +1 412 268 3620
Pittsburgh, PA 15213-3890, USA Fax: +1 412 268 1793
--
Stewart M. Clamen Internet: clamen@cs.cmu.edu
School of Computer Science UUCP: uunet!"clamen@cs.cmu.edu"
Carnegie Mellon University Phone: +1 412 268 3620
Pittsburgh, PA 15213-3890, USA Fax: +1 412 268 1793
Technical Details
Message-ID:
<CLAMEN.90Sep13002328@CLAMEN.AVALON.CS.CMU.EDU>Path:
arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!tut.cis.ohio-state.edu!pt.cs.cmu.edu!clamen.avalon.cs.cmu.edu!clamenReferences:
<CLAMEN.90Aug27154058@CLAMEN.AVALON.CS.CMU.EDU>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: fb2f1,6e0bbef09dc65279,start X-Google-Attributes: gidfb2f1,public X-Google-ArrivalTime: 1990-09-12 21:23:27 PST Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!tut.cis.ohio-state.edu!pt.cs.cmu.edu!clamen.avalon.cs.cmu.edu!clamen From: clamen@CS.CMU.EDU (Stewart Clamen) Newsgroups: gnu.emacs.bug Subject: Re: x-mouse-set-point and hscroll Message-ID: <CLAMEN.90Sep13002328@CLAMEN.AVALON.CS.CMU.EDU> Date: 13 Sep 90 04:23:27 GMT References: <CLAMEN.90Aug27154058@CLAMEN.AVALON.CS.CMU.EDU> Sender: clamen@clamen.avalon.cs.cmu.edu Reply-To: clamen+@CS.CMU.EDU Distribution: gnu Organization: School of Computer Science, Carnegie Mellon University Lines: 64 Posted: Thu Sep 13 05:23:27 1990 In-reply-to: clamen@CS.CMU.EDU's message of 27 Aug 90 19:40:59 GMT