daily pastebin goal
40%
SHARE
TWEET

Untitled

a guest Feb 13th, 2018 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. (defun show-local-history ()
  3.   (interactive)
  4.   (let ((debug-on-error t))
  5.     (setq history-files (directory-files hist-save-dir))
  6.     (while history-files
  7.       (progn
  8.     ;(replace-regexp-in-string " " "_" )
  9.     (setq timestamp (nth 1  (split-string (car history-files) "___")))
  10.     (message "%s" timestamp)
  11.         (setq history-files (cdr history-files))
  12.         ))
  13.  
  14.     (pop-to-buffer "* Local History *" nil)
  15.     (show-hist-mode)
  16.     (setq tabulated-list-entries (list
  17.                   (list "1" ["1" "2" ])
  18.                   (list "2" ["a" "b" ])))
  19.     (tabulated-list-print t)
  20.     ))
RAW Paste Data
Top