From mboxrd@z Thu Jan  1 00:00:00 1970
From: Stephen Eglen <S.J.Eglen@damtp.cam.ac.uk>
Subject: redisplay agenda after using org-agenda-diary-entry?
Date: Fri, 20 Nov 2009 14:43:56 +0000
Message-ID: <6249.1258728236@cpc1-cmbg14-2-0-cust6.5-4.cable.virginmedia.com>
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1NBUiW-0004md-H8
	for emacs-orgmode@gnu.org; Fri, 20 Nov 2009 09:44:08 -0500
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1NBUiR-0004kT-S8
	for emacs-orgmode@gnu.org; Fri, 20 Nov 2009 09:44:08 -0500
Received: from [199.232.76.173] (port=50833 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1NBUiR-0004kN-GE
	for emacs-orgmode@gnu.org; Fri, 20 Nov 2009 09:44:03 -0500
Received: from ppsw-1.csi.cam.ac.uk ([131.111.8.131]:47998)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <sje30@hermes.cam.ac.uk>) id 1NBUiQ-0001kC-RZ
	for emacs-orgmode@gnu.org; Fri, 20 Nov 2009 09:44:03 -0500
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org
Cc: Stephen Eglen <S.J.Eglen@damtp.cam.ac.uk>

How about the following simple change to the facility for
adding diary entries in the agenda: when you press 'i d' in
the agenda to add a new entry, you then see the entry in the agenda?

(& if so, what about the other cases, like 'i b' for block entries?)

Stephen

diff -c org-agenda.el~ org-agenda.el 
*** org-agenda.el~	Fri Nov 20 11:03:03 2009
--- org-agenda.el	Fri Nov 20 14:36:10 2009
***************
*** 6677,6683 ****
      (cond
       ((equal char ?d)
        (setq text (read-string "Day entry: "))
!       (org-agenda-add-entry-to-org-agenda-diary-file 'day text d1))
       ((equal char ?a)
        (setq d1 (list (car d1) (nth 1 d1)
  		     (read-number (format "Reference year [%d]: " (nth 2 d1))
--- 6677,6684 ----
      (cond
       ((equal char ?d)
        (setq text (read-string "Day entry: "))
!       (org-agenda-add-entry-to-org-agenda-diary-file 'day text d1)
!       (org-agenda-redo))
       ((equal char ?a)
        (setq d1 (list (car d1) (nth 1 d1)
  		     (read-number (format "Reference year [%d]: " (nth 2 d1))