From e2188e0fb3fe322146a9950bfff74773dd54018a Mon Sep 17 00:00:00 2001 From: Florian Beck Date: Sat, 15 Nov 2014 19:14:27 +0100 Subject: [PATCH 9/9] Replace obsolete aliases of calendar functions. * lisp/org-agenda.el (org-agenda-diary-entry): Replace obsolete functions. --- lisp/org-agenda.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 97970a6..2b5a8ec 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9526,13 +9526,13 @@ entries in that Org-mode file." (message "Diary entry: [d]ay [w]eekly [m]onthly [y]early [a]nniversary [b]lock [c]yclic") (read-char-exclusive))) (cmd (cdr (assoc char - '((?d . insert-diary-entry) - (?w . insert-weekly-diary-entry) - (?m . insert-monthly-diary-entry) - (?y . insert-yearly-diary-entry) - (?a . insert-anniversary-diary-entry) - (?b . insert-block-diary-entry) - (?c . insert-cyclic-diary-entry))))) + '((?d . diary-insert-entry) + (?w . diary-insert-weekly-entry) + (?m . diary-insert-monthly-entry) + (?y . diary-insert-yearly-entry) + (?a . diary-insert-anniversary-entry) + (?b . diary-insert-block-entry) + (?c . diary-insert-cyclic-entry))))) (oldf (symbol-function 'calendar-cursor-to-date)) ;; (buf (get-file-buffer (substitute-in-file-name diary-file))) (point (point)) -- 1.9.1