From: Lute Kamstra Date: Fri, 16 May 2003 09:28:39 +0000 (+0000) Subject: (hl-line-highlight, global-hl-line-highlight): Use X-Git-Tag: ttn-vms-21-2-B4~10143 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=733b241e48a8f87dd3d552e8ec890d43e9a3dd73;p=emacs.git (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 db0099c88a7..812738145b3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2003-05-16 Lute Kamstra + + * 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 * 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 +2003-05-06 Lute Kamstra * 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 880ec4ae93e..3ad75ae78fa 100644 --- 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."