|
|
@@ -3492,7 +3492,7 @@ given in `org-agenda-start-on-weekday'."
|
|
|
(setq org-agenda-last-arguments (list include-all start-day span))
|
|
|
(org-compile-prefix-format 'agenda)
|
|
|
(org-set-sorting-strategy 'agenda)
|
|
|
- (let* ((span (org-agenda-ndays-to-span
|
|
|
+ (let* ((span (org-agenda-ndays-to-span
|
|
|
(or span org-agenda-ndays org-agenda-span)))
|
|
|
(today (org-today))
|
|
|
(sd (or start-day today))
|
|
|
@@ -4339,7 +4339,7 @@ of what a project is and how to check if it stuck, customize the variable
|
|
|
(if (zerop (buffer-size))
|
|
|
(setq entries nil)
|
|
|
(setq entries (buffer-substring (point-min) (- (point-max) 1)))
|
|
|
- (setq entries
|
|
|
+ (setq entries
|
|
|
(with-temp-buffer
|
|
|
(insert entries) (goto-char (point-min))
|
|
|
(while (re-search-forward "\n[ \t]+\\(.+\\)$" nil t)
|
|
|
@@ -4702,7 +4702,7 @@ This function is invoked if `org-agenda-todo-ignore-deadlines',
|
|
|
b3 (match-beginning 3) e3 (match-end 3)
|
|
|
todo-state (save-match-data (ignore-errors (org-get-todo-state)))
|
|
|
show-all (or (eq org-agenda-repeating-timestamp-show-all t)
|
|
|
- (member todo-state
|
|
|
+ (member todo-state
|
|
|
org-agenda-repeating-timestamp-show-all)))
|
|
|
(catch :skip
|
|
|
(and (org-at-date-range-p) (throw :skip nil))
|
|
|
@@ -4956,7 +4956,7 @@ be skipped."
|
|
|
pos (1- (match-beginning 1))
|
|
|
todo-state (save-match-data (org-get-todo-state))
|
|
|
show-all (or (eq org-agenda-repeating-timestamp-show-all t)
|
|
|
- (member todo-state
|
|
|
+ (member todo-state
|
|
|
org-agenda-repeating-timestamp-show-all))
|
|
|
d2 (org-time-string-to-absolute
|
|
|
(match-string 1) d1 'past show-all)
|
|
|
@@ -5461,7 +5461,7 @@ The modified list may contain inherited tags, and tags matched by
|
|
|
2 (length (car new)) 'face 'org-time-grid (car new))))
|
|
|
(when (and todayp org-agenda-show-current-time-in-grid)
|
|
|
(push (org-format-agenda-item
|
|
|
- nil
|
|
|
+ nil
|
|
|
org-agenda-current-time-string
|
|
|
"" nil
|
|
|
(format-time-string "%H:%M "))
|
|
|
@@ -7918,7 +7918,7 @@ This is a command that has to be installed in `calendar-mode-map'."
|
|
|
(when (string-match regexp (get-text-property (point) 'txt))
|
|
|
(setq entries-marked (+ entries-marked 1))
|
|
|
(call-interactively 'org-agenda-bulk-mark))))
|
|
|
- (if (not entries-marked)
|
|
|
+ (if (not entries-marked)
|
|
|
(message "No entry matching this regexp."))))
|
|
|
|
|
|
(defun org-agenda-bulk-unmark ()
|
|
|
@@ -8060,7 +8060,7 @@ The prefix arg is passed through to the command if possible."
|
|
|
(error nil)))))))
|
|
|
|
|
|
((equal action ?f)
|
|
|
- (setq cmd (list (intern
|
|
|
+ (setq cmd (list (intern
|
|
|
(org-icompleting-read "Function: "
|
|
|
obarray 'fboundp t nil nil)))))
|
|
|
|
Bastien Guerry