--- time.el.~1.117.~	2009-10-08 11:00:20.000000000 +1100
+++ time.el	2010-07-14 18:38:15.000000000 +1000
@@ -123,7 +123,7 @@
     ("Europe/Paris" "Paris")
     ("Asia/Calcutta" "Bangalore")
     ("Asia/Tokyo" "Tokyo"))
-  "Alist of zoneinfo-style time zones and places for `display-time-world'.
+  "List of zoneinfo-style time zones and places for `display-time-world'.
 Each element has the form (TIMEZONE LABEL).
 TIMEZONE should be a string of the form AREA/LOCATION, where AREA is
 the name of a region -- a continent or ocean, and LOCATION is the name
@@ -140,7 +140,7 @@
     ("CET-1CDT" "Paris")
     ("IST-5:30" "Bangalore")
     ("JST-9" "Tokyo"))
-  "Alist of traditional-style time zones and places for `display-time-world'.
+  "List of traditional-style time zones and places for `display-time-world'.
 Each element has the form (TIMEZONE LABEL).
 TIMEZONE should be a string of the form:
 
@@ -165,7 +165,7 @@
     (if (string-equal nyt gmt)
         legacy-style-world-list
       zoneinfo-style-world-list))
-  "Alist of time zones and places for `display-time-world' to display.
+  "List of time zones and places for `display-time-world' to display.
 Each element has the form (TIMEZONE LABEL).
 TIMEZONE should be in the format supported by `set-time-zone-rule' on
 your system.  See the documentation of `zoneinfo-style-world-list' and
@@ -500,15 +500,15 @@
    mode-name "World clock")
   (use-local-map display-time-world-mode-map))
 
-(defun display-time-world-display (alist)
-  "Replace current buffer text with times in various zones, based on ALIST."
+(defun display-time-world-display (world-list)
+  "Replace current buffer text with times in various zones, based on WORLD-LIST."
   (let ((inhibit-read-only t)
 	(buffer-undo-list t))
     (erase-buffer)
     (let ((max-width 0)
 	  (result ()))
       (unwind-protect
-	  (dolist (zone alist)
+	  (dolist (zone world-list)
 	    (let* ((label (cadr zone))
 		   (width (string-width label)))
 	      (set-time-zone-rule (car zone))