.emacs-my
changeset 1354 57d416cf71fa
parent 1352 5d8228d51506
child 1355 420364dcee32
equal deleted inserted replaced
1353:280fa3844fce 1354:57d416cf71fa
   363 (setq line-number-display-limit large-file-warning-threshold)
   363 (setq line-number-display-limit large-file-warning-threshold)
   364 (setq line-number-display-limit-width 200)
   364 (setq line-number-display-limit-width 200)
   365 ;; (linum-mode 1)
   365 ;; (linum-mode 1)
   366 ;; (global-linum-mode 1)
   366 ;; (global-linum-mode 1)
   367 
   367 
   368 ;; Also useful such format: (setq display-time-format " %H:%M %d-%m-%y ")
       
   369 (setq display-time-24hr-format t)
       
   370 (setq display-time-day-and-date nil)
       
   371 (setq display-time-default-load-average nil)
       
   372 (display-time)                          ; display-time-mode
       
   373 
       
   374 (when window-system
   368 (when window-system
   375   (set-background-color "white")
   369   (set-background-color "white")
   376   (set-foreground-color "black")
   370   (set-foreground-color "black")
   377   (set-cursor-color "brown")
   371   (set-cursor-color "brown")
   378   ;; (set-mouse-color "white")
   372   ;; (set-mouse-color "white")
   408 
   402 
   409 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1
   403 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1
   410 (setq inhibit-startup-message t)
   404 (setq inhibit-startup-message t)
   411 
   405 
   412 (setq initial-scratch-message nil)
   406 (setq initial-scratch-message nil)
       
   407 
       
   408 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       
   409 (setq "date, time")
       
   410 
       
   411 (require 'time)
       
   412 
       
   413 ;; Also useful such format: (setq display-time-format " %H:%M %d-%m-%y ")
       
   414 (setq display-time-24hr-format t)
       
   415 (setq display-time-day-and-date nil)
       
   416 (setq display-time-default-load-average nil)
       
   417 (display-time)                          ; display-time-mode
       
   418 
       
   419 ;; For (display-time-world).
       
   420 (setq display-time-world-time-format "%A %d %B %R %z %Z")
       
   421 (mapc (lambda (el) (add-to-list 'display-time-world-list el))
       
   422       '(("EET" "EET")
       
   423         ("PST" "PST")))
   413 
   424 
   414 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   425 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   415 (message "shell, bash, Cygwin, MSYS")
   426 (message "shell, bash, Cygwin, MSYS")
   416 
   427 
   417 (defvar my-use-windows-shell nil
   428 (defvar my-use-windows-shell nil