497 (setq display-time-default-load-average nil) |
497 (setq display-time-default-load-average nil) |
498 (display-time) ; display-time-mode |
498 (display-time) ; display-time-mode |
499 |
499 |
500 ;; For (display-time-world). |
500 ;; For (display-time-world). |
501 (setq display-time-world-time-format "%A %d %B %R %z %Z") |
501 (setq display-time-world-time-format "%A %d %B %R %z %Z") |
502 (when (and (boundp 'display-time-world-list) (not (eq t display-time-world-list))) ; Missing in Emacs 22. |
502 (setq display-time-world-list |
503 (mapc (lambda (el) (add-to-list 'display-time-world-list el)) |
503 '(("Europe/London" "London") |
504 '(("EET" "UTC+2, Eastern European Time") |
504 ("EET" "Eastern European") |
505 ("EST" "UTC-5, Eastern Standard Time, New York") |
505 ("Europe/Moscow" "Moscow") |
506 ("EDT" "UTC-4, Eastern Daylight Time, New York")))) |
506 ("Asia/Tel_Aviv" "Tel Aviv") |
|
507 ("America/Chicago" "Chicago/US Central") |
|
508 ("America/Los_Angeles" "Los Angeles") |
|
509 ("America/New_York" "New York") |
|
510 ("Asia/Tokyo" "Tokyo"))) |
507 |
511 |
508 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
512 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
509 (message "shell, bash, Cygwin, MSYS") |
513 (message "shell, bash, Cygwin, MSYS") |
510 |
514 |
511 (eval-when 'compile (require 'shell)) |
515 (eval-when 'compile (require 'shell)) |