Mercurial > emacs
comparison lisp/calendar/icalendar.el @ 93790:adddea858c0d
Update for diary-lib name changes.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sun, 06 Apr 2008 20:53:31 +0000 |
parents | bc4871e6df44 |
children | e49abd957e81 |
comparison
equal
deleted
inserted
replaced
93789:664ca9007b13 | 93790:adddea858c0d |
---|---|
2124 (y-or-n-p (format "Make appointment non-marking? ")))) | 2124 (y-or-n-p (format "Make appointment non-marking? ")))) |
2125 (save-window-excursion | 2125 (save-window-excursion |
2126 (unless diary-file | 2126 (unless diary-file |
2127 (setq diary-file | 2127 (setq diary-file |
2128 (read-file-name "Add appointment to this diary file: "))) | 2128 (read-file-name "Add appointment to this diary file: "))) |
2129 ;; Note: make-diary-entry will add a trailing blank char.... :( | 2129 ;; Note: diary-make-entry will add a trailing blank char.... :( |
2130 (make-diary-entry string non-marking diary-file))) | 2130 (funcall (if (fboundp 'diary-make-entry) |
2131 'diary-make-entry | |
2132 'make-diary-entry) | |
2133 string non-marking diary-file))) | |
2131 ;; return diary-file in case it has been changed interactively | 2134 ;; return diary-file in case it has been changed interactively |
2132 diary-file) | 2135 diary-file) |
2133 | 2136 |
2134 ;; ====================================================================== | 2137 ;; ====================================================================== |
2135 ;; Examples | 2138 ;; Examples |