Function: diary-icalendar--use-legacy-vars-p

diary-icalendar--use-legacy-vars-p is a byte-compiled function defined in diary-icalendar.el.gz.

This function is obsolete since 31.1.

Signature

(diary-icalendar--use-legacy-vars-p)

Documentation

Return non-nil if user has set icalendar-import-format* variables.

If any of these variables have non-default values, they will be used by diary-icalendar-import-format-entry to import events. 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
;;; Backward compatibility with icalendar.el

;; icalendar.el provided the following customization variables:
;; `icalendar-import-format'
;; `icalendar-import-format-class'
;; `icalendar-import-format-description'
;; `icalendar-import-format-location'
;; `icalendar-import-format-organizer'
;; `icalendar-import-format-summary'
;; `icalendar-import-format-status'
;; `icalendar-import-format-url'
;; `icalendar-import-format-uid'
;; These were all format strings: `icalendar-import-format' was the
;; top-level format string, which would potentially incorporate the
;; formatted output from the others.  This approach to customization
;; isn't very flexible, though, and doing it right requires a
;; separate defcustom variable for each iCalendar property.  (The above
;; list is not nearly exhaustive.) I have abandoned this approach in
;; what follows in favor of skeleton.el templates, but the following two
;; functions provide backward compatibility for anyone who had
;; customized the values of the above variables:
(defun di:-use-legacy-vars-p ()
  "Return non-nil if user has set `icalendar-import-format*' variables.
If any of these variables have non-default values, they will be used by
`diary-icalendar-import-format-entry' to import events.  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))
    (or
     (and (boundp 'ical:import-format)
          (not (equal ical:import-format
                      (custom--standard-value 'ical:import-format))))
     (and (boundp 'ical:import-format-class)
          (not (equal ical:import-format-class
                      (custom--standard-value 'ical:import-format-class))))
     (and (boundp 'ical:import-format-description)
          (not (equal ical:import-format-description
                      (custom--standard-value
                       'ical:import-format-description))))
     (and (boundp 'ical:import-format-location)
          (not (equal ical:import-format-location
                      (custom--standard-value 'ical:import-format-location))))
     (and (boundp 'ical:import-format-organizer)
          (not (equal ical:import-format-organizer
                      (custom--standard-value 'ical:import-format-organizer))))
     (and (boundp 'ical:import-format-summary)
          (not (equal ical:import-format-summary
                      (custom--standard-value 'ical:import-format-summary))))
     (and (boundp 'ical:import-format-status)
          (not (equal ical:import-format-status
                      (custom--standard-value 'ical:import-format-status))))
     (and (boundp 'ical:import-format-url)
          (not (equal ical:import-format-url
                      (custom--standard-value 'ical:import-format-url))))
     (and (boundp 'ical:import-format-uid)
          (not (equal ical:import-format-uid
                      (custom--standard-value 'ical:import-format-uid)))))))