procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make `todo-toggle-item-highlighting' work on multiline items (bug#27133)

Browse source 
* lisp/calendar/todo-mode.el (todo-hl-line-range): New named function,
replacing an anonymous function for the sake of `describe-variable'.
(todo-modes-set-2): Use it as buffer-local value of hl-line-range-function
and remove boundp test of this variable, so its value is available on
invoking `todo-toggle-item-highlighting'.
This commit is contained in:
Stephen Berman 2017-05-29 20:26:49 +02:00
parent c503188f80
commit ed222c502b
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/calendar/todo-mode.el
View file

@ -6583,17 +6583,19 @@ Added to `window-configuration-change-hook' in Todo mode."
(visual-line-mode)
(setq wrap-prefix (make-string todo-indent-to-here 32))))
(defun todo-hl-line-range ()
"Make `todo-toggle-item-highlighting' highlight entire item."
(save-excursion
(when (todo-item-end)
(cons (todo-item-start)
(todo-item-end)))))
(defun todo-modes-set-2 ()
"Make some settings that apply to multiple Todo modes."
(add-to-invisibility-spec 'todo)
(setq buffer-read-only t)
(setq-local desktop-save-buffer 'todo-desktop-save-buffer)
(when (boundp 'hl-line-range-function)
(setq-local hl-line-range-function
(lambda() (save-excursion
(when (todo-item-end)
(cons (todo-item-start)
(todo-item-end))))))))
(setq-local hl-line-range-function 'todo-hl-line-range))
(defun todo-modes-set-3 ()
"Make some settings that apply to multiple Todo modes."