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")))