From c918d5097af4ca82e381cc7a45efccebadf22e91 Mon Sep 17 00:00:00 2001 Message-Id: From: Ihor Radchenko Date: Mon, 9 May 2022 20:35:18 +0800 Subject: [PATCH] org-agenda: Make sure that clock report header has trailing newline * lisp/org-agenda.el (org-agenda-list): Add trailing newline to `org-agenda-clock-report-header' if there is none. --- lisp/org-agenda.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9d38b889d..3a795ef74 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4486,8 +4486,10 @@ (defun org-agenda-list (&optional arg start-day span with-hour) (setq p (plist-put p :tend clocktable-end)) (setq p (plist-put p :scope 'agenda)) (setq tbl (apply #'org-clock-get-clocktable p)) - (when org-agenda-clock-report-header - (insert (propertize org-agenda-clock-report-header 'face 'org-agenda-structure))) + (when org-agenda-clock-report-header + (insert (propertize org-agenda-clock-report-header 'face 'org-agenda-structure)) + (unless (string-suffix-p "\n" org-agenda-clock-report-header) + (insert "\n"))) (insert tbl))) (goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) -- 2.35.1