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

Avoid trailing spaces and spaces before tabs.
This commit is contained in:
Kyle Meyer 2022-10-03 17:57:03 -04:00
parent 7b9d8e7bed
commit b196a05f5a
8 changed files with 24 additions and 24 deletions

View File

@ -5934,7 +5934,7 @@ displayed in agenda view."
(setq result (org-diary-sexp-entry sexp sexp-entry date)) (setq result (org-diary-sexp-entry sexp sexp-entry date))
(when result (when result
;; Only check if entry should be skipped on matching sexps. ;; 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) (setq marker (org-agenda-new-marker beg)
level (make-string (org-reduced-level (org-outline-level)) ? ) level (make-string (org-reduced-level (org-outline-level)) ? )
category (org-get-category beg) category (org-get-category beg)

View File

@ -325,9 +325,9 @@ When ENTRY is non-nil, show the entire entry."
(line-end-position 0) (line-end-position 0)
(save-excursion (save-excursion
(if (re-search-forward (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) (line-end-position 0)
(point-max))) (point-max)))
t t
'outline)))) 'outline))))
@ -398,9 +398,9 @@ Show the heading too, if it is currently invisible."
(line-end-position 0) (line-end-position 0)
(save-excursion (save-excursion
(if (re-search-forward (if (re-search-forward
(concat "[\r\n]\\(" (org-get-limited-outline-regexp) "\\)") nil t) (concat "[\r\n]\\(" (org-get-limited-outline-regexp) "\\)") nil t)
(match-beginning 1) (match-beginning 1)
(point-max))) (point-max)))
nil nil
'outline) 'outline)
(when hide-drawers (org-cycle-hide-drawers 'children)))) (when hide-drawers (org-cycle-hide-drawers 'children))))

View File

@ -7950,8 +7950,8 @@ the whole buffer."
(put-text-property (put-text-property
(save-excursion (org-back-to-heading-or-point-min t)) (save-excursion (org-back-to-heading-or-point-min t))
(save-excursion (if (org-before-first-heading-p) (save-excursion (if (org-before-first-heading-p)
(point-max) (point-max)
(org-end-of-subtree t t))) (org-end-of-subtree t t)))
'org-category 'org-category
value))))))))))) value)))))))))))