(t
'(mcs-ltn1 mcharset)))
- ;; time-stamp.el; First appeared in Emacs 19.16.
- (if (and (not (featurep 'xemacs))
- (or (< emacs-major-version 19)
- (and (= emacs-major-version 19)
- (< emacs-minor-version 16))))
- '(time-stamp)
- ;; no problem.
- '())
-
;; timezone.el; Some versions have Y2K problem.
(condition-case nil
(let ((load-path (delete (expand-file-name ".")
0)
"2000")
(error "timezone.el has Y2K problem. Install fixed version."))
+ ;; Old parser test.
+ (if (string=
+ (aref (timezone-parse-date "Wednesday, 31-Jan-01 09:00:00 GMT")
+ 0)
+ "0")
+ (error "timezone.el has old date parser. Install fixed version."))
;; no problem.
'())
(error
((featurep 'xemacs)
;; XEmacs.
'(inv-xemacs invisible))
+ ((>= emacs-major-version 23)
+ ;; Emacs 23 and later
+ '(inv-23 invisible))
((>= emacs-major-version 19)
;; Emacs 19 and later.
'(inv-19 invisible))