Untitled


(defun show-local-history ()
  (interactive)
  (let ((debug-on-error t))
    (setq history-files (directory-files hist-save-dir))
    (while history-files
      (progn
    ;(replace-regexp-in-string " " "_" )
    (setq timestamp (nth 1  (split-string (car history-files) "___")))
    (message "%s" timestamp)
        (setq history-files (cdr history-files))
        ))

    (pop-to-buffer "* Local History *" nil)
    (show-hist-mode)
    (setq tabulated-list-entries (list
                  (list "1" ["1" "2" ])
                  (list "2" ["a" "b" ])))
    (tabulated-list-print t)
    ))