diff options
Diffstat (limited to 'ebuild-mode.el')
-rw-r--r-- | ebuild-mode.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/ebuild-mode.el b/ebuild-mode.el index 416758d..816f181 100644 --- a/ebuild-mode.el +++ b/ebuild-mode.el @@ -309,9 +309,11 @@ of the elements." "Use FORMAT-STRING to format the time value TIME. Calls `format-time-string' (which see) for the UTC time zone. Compatibility function for XEmacs." - (if (featurep 'xemacs) - ;; format-time-string in XEmacs 21.5 can take only two arguments, - ;; i.e. it doesn't support ZONE + (if (and (featurep 'xemacs) + (not (function-allows-args 'format-time-string 3))) + ;; format-time-string in older XEmacs versions can take only two + ;; arguments. Version 21.5.35 still doesn't support a time zone + ;; as third argument, but accepts non-nil to mean Universal Time. (let ((process-environment (copy-sequence process-environment)) (tz (getenv "TZ"))) (setenv "TZ" "UTC") |