|
@@ -4971,7 +4971,11 @@ of what a project is and how to check if it stuck, customize the variable
|
|
|
(setq org-agenda-buffer-name (buffer-name))
|
|
|
(with-current-buffer org-agenda-buffer-name
|
|
|
(setq org-agenda-redo-command
|
|
|
- `(org-agenda-list-stuck-projects ,current-prefix-arg)))))
|
|
|
+ `(org-agenda-list-stuck-projects ,current-prefix-arg))
|
|
|
+ (let ((inhibit-read-only t))
|
|
|
+ (add-text-properties
|
|
|
+ (point-min) (point-max)
|
|
|
+ `(org-redo-cmd ,org-agenda-redo-command))))))
|
|
|
|
|
|
;;; Diary integration
|
|
|
|