From 42cfcdf82fc27a3b17d40dc53fbb347203a803e5 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Wed, 4 Apr 2012 22:34:00 +0900
Subject: [PATCH] fix time format prefs

---
 emacs.el | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/emacs.el b/emacs.el
index 8478091..b53ec49 100644
--- a/emacs.el
+++ b/emacs.el
@@ -65,7 +65,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 ;; start and quit
 
 (setq inhibit-startup-message t)
-(setq frame-title-format (list '(:eval (my-format-time-string))
+(setq frame-title-format (list '(:eval (format-time-string (or display-time-format "")))
                                " | %b "
                                '(:eval (number-to-string (length (buffer-list-not-start-with-space))))
                                " buffers ["
@@ -226,15 +226,12 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 ;; display date
 (add-hook 'after-init-hook
           (lambda ()
-            (setq display-time-string-forms
-                  '(dayname ", " day " " monthname " " year " " 24-hours ":"minutes ":" seconds))
-            ;; (setq display-time-string-forms
-            ;;       '((my-format-time-string)))
             (when display-time-mode
               (display-time-update))
             ))
 (setq display-time-interval 29)
 (setq display-time-day-and-date t)
+(setq display-time-format "%a, %-d %b %Y %T")
 (if window-system
     (display-time-mode 0)
   (display-time-mode 1))
@@ -1623,11 +1620,6 @@ when SEC is nil, stop auto save if enabled."
               (kill-buffer buf)))
           (buffer-list)))
 
-(defun my-format-time-string (&optional time)
-  ""
-  (let ((system-time-locale "C"))
-    (format-time-string "%a, %d %b %Y %T" time)))
-
 (defvar my-filer nil)
 (setq my-filer (or (executable-find "pcmanfm")
                    (executable-find "nautilus")))