--- a/.emacs-my	Sun Aug 16 00:13:35 2020 +0300
+++ b/.emacs-my	Sun Aug 30 18:53:38 2020 +0300
@@ -499,11 +499,15 @@
 
 ;; For (display-time-world).
 (setq display-time-world-time-format "%A %d %B %R %z %Z")
-(when (and (boundp 'display-time-world-list) (not (eq t display-time-world-list))) ; Missing in Emacs 22.
-  (mapc (lambda (el) (add-to-list 'display-time-world-list el))
-        '(("EET" "UTC+2, Eastern European Time")
-          ("EST" "UTC-5, Eastern Standard Time, New York")
-          ("EDT" "UTC-4, Eastern Daylight Time, New York"))))
+(setq display-time-world-list
+      '(("Europe/London" "London")
+        ("EET" "Eastern European")
+        ("Europe/Moscow" "Moscow")
+        ("Asia/Tel_Aviv" "Tel Aviv")
+        ("America/Chicago" "Chicago/US Central")
+        ("America/Los_Angeles" "Los Angeles")
+        ("America/New_York" "New York")
+        ("Asia/Tokyo" "Tokyo")))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "shell, bash, Cygwin, MSYS")