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