SHARE
TWEET

Untitled




Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- (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)
- ))
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.