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