- (if (or (<= emacs-major-version 18)
- (featurep 'xemacs)
- (and (boundp 'system-configuration-options) ; 19.29 or later
- (string= system-configuration-options "NT"))) ; for Meadow
- (expand-file-name "../../.." exec-directory)
+ (cond
+ ((<= emacs-major-version 18)
+ ;; The default of `exec-directory' is "/usr/local/emacs/etc".
+ ;; (See src/paths.h-dist)
+ (expand-file-name "../.." exec-directory))
+ ((featurep 'meadow)
+ ;; I have no idea, sorry.
+ (expand-file-name "../../.." data-directory))
+ ((featurep 'xemacs)
+ ;; The default of 'data-directory' is
+ ;; "/usr/local/lib/xemacs-$VERSION/etc".
+ (expand-file-name "../../.." data-directory))
+ (t
+ ;; The default of 'data-directory' is
+ ;; "/usr/local/lib/emacs/$VERSION/etc" (19.28 and earlier), or
+ ;; "/usr/local/share/emacs/$VERSION/etc" (19.29 and later).