From 9bb4ef66abeada1ceeca930a70c800beef24254f Mon Sep 17 00:00:00 2001 From: Matt Lundin Date: Thu, 3 Mar 2011 01:03:43 +0000 Subject: [PATCH] org-agenda-append-agenda: check that we are in an agenda buffer. --- lisp/org-agenda.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ea822da3d..f2eac9982 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2266,6 +2266,8 @@ Pressing `<' twice means to restrict to the current subtree or region This function allows interactive building of block agendas. Agenda views are separated by `org-agenda-block-separator'." (interactive) + (unless (string= (buffer-name) org-agenda-buffer-name) + (error "Can only append from within agenda buffer")) (let ((org-agenda-multi t)) (org-agenda) (widen)))