Clean up spacing to pass Emacs's pre-commit check
Avoid trailing spaces and spaces before tabs.
This commit is contained in:
parent
7b9d8e7bed
commit
b196a05f5a
|
@ -5934,7 +5934,7 @@ displayed in agenda view."
|
|||
(setq result (org-diary-sexp-entry sexp sexp-entry date))
|
||||
(when result
|
||||
;; Only check if entry should be skipped on matching sexps.
|
||||
(org-agenda-skip (org-element-at-point))
|
||||
(org-agenda-skip (org-element-at-point))
|
||||
(setq marker (org-agenda-new-marker beg)
|
||||
level (make-string (org-reduced-level (org-outline-level)) ? )
|
||||
category (org-get-category beg)
|
||||
|
|
|
@ -325,9 +325,9 @@ When ENTRY is non-nil, show the entire entry."
|
|||
(line-end-position 0)
|
||||
(save-excursion
|
||||
(if (re-search-forward
|
||||
(concat "[\r\n]" (org-get-limited-outline-regexp)) nil t)
|
||||
(concat "[\r\n]" (org-get-limited-outline-regexp)) nil t)
|
||||
(line-end-position 0)
|
||||
(point-max)))
|
||||
(point-max)))
|
||||
t
|
||||
'outline))))
|
||||
|
||||
|
@ -398,9 +398,9 @@ Show the heading too, if it is currently invisible."
|
|||
(line-end-position 0)
|
||||
(save-excursion
|
||||
(if (re-search-forward
|
||||
(concat "[\r\n]\\(" (org-get-limited-outline-regexp) "\\)") nil t)
|
||||
(match-beginning 1)
|
||||
(point-max)))
|
||||
(concat "[\r\n]\\(" (org-get-limited-outline-regexp) "\\)") nil t)
|
||||
(match-beginning 1)
|
||||
(point-max)))
|
||||
nil
|
||||
'outline)
|
||||
(when hide-drawers (org-cycle-hide-drawers 'children))))
|
||||
|
|
|
@ -7950,8 +7950,8 @@ the whole buffer."
|
|||
(put-text-property
|
||||
(save-excursion (org-back-to-heading-or-point-min t))
|
||||
(save-excursion (if (org-before-first-heading-p)
|
||||
(point-max)
|
||||
(org-end-of-subtree t t)))
|
||||
(point-max)
|
||||
(org-end-of-subtree t t)))
|
||||
'org-category
|
||||
value)))))))))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue