Commit 95f5a37f authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(line-move-partial): Optimize. Try window-line-height

before posn-at-point to get vpos of current line.
parent 7bbc67d2
......@@ -5,15 +5,15 @@
 
2006-09-18 Michael Kifer <kifer@cs.stonybrook.edu>
 
* viper.el: Bumped up version/date of update to reflect the substantial
* viper.el: Bump up version/date of update to reflect the substantial
changes done in August 2006.
 
* viper-cmd (viper-next-line-at-bol): make sure button-at, push-button
* viper-cmd (viper-next-line-at-bol): Make sure button-at, push-button
are defined.
 
* ediff-util.el (ediff-add-to-history): new function.
* ediff-util.el (ediff-add-to-history): New function.
 
* ediff.el: use ediff-add-to-history instead of add-to-history.
* ediff.el: Use ediff-add-to-history instead of add-to-history.
 
2006-09-18 Wolfgang Jenkner <wjenkner@inode.at> (tiny change)
 
......
......@@ -3507,9 +3507,11 @@ Outline mode sets this."
nil)
;; If cursor is not in the bottom scroll margin, move forward.
((and (> vpos 0)
(< (setq ppos (posn-at-point)
py (cdr (or (posn-actual-col-row ppos)
(posn-col-row ppos))))
(< (setq py
(or (nth 1 (window-line-height))
(let ((ppos (posn-at-point)))
(cdr (or (posn-actual-col-row ppos)
(posn-col-row ppos))))))
(min (- (window-text-height) scroll-margin 1) (1- vpos))))
nil)
;; When already vscrolled, we vscroll some more if we can,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment