[Emacs-diffs] trunk r117688: Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227)

[Ulf Jasper]

------------------------------------------------------------
revno: 117688
revision-id: address@hidden
parent: address@hidden
committer: Ulf Jasper <address@hidden>
branch nick: trunk
timestamp: Mon 2014-08-11 20:08:13 +0200
message:
  Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227)
  
  2014-08-11  Ulf Jasper  <address@hidden>
  
        Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227)
  
        * net/newst-treeview.el (newsticker-treeview-date-format): New.
        (newsticker--treeview-list-add-item): Use 
`newsticker-treeview-date-format'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/newst-treeview.el     
newsttreeview.el-20091113204419-o5vbwnq5f7feedwu-8686

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-08-11 00:59:34 +0000
+++ b/lisp/ChangeLog    2014-08-11 18:08:13 +0000
@@ -1,3 +1,10 @@
+2014-08-11  Ulf Jasper  <address@hidden>
+
+       Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227)
+
+       * net/newst-treeview.el (newsticker-treeview-date-format): New.
+       (newsticker--treeview-list-add-item): Use 
`newsticker-treeview-date-format'.
+
 2014-08-11  Glenn Morris  <address@hidden>
 
        * files.el (basic-save-buffer-2): Revert 2013-01-31 change, which

=== modified file 'lisp/net/newst-treeview.el'
--- a/lisp/net/newst-treeview.el        2014-01-01 07:43:34 +0000
+++ b/lisp/net/newst-treeview.el        2014-08-11 18:08:13 +0000
@@ -83,6 +83,14 @@
   "Face for newsticker selection."
   :group 'newsticker-treeview)
 
+(defcustom newsticker-treeview-date-format
+  "%d.%m.%y, %H:%M"
+  "Format for the date column in the treeview list buffer.
+See `format-time-string' for a list of valid specifiers."
+  :version "24.5"
+  :type 'string
+  :group 'newsticker-treeview)
+
 (defcustom newsticker-treeview-own-frame
   nil
   "Decides whether newsticker treeview creates and uses its own frame."
@@ -307,7 +315,7 @@
                     0 10)
                    (propertize " " 'display '(space :align-to 12)))
                 ""))
-      (insert (format-time-string "%d.%m.%y, %H:%M"
+      (insert (format-time-string newsticker-treeview-date-format
                                   (newsticker--time item)))
       (insert (propertize " " 'display
                           (list 'space :align-to (if show-feed 28 18))))