"Return string describing the version of Ediff.
When called interactively, displays the version."
(interactive)
- ;; called-interactively-p - not in XEmacs
- ;; (if (called-interactively-p 'interactive)
- (if (interactive-p)
+ (if (if (featurep 'xemacs)
+ (interactive-p)
+ (called-interactively-p 'interactive))
(message "%s" (ediff-version))
(format "Ediff %s of %s" ediff-version ediff-date)))