org-agenda.el: Fix indentation

This commit is contained in:
Bastien 2020-02-08 12:01:09 +01:00
parent 5ab6f6b77e
commit 64ef211647
1 changed files with 15 additions and 15 deletions

View File

@ -2216,11 +2216,11 @@ The following commands are available:
(kill-all-local-variables) (kill-all-local-variables)
(cl-flet ((reset-saved (var-set) (cl-flet ((reset-saved (var-set)
"Reset variables in VAR-SET to possibly stored value in SAVE." "Reset variables in VAR-SET to possibly stored value in SAVE."
(dolist (elem save) (dolist (elem save)
(pcase elem (pcase elem
(`(,var . ,val) ;ignore unbound variables (`(,var . ,val) ;ignore unbound variables
(when (and val (memq var var-set)) (when (and val (memq var var-set))
(set var val))))))) (set var val)))))))
(cond (org-agenda-doing-sticky-redo (cond (org-agenda-doing-sticky-redo
;; Refreshing sticky agenda-buffer ;; Refreshing sticky agenda-buffer
;; ;;
@ -2355,7 +2355,7 @@ The following commands are available:
(org-defkey org-agenda-mode-map "e" #'org-agenda-set-effort) (org-defkey org-agenda-mode-map "e" #'org-agenda-set-effort)
(org-defkey org-agenda-mode-map "\C-c\C-xe" #'org-agenda-set-effort) (org-defkey org-agenda-mode-map "\C-c\C-xe" #'org-agenda-set-effort)
(org-defkey org-agenda-mode-map "\C-c\C-x\C-e" (org-defkey org-agenda-mode-map "\C-c\C-x\C-e"
#'org-clock-modify-effort-estimate) #'org-clock-modify-effort-estimate)
(org-defkey org-agenda-mode-map "\C-c\C-xp" #'org-agenda-set-property) (org-defkey org-agenda-mode-map "\C-c\C-xp" #'org-agenda-set-property)
(org-defkey org-agenda-mode-map "q" #'org-agenda-quit) (org-defkey org-agenda-mode-map "q" #'org-agenda-quit)
(org-defkey org-agenda-mode-map "Q" #'org-agenda-Quit) (org-defkey org-agenda-mode-map "Q" #'org-agenda-Quit)
@ -2948,10 +2948,10 @@ Pressing `<' twice means to restrict to the current subtree or region
(when note (when note
(message "FLAGGING-NOTE ([?] for more info): %s" (message "FLAGGING-NOTE ([?] for more info): %s"
(org-add-props (org-add-props
(replace-regexp-in-string (replace-regexp-in-string
"\\\\n" "//" "\\\\n" "//"
(copy-sequence note)) (copy-sequence note))
nil 'face 'org-warning)))))) nil 'face 'org-warning))))))
t t)) t t))
((equal org-keys "#") (call-interactively 'org-agenda-list-stuck-projects)) ((equal org-keys "#") (call-interactively 'org-agenda-list-stuck-projects))
((equal org-keys "/") (call-interactively 'org-occur-in-agenda-files)) ((equal org-keys "/") (call-interactively 'org-occur-in-agenda-files))
@ -3693,7 +3693,7 @@ the global options and expect it to be applied to the entire view.")
(tag . org-agenda-tag-filter) (tag . org-agenda-tag-filter)
(effort . org-agenda-effort-filter) (effort . org-agenda-effort-filter)
(regexp . org-agenda-regexp-filter)) (regexp . org-agenda-regexp-filter))
"Alist of filter types and associated variables") "Alist of filter types and associated variables")
(defun org-agenda-filter-any () (defun org-agenda-filter-any ()
"Is any filter active?" "Is any filter active?"
(let ((form (cons 'or (mapcar (lambda (x) (let ((form (cons 'or (mapcar (lambda (x)
@ -4663,12 +4663,12 @@ is active."
(point-at-bol) (point-at-bol)
(if hdl-only (point-at-eol) end))) (if hdl-only (point-at-eol) end)))
(mapc (lambda (wr) (when (string-match wr str) (mapc (lambda (wr) (when (string-match wr str)
(goto-char (1- end)) (goto-char (1- end))
(throw :skip t))) (throw :skip t)))
regexps-) regexps-)
(mapc (lambda (wr) (unless (string-match wr str) (mapc (lambda (wr) (unless (string-match wr str)
(goto-char (1- end)) (goto-char (1- end))
(throw :skip t))) (throw :skip t)))
(if todo-only (if todo-only
(cons (concat "^\\*+[ \t]+" (cons (concat "^\\*+[ \t]+"
org-not-done-regexp) org-not-done-regexp)