1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-01 08:17:34 +00:00

Clean up spacing to pass Emacs's pre-commit check

* lisp/org-agenda.el (org-agenda-highlight-todo):
(org-agenda-set-mode-name):
* lisp/org-table.el (org-table-eval-formula): Avoid space before tab in
indent.

This is in preparation for syncing with the Emacs repo.
This commit is contained in:
Kyle Meyer 2021-09-29 00:22:40 -04:00
parent d3add14461
commit 1292d89c37
2 changed files with 5 additions and 5 deletions

View File

@ -7182,7 +7182,7 @@ The optional argument TYPE tells the agenda type."
;; Remove `display' property as the icon could leak
;; on the white space.
(org-add-props " " (org-plist-delete (text-properties-at 0 x)
'display))
'display))
(substring x (match-end 3)))))))
x)))
@ -8807,15 +8807,15 @@ When called with a prefix argument, include all archive files as well."
'(:eval (propertize
(concat "["
(mapconcat
#'identity
#'identity
(append
(get 'org-agenda-category-filter :preset-filter)
org-agenda-category-filter)
"")
"]")
'face 'org-agenda-filter-category
'help-echo "Category used in filtering"))
"")
'help-echo "Category used in filtering"))
"")
(if (or org-agenda-tag-filter
(get 'org-agenda-tag-filter :preset-filter))
'(:eval (propertize

View File

@ -2457,7 +2457,7 @@ location of point."
(let ((c (string-to-char (match-string 1 fmt))))
(cl-case c
(?t (setq duration t numbers t
duration-output-format org-table-duration-custom-format))
duration-output-format org-table-duration-custom-format))
(?T (setq duration t numbers t duration-output-format nil))
(?U (setq duration t numbers t duration-output-format 'hh:mm))
(?N (setq numbers t))