emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH] Fix error when inserting into diary from agenda


From: Florian Beck
Subject: [O] [PATCH] Fix error when inserting into diary from agenda
Date: Sat, 15 Nov 2014 19:28:02 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux)

Hi,

emacs trunk dropped some old aliases. This patch fixes it.

-- 
Florian Beck

>From e2188e0fb3fe322146a9950bfff74773dd54018a Mon Sep 17 00:00:00 2001
From: Florian Beck <address@hidden>
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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]