| changeset 1565 | 0160e2f997ee |
| parent 1564 | c4ec990891d8 |
| child 1566 | 0e7f4d5153d1 |
| 1564:c4ec990891d8 | 1565:0160e2f997ee |
|---|---|
511 (setq display-time-default-load-average nil) |
511 (setq display-time-default-load-average nil) |
512 (display-time) ; display-time-mode |
512 (display-time) ; display-time-mode |
513 |
513 |
514 ;; For (display-time-world). |
514 ;; For (display-time-world). |
515 (setq display-time-world-time-format "%A %d %B %R %z %Z") |
515 (setq display-time-world-time-format "%A %d %B %R %z %Z") |
516 (when (boundp 'display-time-world-list) ; Absent in Emacs 22. |
516 (when (and (boundp 'display-time-world-list) (not (eq t display-time-world-list))) ; Missing in Emacs 22. |
517 (mapc (lambda (el) (add-to-list 'display-time-world-list el)) |
517 (mapc (lambda (el) (add-to-list 'display-time-world-list el)) |
518 '(("EET" "UTC+2, Eastern European Time") |
518 '(("EET" "UTC+2, Eastern European Time") |
519 ("EST" "UTC-5, Eastern Standard Time, New York") |
519 ("EST" "UTC-5, Eastern Standard Time, New York") |
520 ("EDT" "UTC-4, Eastern Daylight Time, New York")))) |
520 ("EDT" "UTC-4, Eastern Daylight Time, New York")))) |
521 |
521 |
2518 ;; Disable: sometimes it take a long time to process large hunks. |
2518 ;; Disable: sometimes it take a long time to process large hunks. |
2519 ;; Use C-c C-b on hunk by own. |
2519 ;; Use C-c C-b on hunk by own. |
2520 ;; (defun my-diff-auto-refine-mode-on () (diff-auto-refine-mode 1)) |
2520 ;; (defun my-diff-auto-refine-mode-on () (diff-auto-refine-mode 1)) |
2521 ;; (add-hook 'diff-mode-hook 'my-diff-auto-refine-mode-on) |
2521 ;; (add-hook 'diff-mode-hook 'my-diff-auto-refine-mode-on) |
2522 |
2522 |
2523 (when window-system |
2523 (when (and window-system (< emacs-major-version 26)) |
2524 (my--eval-after-load diff-mode |
2524 (my--eval-after-load diff-mode |
2525 (set-face-foreground 'diff-added-face "DarkGreen") |
2525 (set-face-foreground 'diff-added "DarkGreen") |
2526 (set-face-foreground 'diff-removed-face "DarkRed") |
2526 (set-face-foreground 'diff-removed "DarkRed") |
2527 (set-face-background 'diff-refine-change "LightBlue1"))) |
2527 (set-face-background 'diff-refine-changed "LightBlue1"))) |
2528 |
2528 |
2529 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2529 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2530 (message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil") |
2530 (message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil") |
2531 |
2531 |
2532 (eval-when 'compile |
2532 (eval-when 'compile |