** Cleanup temporary +++/--- lines in etc/NEWS.
** Regenerate the postscript files of the reference cards in etc.
-As of 2007/2/26, only ps files older than the associated tex files are:
- cs-dired-ref.ps sk-dired-ref.ps
** Ask maintainers of refcard translations to update them.
LANG Translator Status
cs Pavel Janík Can't work on it now.
de Sven Joachim Done
-fr Eric Jacoboni Done (layout might be improved)
+fr Eric Jacoboni Done
pl Włodek Bzyl Done
pt-br Rodrigo Real Done
ru Alex Ott Done
** flyspell and check-comments
-** lennart.borgman@gmail.com, Feb 22: C-h k does not catch text properies keymaps
+** lennart.borgman@gmail.com, Feb 22: C-h k does not catch text properties keymaps
Update: Problem is only seen when viper-mode is enabled.
* DOCUMENTATION
-** Fix overfull lines p3 fr-refcard.ps
-
** Check the Emacs Tutorial.
The first line of every tutorial must begin with text ending in a
+2007-03-21 Ulf Jasper <ulf.jasper@web.de>
+
+ * calendar/icalendar.el (icalendar-version): Increase to 0.15.
+ (icalendar--get-unfolded-buffer): Define actual arguments rather
+ than just using &rest. Check replace-in-string is fbound.
+ (icalendar-import-buffer): Doc fix.
+ (icalendar--convert-ical-to-diary): Set diary-file. Check
+ diary-file before inserting final newline.
+ (icalendar--add-diary-entry): Return diary-file.
+
2007-03-21 Glenn Morris <rgm@gnu.org>
* calendar/calendar.el (diary-set-maybe-redraw): Autoload it.
;;; Code:
-(defconst icalendar-version "0.14"
+(defconst icalendar-version "0.15"
"Version number of icalendar.el.")
;; ======================================================================
(replace-match "" nil nil)))
unfolded-buffer))
-(defsubst icalendar--rris (&rest args)
+(defsubst icalendar--rris (regexp rep string &optional fixedcase literal)
"Replace regular expression in string.
-Pass ARGS to `replace-regexp-in-string' (Emacs) or to
-`replace-in-string' (XEmacs)."
- (if (fboundp 'replace-regexp-in-string)
- ;; Emacs:
- (apply 'replace-regexp-in-string args)
- ;; XEmacs:
- (save-match-data ;; apparently XEmacs needs save-match-data
- (apply 'replace-in-string args))))
+Pass arguments REGEXP REP STRING FIXEDCASE LITERAL to
+`replace-regexp-in-string' (Emacs) or to `replace-in-string' (XEmacs)."
+ (cond ((fboundp 'replace-regexp-in-string)
+ ;; Emacs:
+ (replace-regexp-in-string regexp rep string fixedcase literal))
+ ((fboundp 'replace-in-string)
+ ;; XEmacs:
+ (save-match-data ;; apparently XEmacs needs save-match-data
+ (replace-in-string string regexp rep literal)))))
(defun icalendar--read-element (invalue inparams)
"Recursively read the next iCalendar element in the current buffer.
DIARY-FILE.
It will ask for each appointment whether to add it to the diary
-when DO-NOT-ASK is non-nil. When called interactively,
-DO-NOT-ASK is set to t, so that you are asked fore each event.
+unless DO-NOT-ASK is non-nil. When called interactively,
+DO-NOT-ASK is nil, so that you are asked for each event.
NON-MARKING determines whether diary events are created as
non-marking.
(concat diary-string " "
(icalendar--format-ical-event e)))
(if do-not-ask (setq summary nil))
- (icalendar--add-diary-entry diary-string diary-file
- non-marking summary))
+ ;; add entry to diary and store actual name of diary
+ ;; file (in case it was nil)
+ (setq diary-file
+ (icalendar--add-diary-entry diary-string diary-file
+ non-marking summary)))
;; event was not ok
(setq found-error t)
(setq error-string
(setq error-string (format "%s\n%s\nCannot handle this event: %s"
error-val error-string e))
(message "%s" error-string))))
+
;; insert final newline
- (let ((b (find-buffer-visiting diary-file)))
- (when b
- (save-current-buffer
- (set-buffer b)
- (goto-char (point-max))
- (insert "\n"))))
+ (if diary-file
+ (let ((b (find-buffer-visiting diary-file)))
+ (when b
+ (save-current-buffer
+ (set-buffer b)
+ (goto-char (point-max))
+ (insert "\n")))))
(if found-error
(save-current-buffer
(set-buffer (get-buffer-create "*icalendar-errors*"))
(setq diary-file
(read-file-name "Add appointment to this diary file: ")))
;; Note: make-diary-entry will add a trailing blank char.... :(
- (make-diary-entry string non-marking diary-file))))
+ (make-diary-entry string non-marking diary-file)))
+ ;; return diary-file in case it has been changed interactively
+ diary-file)
(provide 'icalendar)