diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-09-19 13:13:49 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-09-19 13:13:49 +0000 |
| commit | 95f5a37fb747c9f02cc429f48c4b2e9d4d4a313e (patch) | |
| tree | 2821cf69d8f56bcdc0f21d80e8aa5521828c0061 /lisp | |
| parent | 7bbc67d20f0cb892bc2a200f9a3ae3cd79b4ccd2 (diff) | |
| download | emacs-95f5a37fb747c9f02cc429f48c4b2e9d4d4a313e.tar.gz | |
(line-move-partial): Optimize. Try window-line-height
before posn-at-point to get vpos of current line.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/simple.el | 8 |
2 files changed, 9 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 724a6841bb7..dbd2474bd91 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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) diff --git a/lisp/simple.el b/lisp/simple.el index 0a257863a76..5a30471ca49 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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, |