(hl-line-highlight, global-hl-line-highlight): Use

`line-beginning-position' to determine the beginning of the next
line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db0099c88a760a3ce43de82f420ad717818a69d9..812738145b396fb01148e4e32da25355f87a8115 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-05-16  Lute Kamstra  <Lute.Kamstra@cwi.nl>
+
+       * hl-line.el (hl-line-highlight, global-hl-line-highlight): Use
+       `line-beginning-position' to determine the beginning of the next
+       line.
+
 2003-05-16  Kenichi Handa  <handa@m17n.org>
 
        * international/mule-cmds.el (mule-menu-keymap): Enable the menu
@@ -465,7 +471,7 @@
        * help-fns.el (help-add-fundoc-usage): Use t for "no arglist".
        * emacs-lisp/advice.el (ad-make-advised-docstring): Adjust usage.
 
-2003-05-06  Lute Kamstra  <lute@occarina.pna.cwi.nl>
+2003-05-06  Lute Kamstra  <Lute.Kamstra@cwi.nl>
 
        * hl-line.el: Removed an erroneous comment.
        (hl-line-mode): Use buffer local hooks.

diff --git a/lisp/hl-line.el b/lisp/hl-line.el
index 880ec4ae93e8843ac66f0334c818817c8ad599f4..3ad75ae78fa8153c1d8ab54608ba684e867da872 100644 (file)
--- a/lisp/hl-line.el
+++ b/lisp/hl-line.el
@@ -124,7 +124,7 @@ addition to `hl-line-highlight' on `post-command-hook'."
         (overlay-put hl-line-overlay
                      'window (unless hl-line-sticky-flag (selected-window)))
         (move-overlay hl-line-overlay
-                      (line-beginning-position) (1+ (line-end-position))))
+                      (line-beginning-position) (line-beginning-position 2)))
     (hl-line-unhighlight)))
 
 (defun hl-line-unhighlight ()
@@ -158,7 +158,7 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and
         (overlay-put global-hl-line-overlay 'face hl-line-face))
       (overlay-put global-hl-line-overlay 'window (selected-window))
       (move-overlay global-hl-line-overlay
-                    (line-beginning-position) (1+ (line-end-position))))))
+                    (line-beginning-position) (line-beginning-position 2)))))
 
 (defun global-hl-line-unhighlight ()
   "Deactivate the Global-Hl-Line overlay on the current line."