Forráskód Böngészése

Merge branch 'maint'

Nicolas Goaziou 7 éve
szülő
commit
32e1ca2933
1 módosított fájl, 5 hozzáadás és 1 törlés
  1. 5 1
      lisp/org-agenda.el

+ 5 - 1
lisp/org-agenda.el

@@ -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