Hi, here's a patch to correct the behaviour of the "C-l" gesture in
Climacs to be more like the Emacs one.
Index: drei-redisplay.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp,v
retrieving revision 1.71
diff -u -r1.71 drei-redisplay.lisp
--- drei-redisplay.lisp 3 May 2008 07:47:17 -0000 1.71
+++ drei-redisplay.lisp 27 Sep 2010 15:01:16 -0000
@@ -1090,6 +1090,12 @@
(declare (ignore y1))
(- x2 x1)))
+(defmethod bounding-rectangle-height ((view drei-buffer-view))
+ (multiple-value-bind (x1 y1 x2 y2)
+ (bounding-rectangle* view)
+ (declare (ignore x1 x2))
+ (- y2 y1)))
+
(defun drei-bounding-rectangle* (drei-instance)
"Return the bounding rectangle of the visual appearance of
`drei-instance' as four values, just as `bounding-rectangle*'."
@@ -1172,15 +1178,22 @@
"Try to put point close to the middle of the pane by moving top
half a pane-size up."
(let* ((view (view drei-pane))
- (nb-lines-in-pane (number-of-lines-in-region (top view) (bot view))))
- (with-accessors ((top top) (point point)) view
- (setf (offset top) (offset point))
- (beginning-of-line top)
- (loop do (beginning-of-line top)
- repeat (floor nb-lines-in-pane 2)
- until (beginning-of-buffer-p top)
- do (decf (offset top))
- (beginning-of-line top))
+ (buffer (buffer view))
+ (line-and-space-height (+ (text-style-height (medium-merged-text-style
+ (sheet-medium drei-pane)) drei-pane)
+ (stream-vertical-spacing drei-pane)))
+ (nb-lines-in-pane (floor (bounding-rectangle-height drei-pane)
+ line-and-space-height))
+ (nb-lines-in-buffer (number-of-lines buffer)))
+ (when (> nb-lines-in-buffer nb-lines-in-pane)
+ (with-accessors ((top top) (point point)) view
+ (setf (offset top) (offset point))
+ (beginning-of-line top)
+ (loop do (beginning-of-line top)
+ repeat (floor nb-lines-in-pane 2)
+ until (beginning-of-buffer-p top)
+ do (decf (offset top))
+ (beginning-of-line top)))
(invalidate-all-strokes view :modified t))))
(defun adjust-pane (drei-pane)
--
Manuel Giraud
