Function: diary-icalendar--format-vevent-legacy

diary-icalendar--format-vevent-legacy is a byte-compiled function defined in diary-icalendar.el.gz.

This function is obsolete since 31.1.

Signature

(diary-icalendar--format-vevent-legacy DATE CLASS DESC LOCATION ORGANIZER SUMMARY STATUS URL UID)

Documentation

Format an entry on DATE using the values of obsolete import variables.

This function is for backward compatibility; please do not rely on it in new code.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/diary-icalendar.el.gz
(defun di:-format-vevent-legacy (date class desc location organizer
                                 summary status url uid)
  "Format an entry on DATE using the values of obsolete import variables.
This function is for backward compatibility; please do not rely on it in
new code."
  (declare (obsolete nil "31.1"))
  (with-suppressed-warnings
      ((obsolete ical:import-format
                 ical:import-format-class
                 ical:import-format-description
                 ical:import-format-location
                 ical:import-format-organizer
                 ical:import-format-summary
                 ical:import-format-status
                 ical:import-format-url
                 ical:import-format-uid))

    (insert ical:import-format)
    (replace-regexp-in-region "%c"
                              (format ical:import-format-class class)
                              (point-min) (point-max))
    (replace-regexp-in-region "%d"
                              (format ical:import-format-description desc)
                              (point-min) (point-max))
    (replace-regexp-in-region "%l"
                              (format ical:import-format-location location)
                              (point-min) (point-max))
    (replace-regexp-in-region "%o"
                              (format ical:import-format-organizer organizer)
                              (point-min) (point-max))
    (replace-regexp-in-region "%s"
                              (format ical:import-format-summary summary)
                              (point-min) (point-max))
    (replace-regexp-in-region "%t"
                              (format ical:import-format-status status)
                              (point-min) (point-max))
    (replace-regexp-in-region "%u"
                              (format ical:import-format-url url)
                              (point-min) (point-max))
    (replace-regexp-in-region "%U"
                              (format ical:import-format-uid uid)
                              (point-min) (point-max))
    (goto-char (point-min))
    (insert date " ")))