daily pastebin goal
46%
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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top