all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* bug#27133: 26.0.50; Todo-mode multiline item highlighting is broken
@ 2017-05-29 18:19 Stephen Berman
  2017-05-29 18:32 ` Stephen Berman
  0 siblings, 1 reply; 2+ messages in thread
From: Stephen Berman @ 2017-05-29 18:19 UTC (permalink / raw)
  To: 27133

[-- Attachment #1: Type: text/plain, Size: 174 bytes --]

If a todo-mode item contains more than one line (hard newline), then
typing `H' (`todo-toggle-item-highlighting') only highlights the first
line instead of the entire item.


[-- Attachment #2: ChangeLog --]
[-- Type: text/plain, Size: 452 bytes --]

2017-05-29  Stephen Berman  <stephen.berman@gmx.net>

	Make `todo-toggle-item-highlighting' work on multiline items

	* 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'.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: todo-mode item highlighting patch --]
[-- Type: text/x-patch, Size: 1078 bytes --]

diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index 8155a4241a..7b27e7049d 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -6583,17 +6583,19 @@ todo-modes-set-1
     (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."

[-- Attachment #4: Type: text/plain, Size: 247 bytes --]



In GNU Emacs 26.0.50 (build 29, x86_64-pc-linux-gnu, GTK+ Version 3.22.8)
 of 2017-05-28 built on rosalinde
Repository revision: 288b3ca2e519903653b9bc88d281ecd9f6b162a4
Windowing system distributor 'The X.Org Foundation', version 11.0.11901000

^ permalink raw reply related	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2017-05-29 18:32 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-05-29 18:19 bug#27133: 26.0.50; Todo-mode multiline item highlighting is broken Stephen Berman
2017-05-29 18:32 ` Stephen Berman

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.