* todos.el (todos-modes-set-2): Restore point after finding start

and end of hl-line-range-function.

diff --git a/lisp/calendar/ChangeLog b/lisp/calendar/ChangeLog
index 19f515781b74413ac06005b599ccedb25b2fe1a1..6767b97a26feb5c5e64a9825bd52f788e5ef10df 100644 (file)
--- a/lisp/calendar/ChangeLog
+++ b/lisp/calendar/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-13  Stephen Berman  <stephen.berman@gmx.net>
+
+       * todos.el (todos-modes-set-2): Restore point after finding start
+       and end of hl-line-range-function.
+
 2013-05-13  Stephen Berman  <stephen.berman@gmx.net>
 
        * todos.el: Fixes for item marking and marked items.

diff --git a/lisp/calendar/todos.el b/lisp/calendar/todos.el
index f951123bc2b3920144dee4587491f60b95672e6d..91470a38cf8cf68f1f5ae46cb9654942be092977 100644 (file)
--- a/lisp/calendar/todos.el
+++ b/lisp/calendar/todos.el
@@ -2995,8 +2995,9 @@ which is the value of the user option
   (add-to-invisibility-spec 'todos)
   (setq buffer-read-only t)
   (set (make-local-variable 'hl-line-range-function)
-       (lambda() (when (todos-item-end)
-                  (cons (todos-item-start) (todos-item-end))))))
+       (lambda() (save-excursion
+                  (when (todos-item-end)
+                    (cons (todos-item-start) (todos-item-end)))))))
 
 (defun todos-modes-set-3 ()
   ""